Red de conocimiento informático - Problemas con los teléfonos móviles - VB: Pregunta de programación~~Ingrese un número entero n en el cuadro de texto 1 para determinar si es divisible por 5 y 7 al mismo tiempo...

VB: Pregunta de programación~~Ingrese un número entero n en el cuadro de texto 1 para determinar si es divisible por 5 y 7 al mismo tiempo...

Creas un nuevo formulario con un texto, una etiqueta y un control de comando

Private Sub Command1_Click()

Si no es numérico (Text1.Text) entonces Salir de Sub

Si Val(Text1.Text) Mod 5 = 0 y Val(Text1.Text) Mod 7 = 0 Entonces

Label1.Caption = Text1.Text amp; Divisible por 5 y 7 al mismo tiempo"

Else

Label1.Caption = Text1.Text amp; "No divisible por 5 y 7 al mismo tiempo"

Finalizar si

Finalizar sub