求出100以内的所有勾股数（勾股数 a²+b²=c² ,a,b,c均为自然数,且ab）

来源：学生作业帮助网编辑：作业帮时间：2024/05/08 23:19:46

求出100以内的所有勾股数（勾股数 a²+b²=c² ,a,b,c均为自然数,且ab）
求出100以内的所有勾股数（勾股数 a²+b²=c² ,a,b,c均为自然数,且ab）

Private Sub Form_Load()

Dim i As Integer, j As Integer, k As Integer

Dim s As String

For i = 1 To 100

For j = 1 To 100

For k = 1 To 100

If i * i + j * j = k * k and i<>j Then

s = VBA.Format(i, "0") & "," & VBA.Format(j, "0") & "," & VBA.Format(k, "0") & Chr(13) & Chr(10)

Text1.Text = Text1.Text & s

End If

Next k

Next j

Next i

End Sub

求出100以内的所有勾股数（勾股数 a²+b²=c² ,a,b,c均为自然数,且ab）在VB里输入什么代码求出1000以内的所有勾股数! 求50以内的所有勾股数用while语句求出100以内的所有奇数之和和偶数之和 100以内的质数所有 100以内的所有因数. 1000以内所有勾股数的编程的流程图是什么?A、B、C是整数数学实验编程找出 1000以内的所有勾股数请给我所有50以内的勾股数.请快! 找出100以内的所有勾股数,一次输出五组的VB代码求100以内13的所有倍数! 100以内所有8的倍数?无如何计算100以内的所有素数? 100以内所有奇数的和是() 100以内的所有素数,奇数、合数 100以内所有奇数的和是() 100以内所有合数的因数 100以内所有6的因数