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

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 13:06:03
VB编程：输入一个数,求它的自然数对,提示：自然数对是指两个自然数和与差都是平方数,如8和17的和是25,差是9,它们都是平方数 则8和17就称为自然数对.
xSKPW}1aq1X@rq^fI:8ԡLQQ?;7dDM ;s%|9߹ne_jeq~{}4oh2?_ WkBԂ흰փ5߫-~}} -6Ea~< o={!CoHE޸?7|lT/鿷"Uyiw5`\QV*s!37ZoUh 801BA+Ĕ0c  UvsRZ*SQ u ZP=_)Bޙ* +D%Ä uL-휈&U&hEhH3t7#>%Z4!QxomEDU1ID 8_3_|(5PdI\):- _=N2fu%qzڱOtZ

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的倍数,则只能加一次)