Ejercicio utilizando for next
Nuevamente me veo en la necesidad de pedir encarecidamente su ayuda; tengo un ejercicio de hace tiempo, le doy por todos lados y nada, el ejercicio es:
Debo ingresar dos números (A, B), decir resultado de multiplicar A * B, sumando A veces B o B veces A.
Ya realice dos códigos, en distintos proyectos, para el botón ejecutar:
Primer código:
Private Sub cmdejecutar_Click()
Dim a As Integer, b As Integer
a = Val(txta)
b = Val(txtb)
For i = 1 To i = 5
If a = 1 Then
Lblres.Caption = b
End If
Next i
If a = 2 Then
Lblres.Caption = b + b
End If
Next i
ElseIf a = 3 Then
Lblres.Caption = b + b + b
End If
Next i
ElseIf a = 4 Then
Lblres.Caption = b + b + b + b
End If
Next i
ElseIf a = 5 Then
Lblres.Caption = b + b + b + b + b
End If
End Sub
SEGUNDO CODIGO:
Private Sub cmdejecutar_Click()
Dim A As Integer, B As Integer, suma As Integer, multi As Integer
A = Val(txta)
B = Val(txtb)
For i = 1 To i = 5
If opt1.Value = True Then
suma = A * B
Lblmulti.Caption = suma * B
End If
If opt2.Value = True Then
suma = B * A
Lblmulti.Caption = suma * A
End If
Next i
End Sub
El problema es que en ambos códigos me salen errores y no me quiere funcionar.
Debo ingresar dos números (A, B), decir resultado de multiplicar A * B, sumando A veces B o B veces A.
Ya realice dos códigos, en distintos proyectos, para el botón ejecutar:
Primer código:
Private Sub cmdejecutar_Click()
Dim a As Integer, b As Integer
a = Val(txta)
b = Val(txtb)
For i = 1 To i = 5
If a = 1 Then
Lblres.Caption = b
End If
Next i
If a = 2 Then
Lblres.Caption = b + b
End If
Next i
ElseIf a = 3 Then
Lblres.Caption = b + b + b
End If
Next i
ElseIf a = 4 Then
Lblres.Caption = b + b + b + b
End If
Next i
ElseIf a = 5 Then
Lblres.Caption = b + b + b + b + b
End If
End Sub
SEGUNDO CODIGO:
Private Sub cmdejecutar_Click()
Dim A As Integer, B As Integer, suma As Integer, multi As Integer
A = Val(txta)
B = Val(txtb)
For i = 1 To i = 5
If opt1.Value = True Then
suma = A * B
Lblmulti.Caption = suma * B
End If
If opt2.Value = True Then
suma = B * A
Lblmulti.Caption = suma * A
End If
Next i
End Sub
El problema es que en ambos códigos me salen errores y no me quiere funcionar.
1 Respuesta
Respuesta de azendere
1
Podría proporcionarte un código ejemplo de como daría yo solución al problema propuesto. Sería el siguiente:
Private Sub cmdejecutar_Click()
Dim A,B,suma,multi as Integer
A= Val(txta)
B= Val (txtb)
Dim i as integer
suma = 0
multi= 0
for i= 0 to A
suma = suma +B
next
end sub
Éste código realiza la función de sumar A veces B, que si bien he entendido era lo que proponías. Yo uso Visual Basic 5, pero el código funcionará igual. Si no he entendido bien tu pregunta, por favor coméntamelo y busquemos la solución que te convenga.
Private Sub cmdejecutar_Click()
Dim A,B,suma,multi as Integer
A= Val(txta)
B= Val (txtb)
Dim i as integer
suma = 0
multi= 0
for i= 0 to A
suma = suma +B
next
end sub
Éste código realiza la función de sumar A veces B, que si bien he entendido era lo que proponías. Yo uso Visual Basic 5, pero el código funcionará igual. Si no he entendido bien tu pregunta, por favor coméntamelo y busquemos la solución que te convenga.
Cierra y puntúa la pregunta para poder seguir contestando a otros usuarios.
