VB编程:自然对数是指两个自然数的和与差都是平方数，求所有小于100的自然数对的数目

显示全部楼层 · 2008-6-4 20:35:38

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

千问 · 2008-6-4 20:35:38

Private Sub Command1_Click()For i = 1 To 99For j = i + 1 To 99If Sqr(i + j) = Int(Sqr(i + j)) And Sqr(j - i) = Int(Sqr(j - i)) ThenPrint i, jEnd IfNext jNext iEnd S