Problema de programación en VB para el primer año de secundaria. ¡Esperando en línea! (1) Encuentre todos los números cuadrados perfectos entre 1 y 1000. .....

Subcomando privado1_Click()

Atenuar i, k

Para i = 1 a 1000

Si Int(Sqr(i) ) = Sqr(i) Luego imprime i,: k = k 1

Si k Mod 5 = 4 Entonces imprime: k = 0

Siguiente

Fin Sub

Private Sub Command2_Click()

Dim OS, JS, m$

m = InputBox("Ingrese un número entero")

Hacer mientras no sea numérico(m)

m = InputBox("Ingrese un número entero")

Bucle

Hacer mientras Val(m) lt; gt; CInt(m)

m = InputBox("Ingrese un número entero")

Bucle

m = CInt(m)

Hacer mientras m lt；gt; 0

Si m Mod 2 = 0 Entonces OS = OS 1 De lo contrario JS = JS 1

m = CInt(InputBox("Ingrese un Entero"))

Hacer mientras no sea numérico(m)

m = InputBox("Ingrese un número entero")

Bucle

Do While Val(m) lt；gt; CInt(m)

m = InputBox("Ingrese un número entero")

Bucle

m = CInt(m)

Bucle

Imprimir "***Entrada:"

Imprimir "número impar" amp JS "número, número par" amp; sistema operativo amp; "pieza"

Fin Sub