Escribir sentencias de bucle vb
Subcomando privado1_Click() para i = 100 a 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
Si i = a ^ 3 + b ^ 3 + c ^ 3 Entonces imprime i & "=" & a & "^3+" & b & "^3 +" & c & "^3" Siguiente i
Fin Sub
Subcomando privado1_Click() para i = 100 a 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
Si i = a ^ 3 + b ^ 3 + c ^ 3 Entonces imprime i & "=" & a & "^3+" & b & "^3 +" & c & "^3" Siguiente i
Fin Sub