VB编程进 急~~~~~~

来源：百度知道 编辑：UC知道 时间：2024/06/05 05:02:31
输入N
求出所以小于或等于自然数对，自然数对是指2个自然数的和与差都是平方数
如：8与17和等于25 17与8的差是9都是平方数 则8与17是自然数对。。
要求：将结果输出显示在列表中

Private Sub Form_click()
Dim n As Integer, i As Integer, j As Integer
n = InputBox("请输入一个整数", "输入框")
For i = 1 To n
For j = 1 To n
If j <> i Then
Sum = i + j
ch = Abs(i - j)
If Sqr(Sum) = Int(Sqr(Sum)) And Sqr(ch) = Int(Sqr(ch)) Then
Print i, j, Sum, ch
End If
End If
Next
Next
End Sub