Calcular la suma del rango entre números ingresados.
Necesito una mano con un ejercicio que dice así: Ingresar dos números, verificar que el segundo número ingresado sea mayor que el primero y calcular la suma de todos aquellos comprendidos entre esos dos números. Les adjunto lo que vengo haciendo, no me doy cuenta del error.
Dim numA, numB, suma, i As Integer
numA = InputBox("Ingrese un número")
numB = InputBox("Ingrese otro número mayor o igual que el anterior")
For i = 1 To Len(numA) & Len(numB)
suma = suma + CLng(numA) + CLng(numB)
If numB < numA Then
MsgBox("El segundo número debe ser mayor o igual!!")
Else
MsgBox("La suma del rango es " & suma)
End If
Next
End Sub
1 Respuesta
Disculpas, trabajo con VB.Net 2017.
[Hola
Siguiendo con tu misma idea, prueba así:
Dim numA As Long, numB As Long, suma As Long, x As Long
numA = Val(InputBox(Prompt:="Ingrese un número"))
If numA = False Then
MsgBox("Cancelaste")
Exit Sub
End If
numB = Val(InputBox("Ingrese otro número mayor o igual que el anterior"))
If numB = False Then
MsgBox("Cancelaste")
Exit Sub
End If
If numA > numB Then
MsgBox("El segundo número no puede ser menor que el primero")
Exit Sub
Else
For x = numA To numB
suma = suma + x
Next x
End If
MsgBox("La suma es " & suma)
End SubSe puede mejorar pero como ejercicio creo que está bueno.
Saludos]
Abraham Valencia
Por si acaso, esta línea:
Dim numA As Long, numB As Long, suma As Long, x As Long
Puede quedar solo así:
Dim numA, numB, suma, x As Long
Por cierto, he asumido que sumas valores enteros solamente.
Abraham Valencia
Muchísimas gracias!! Me ha servido como referencia y ya lo he podido resolver.
Sí, solo me lo han pedido con valores enteros. Saludos!!
