Programación VB: ingrese un número entero, determine si es múltiplo de 5 o 7 y especifique varias situaciones de resultados del programa
Ejemplo:
Private Sub Form_Load()
Dim k
Dim l como booleano, m como booleano
k = InputBox(" Ingrese un número entero")
Si k = "" O Int(Val(k )) <>；ThenEnd
Si Int(k / 5) = k / 5 Entonces l = Verdadero
Si Int(k / 7) = k / 7 Entonces m = Verdadero
Si l = Falso y m = Falso Entonces
MsgBox " El el entero no es múltiplo de 5 ni múltiplo de 7"
De lo contrario
Si l = True y m = True Entonces.
MsgBox "Este entero es un múltiplo de 5 y 7"
De lo contrario
Si l = False entonces
MsgBox "Este El número entero es un múltiplo de 7"
Else
MsgBox "Este número entero es múltiplo de 5"
Fin si
Fin si
Fin
Fin
Fin Sub