UC知道vb do while
来源：百度知道 编辑：UC知道 时间：2024/09/22 03:43:32
用do while循环求每条边都小于20的直角三角形的三条边长（边长为整数）请给出具体代码哈 谢谢哈
Private Sub Command1_Click()
Dim a, b, c As Long
a = 1
b = 1
c = 1
Do While a < 20
b = 1
Do While b < 20
c = 1
Do While c < 20
If a * a + b * b = c * c Then
Print a, b, c
End If
c = c + 1
Loop
b = b + 1
Loop
a = a + 1
Loop
End Sub
Private Sub Command1_Click()
Dim i As Integer '斜边长
Dim j As Integer '直角边长
Dim k As Single '另一条直角边长
For i = 1 To 19
For j = 1 To i - 1
k = Sqr(i ^ 2 - j ^ 2)
If k = Int(k) Then
Print i; j; k
Exit For
End If
Next
Next
End Sub