UC知道急求：这道二级VB题怎么编程！
来源：百度知道 编辑：UC知道 时间：2024/06/01 01:32:09
用VB完成
勾股定理中3个数的关系是：a2+b2=c2。例如，3，4，5就是一个满足条件的整数组合（注意：a,b,c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算）。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签label1中。
程序段是什么
急求！
勾股定理中3个数的关系是：a2+b2=c2。例如，3，4，5就是一个满足条件的整数组合（注意：a,b,c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算）。编写程序，统计三个数均在60以内满足上述关系的整数组合的个数，并显示在标签label1中。
程序段是什么
急求！
觉得这个可能对着呢：（z是组合的个数）
Private Sub Form_Click()
Dim i, j, k, z As Integer
z = 0
For i = 1 To 60
For j = i To 60
For k = 1 To 60
If i ^ 2 + j ^ 2 = k ^ 2 Then
Print i; j; k
z = z + 1
End If
Next k
Next j
Next i
label1.caption= z
End Sub
Private Sub Command1_Click()
'a **2 + b** 2 = c**2
Dim i As Long
Dim j As Long
Dim cnt As Long
For i = 1 To 60
For j = 1 To 60
Dim tot As Double
tot = Math.Sqr(i * i + j * j)
If Abs(tot - CInt(tot)) <= 0.000001 Then
If tot < 60 Then
Debug.Print cnt & vbTab & i & vbTab & j & vbTab & tot
cnt = cnt + 1
End If
End If
Next j
Next i
cnt = cnt / 2 '不重复
Me.