Red de conocimiento informático - Conocimiento del nombre de dominio - Programación del teorema del gancho VB de emergencia

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