Question

VB求自然对数的问题

Private Sub Command1_Click()

n = Text1.Text
m = Text2.Text

For i = 1 To n
For j = i + 1 To m

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 1

Private Sub Command1_Click()

n = Text1.Text'把Text1的内容赋给变量n
m = Text2.Text

For i = 1 To n '循环从1到n
For j = i + 1 To m

If Sqr(i + j) = Int(Sqr(i + j)) And Sqr(j - i) = Int(Sqr(j - i)) Then
'判断 这里的Sqr函数的用法 Sqr(number) 返回一个 Double，指定参数的平方根。Int函数 返回参数的整数部分。
Print i, j'显示 i和j的值
End If
Next j
Next i
不懂的补充

Answer 2

sqr:返回数值的平方根
int:获取数值的整数部分
遍历n以及m分别为i,j；当i与j的差和和均为完全平方数时，则打印该i,j