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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/04 17:01:09
求勾股定理程序,vb语言的求勾股定理程序,vb语言的求勾股定理程序,vb语言的输出100以内所有满足条件的数PrivateSubCommand1_Click()DimI,J,KAsIntegerFor

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