Question

关于VB中for循环的一个小题目 求解!!

求所有小于或等于100的自然数对.自然数对是指两个自然数的和与差都是平方数,如8+17的和与17-8的差都是平方数,则17和8称自然数对

麻烦高手给个解答过程 是用for 循环语句编写的 谢谢@!!@ 急需

Answer 1

那5和4不是吧? 5-4=1*1 主要是1的平方算不算...
如果不是就下面这样的. .
如果是的话,就把 For k = 2 To i 中的2改成1就可以了```

Private Sub Form_Click()
For i = 2 To 100
For j = 1 To i - 1
For k = 2 To i
If i - j = k ^ 2 Then l1 = 1
If i + j = k ^ 2 Then l2 = 1
Next k
If l1 = 1 And l2 = 1 Then Print i; j
l1 = 0
l2 = 0
Next j
l1 = 0
l2 = 0
Next i
End Sub

Answer 2

Private Sub Form_Load()
Me.AutoRedraw = True
For i = 1 To 100
For j = i + 1 To 100
If Sqr(i + j) = Int(Sqr(i + j)) And Sqr(j - i) = Int(Sqr(j - i)) Then
Print i & "," & j
End If
Next j
Next i
End Sub

Answer 3

哎，一般来说，我很乐意帮人家回答问题，但帮人家做题目就不是我的风格了
问问题不是这样嘛