Métodos de aplicación de VB. ¡Ingrese todos los números enteros dentro de 100 que sean divisibles por 3 y tengan 6 dígitos!
Subcomando privado1_Click()
Para i = 6 a 100 Paso 10
Si i Mod 3 = 0, entonces imprima i;
Siguiente i
Imprimir
Fin Sub.
Subcomando privado1_Click()
Para i = 6 a 100 Paso 10
Si i Mod 3 = 0, entonces imprima i;
Siguiente i
Imprimir
Fin Sub.