程序用于找出1到100之间的两个数，使其和与差均为平方数。
例如 5和4、10和6、13和12的和与差均为平方数。
以下是我编写的代码
运行后我发现一个严重问题
输出的数组重复
比如
输出 4 5
5 4
6 10
10 6
等等
这些其实是重复的
有什么办法可以让重复的数组不再出现

Private Sub Command1_Click()
Dim m As Integer, n As Integer
For i = 1 To 100
For j = 1 To 100
m = i + j
n = Abs(i - j)
If CInt(Sqr(m)) = Sqr(m) And CInt(Sqr(n)) = Sqr(n) Then
Print i, j
End If
Next j
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

for j=i to 100
这样试试

2楼的方法可行
Very Good!!!
还有个问题时关于这个程序输出结果的格式
i j
i j
i j
. .
. .
. .
是数行两列输出
如果我想让它的输出的格式为横行两行输出
比如: i i i i ……
j j j j ……
print语句应该如何改写？

格式问题没有人帮忙解决吗？
自顶一下
大家帮忙想想办法啊

Private Sub Command1_Click()
Dim m As Integer, n As Integer
For i = 1 To 100
For j = 1 To i '只执行J《I的情况，来避免楼主的问题
m = i + j
n = Abs(i - j)
If CInt(Sqr(m)) = Sqr(m) And CInt(Sqr(n)) = Sqr(n) Then
Print i, j
End If
Next j
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command1_Click()
Dim m As Integer, n As Integer
For i = 1 To 100
For j = 1 To i-1 '只执行J《I的情况，并且过滤了0引起的情况，来避免楼主的问题
m = i + j
n = Abs(i - j)
If CInt(Sqr(m)) = Sqr(m) And CInt(Sqr(n)) = Sqr(n) Then
Print i, j
End If
Next j
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

打印的问题可以用label来做

Private Sub Command1_Click()
Dim m As Integer, n As Integer
For i = 1 To 100
For j = 1 To i-1 '只执行J《I的情况，并且过滤了0引起的情况，来避免楼主的问题
m = i + j
n = Abs(i - j)
If CInt(Sqr(m)) = Sqr(m) And CInt(Sqr(n)) = Sqr(n) Then
Label1.Caption = Label1.Caption & " " & i
Label2.Caption = Label2.Caption & " " & j
End If
Next j
Next i
End Sub

Private Sub Command2_Click()
End
End Sub


把PRINT换成LABEL显示

版主就是版主！！！
果然厉害！！！
这正是我想要的效果！！！
谢了！！！