作业帮 > 综合 > 作业

（1） 求1-1000以内所有完全平方数..

来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/05/29 21:16:31
（1） 求1-1000以内所有完全平方数..
1 求1-1000以内所有完全平方数.
2 从键盘输入若干个数,以0结束,统计正数和负数的个数.
Private Sub Command1_Click()
Dim i%,k%
For i = 1 To 1000
If Int(Sqr(i)) = Sqr(i) Then Print i,:k = k + 1
If k Mod 5 = 4 Then Print:k = 0
Next
End Sub
Private Sub Command2_Click()
Dim OS%,JS%,m$
m = InputBox("请输入一个整数")
Do While Not IsNumeric(m)
m = InputBox("请输入一个整数")
Loop
Do While Val(m) CInt(m)
m = InputBox("请输入一个整数")
Loop
m = CInt(m)
Do While m 0
If m Mod 2 = 0 Then OS = OS + 1 Else JS = JS + 1
m = CInt(InputBox("请输入一个整数"))
Do While Not IsNumeric(m)
m = InputBox("请输入一个整数")
Loop
Do While Val(m) CInt(m)
m = InputBox("请输入一个整数")
Loop
m = CInt(m)
Loop
Print "共输入："
Print "奇数 " & JS & " 个,偶数 " & OS & " 个"
End Su
（1） 求1-1000以内所有完全平方数.. 编程求1000以内的所有完全数.完全数指的是一个数恰好等于它的所有因子的和.如：6=1+2+3,6是一个完全数 1到1000以内不是完全平方数,也不是完全立方数的数有几个?急 1000以内的完全平方数 求[1000,9999]内所有完全平方数的和 编程：求1000以内的所有完全数.（说明：一个数如果恰好等于它的因子—（自身除外）之和,则称该数为完全 30以内完全平方数? c++编程：求1~1000之间的完全平方数 在2500以内所有完全平方数中能被9整除的数有几个 求所有的四位完全平方数! 100000以内的完全平方数 试求所有的整数x,使得X(X+1)(X+7)(X+8)是一个完全平方数