VB编程:自然对数是指两个自然数的和与差都是平方数,求所有小于100的自然数对的数目
问题描述：
VB编程:自然对数是指两个自然数的和与差都是平方数,求所有小于100的自然数对的数目
答
Private Sub Command1_Click()
For i = 1 To 100
For j = 1 To 100
If Int(Sqr((j + i))) = Sqr(j + i) And Int(Sqr((Abs(i - j)))) = Sqr(Abs(j - i)) Then
'Print i,j
k = k + 1
End If
Next j,i
Print "一个有"; k; "个"
End Sub