VB编程：输入一个数,求它的自然数对,提示：自然数对是指两个自然数和与差都是平方数,如8和17的和是25,差是9,它们都是平方数则8和17就称为自然数对.

来源：学生作业帮助网编辑：作业帮时间：2024/11/14 23:55:31

VB编程：输入一个数,求它的自然数对,提示：自然数对是指两个自然数和与差都是平方数,如8和17的和是25,差是9,它们都是平方数则8和17就称为自然数对.
VB编程：输入一个数,求它的自然数对,
提示：自然数对是指两个自然数和与差都是平方数,如8和17的和是25,差是9,它们都是平方数则8和17就称为自然数对.

VB编程：输入一个数,求它的自然数对,提示：自然数对是指两个自然数和与差都是平方数,如8和17的和是25,差是9,它们都是平方数则8和17就称为自然数对.
Private Sub Command1_Click()
Dim a As Long
Dim i As Long
Dim s As Boolean
s = True
a = InputBox("请输入一个自然数","输入")
'--------以下为判断自然数
If Not IsNumeric(a) Then Exit Sub '判断输入的是否是数字
If Fix(a) a Then Exit Sub '判断是否为整数
If a < 0 Then Exit Sub '判断是否小于0
'--------以上为判断自然数
Do While s
i = i + 1
If Fix(Sqr(i + a)) = Sqr(i + a) Then
If i - a > 0 Then
If Fix(Sqr(Abs(i - a))) = Sqr(Abs(i - a)) Then s = False
End If
End If
Loop
Print i
End Sub

VB编程：输入一个数,求它的自然数对,提示：自然数对是指两个自然数和与差都是平方数,如8和17的和是25,差是9,它们都是平方数则8和17就称为自然数对. VB编程：输入一个数,求这个数与其倒数之和坐等麻烦快点谢谢用vb编程：输入三个数,求出最大的数求VB编程：任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数. 求VB编程代码:判断一个数是否是素数? VB编程求1-1000以内任意两数间的所有质数!就是要在窗体内任意输入两个自然数（均小于1000）显示这两个数之间所有质数. 用VB编程求1到100（包括100）自然数中能被3或7整除的个数求编程输入任意一个数,显示这个数之前的偶数平方和及偶数个数 VB编程题:任意输入10个整型数,显示其中奇数和偶数的个数,.. 用vb编程：任意输入3个数,输出其中最大值, vb编程求两个数最小公倍数求法 VB编程:自然对数是指两个自然数的和与差都是平方数,求所有小于100的自然数对的数目 VB编程用For循环语句VB:用输入框输入一个数n,若此数是大于0的正整数则求S=1-2/3+4/5-…2n/2n+1,否则重输数据,直到数据合理为止. VB 输入20个数求输入正数的个数 20个数得平均数用vb编程任意输入一整数,判断其奇偶性. VB编程,输入n个整数,求它们的最大公约数.注意：是n个整数怎样用vb编程求1000以内回文数又是素数的自然数编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加一次)

VB编程：输入一个数,求它的自然数对,提示：自然数对是指两个自然数和与差都是平方数,如8和17的和是25,差是9,它们都是平方数 则8和17就称为自然数对.

VB编程：输入一个数,求它的自然数对,提示：自然数对是指两个自然数和与差都是平方数,如8和17的和是25,差是9,它们都是平方数则8和17就称为自然数对.