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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/19 19:19:18
求勾股定理程序,vb语言的
x){iM |BOw%XŊZlP_`gCi/M~ھOZu6

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