用VB编写程序，找出所有小于或等于100的自然数对。

Question

如果要在text上输出结果，那怎么写代码啊

Answer 1

Private Sub Command1_Click()
  For i = 1 To 99
    For j = i + 1 To 100
      t1 = Round(Sqr(i + j))
      t2 = Round(Sqr(j - i))
      If t1 * t1 = i + j And t2 * t2 = j - i Then Print "(" & i; ","; j; ")": n = n + 1
    Next
  Next
  Print "N="; n
End Sub

把Text1文本框控件的MultyLine属性设置为True，再把
If t1 * t1 = i + j And t2 * t2 = j - i Then Print "(" & i; ","; j; ")": n = n + 1
改为：
If t1 * t1 = i + j And t2 * t2 = j - i Then 
  Text1 = Text1 & "(" & i & "," & j & ")" & VbCrlf
  n = n + 1
End If

Answer 2

0也是自然数

Private Sub Command1_Click()
Dim i As Integer, j As Integer
 For i = 0 To 100
  For j = i + 1 To 100
   If Int(Sqr(i + j)) ^ 2 = i + j And _
      Int(Sqr(Abs(i - j))) ^ 2 = Abs(i - j) Then
      Text1.Text = Text1.Text & i & " " & j & vbCrLf
      
   End If
  Next
 Next
 
   
End Sub

Private Sub Form_Load()
'Text1的属性MultiLine设置为True
'Text1的属性ScrollBars设置为 2
Text1.Text = ""
End Sub