求勾股定理程序,vb语言的

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/15 19:44:03

求勾股定理程序,vb语言的

输出100以内所有满足条件的数
Private Sub Command1_Click()
Dim I,J,K As Integer
For I = 1 To 100
For J = i To 100
For K = i To 100
If I ^ 2 + J ^ 2 = K ^ 2 Then
Print I & " " & J & " " & K
End If
Next K
Next J
Next I
End Sub