急求VB勾股定理編程

dim i as integer, j as integer, k as integer, x as integer, y as integer

for i = 1 to 30

for j = 1 to 30

for k = 1 to 30

x = i * i + j * j

y = k * k

if x = y then debug.print i, j, k

next k

next j

next i

end sub