UC知道vb问题勾股数组！
来源：百度知道 编辑：UC知道 时间：2024/09/20 18:40:38
用do while 语句和if then语句编写程序
找出50内所有勾股数，并显示组数
谢谢！
那个。麻烦不要用到for next 语句可以吗。。谢谢！
好的追加恩~！
找出50内所有勾股数，并显示组数
谢谢！
那个。麻烦不要用到for next 语句可以吗。。谢谢！
好的追加恩~！
Function x() As String
Dim i As Integer, j As Integer, k As Integer
Dim s As String
Dim d As Double
For i = 1 To 50
For j = i To 50
d = Sqr(i * i + j * j)
If d = Int(d) Then
If d <= 50 Then
k = k + 1
s = s & k & ": " & i & "^2 + " & j & "^2 = " & d & "^2" & vbCrLf
End If
End If
Next
Next
x = s
End Function
Private Sub Command1_Click()
Print x
End Sub
添加一个按钮即可。
Option Explicit
Function s() As String
Dim i As Integer, j As Integer, k As Integer
Dim d As Double
i = 1: Do While i < 50
j = i: Do While j < 50
d = Sqr(i * i + j * j)
If d = Int(d) Then
If d <= 50 Then
k = k + 1
s = s & k & ": " & i & "^2 + " & j & "^2 = " & d & "^2" & vbCrLf
End If
End If