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
温馨提示:答案为网友推荐,仅供参考