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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 23:25:12
求勾股定理程序,vb语言的

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

求勾股定理程序,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