Utilice la programación VB para encontrar código (crear y llamar subrutinas) Experimento: encuentre el número mínimo de cadenas entre [130, 300]. Requisitos experimentales

Atenuar sí como booleano

Subcomando privado1_Click() Para i = 130 a 300

Para j = 2 a i * 0,71

? k = Int(Sqr(i * i - j * j))

?Llamar a check(i, j, k)

?Si es así, entonces

Imprimir "El número mínimo de cadenas es:"; i

Imprimir Str(j); Str(k); 2"

Salir del Sub

?End If

Siguiente j Siguiente i

Fin del Sub

Sub privado comprobar(i, j, k)

yes = j * j k * k = i * i

End Sub

?