Colección de citas famosas - Consulta de diccionarios - Diseñe un programa para un problema de VB, use el bucle Do While para escribir un programa, determine cuántos números enteros del 1 al 100 se pueden dividir entre 7 y envíelo al formulario.
Diseñe un programa para un problema de VB, use el bucle Do While para escribir un programa, determine cuántos números enteros del 1 al 100 se pueden dividir entre 7 y envíelo al formulario.
Opción explícita
Subcomando privado 1_Click()
Dim Intval es un número entero, Cont es un número entero, Intdis es un número entero
' Intval = 1 'Empezar desde 1 .
Hacer mientras Intval lt= 100
Si Intval Mod 7 = 0, entonces
Imprimir intervalo,
Cont = Cont 1
Intdis = Intdis 1
Si Intdis Mod 5 = 0, entonces Imprima 'Mostrar 5 por línea.
Terminará si...
Intval = Intval 1
Anillo
Imprimir Chr(10) "Hay * * * dentro de 100 a"; continúaamp"Este número es divisible por 7"
Conector final