Encuentre rápidamente el número de cadenas entre 100 y 200

Subcomando privado1_Click()

Atenuar i mientras, j mientras, k mientras, M como simple

Para i = 100 a 200

k = Sqr(200 ^ 2 - i ^ 2)

Para j = i + 1 Para k

M = Sqr(i ^ 2 + j ^ 2 )

Si M = Int(M) Entonces

Imprimir i, j, k

Finalizar si

Fin Sub