Question

求VB小程序代码

编程：在列表框中输出所有小于或等于100的自然数对。自然数对是指两个自然数的和与差都是平方数，如8与17的和：8+17=25与其差：17-8=9的数都是平方数，则8和17称为自然数对。

Answer 1

Dim i As Integer

Dim j As Integer

Dim a As Single

Dim b As Single

Private Sub Command1_Click()

For i = 0 To 100

For j = i To 100

a = Sqr(i + j)

b = Sqr(j - i)

If a = Int(a) And b = Int(b) Then

Print i, j

End If

Next j

Next i

End Sub

Answer 2

Private Sub Form_Load()
Dim i, j, n
For i = 1 To 100
For j = 1 To 100
n = i + j
If fc(n) Then
n = i - j
If n > 0 Then If fc(n) Then List1.AddItem i & "-" & j & "=" & i - j & Space(5) & i & "+" & j & "=" & i + j
End If
Next
Next
End Sub
Function fc(n) As Boolean
If (Int(Sqr(n))) ^ 2 = n Then fc = True
End Function