Programación del teorema del gancho VB de emergencia
sub Command1_Click()
dim i como entero, j como entero, k como entero, x como entero, y como entero
para i = 1 a 30
para j = 1 a 30
para k = 1 a 30
x = i * i j * j
y = k * k
si x = y entonces debug.print i, j, k
siguiente k
siguiente j
siguiente i
final sub