作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/06 02:41:37
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 Su