Tecnología de la información de la escuela secundaria (programación VB)

Private Sub Form_Click()

Dim x como entero, s como largo, n como entero

x = 100

Hacer mientras x >= 100 y x <= 999

Si x \ 100 > (x \ 10 Mod 10) y (x \ 10 Mod 10) > (x Mod 10) entonces

s = s + x

n = n + 1

Fin si

i = i + 1

Bucle

Imprimir "El lugar de las centenas es mayor que el lugar de las decenas, y el lugar de las decenas es mayor que la suma de los números de tres dígitos en el lugar de las unidades:"; es mayor que el lugar de las decenas, y el lugar de las decenas es mayor que la suma de tres dígitos del lugar de las unidades:" Número de: "n

End Sub