Question

高一VB编程问题。在线等！ （1） 求1-1000以内所有完全平方数。 .....

1 求1-1000以内所有完全平方数。
2 从键盘输入若干个数，以0结束，统计正数和负数的个数。

T.T求大神帮助。

Answer 1

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 Sub

Answer 2

再不相爱就老了~辛若萱，顾若熏