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
;