您的位置: 首页  >  作业答案  >  其他  >  （1） 求1-1000以内所有完全平方数..1 求1-1000以内所有完全平方数.2 从键盘输入若干个数,以0结束,统计正数和负数的个数.

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

分类: 作业答案 • 2022-02-21 20:10:20
问题描述：

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

答

Private Sub Command1_Click()Dim i%,k%For i = 1 To 1000If Int(Sqr(i)) = Sqr(i) Then Print i,:k = k + 1If k Mod 5 = 4 Then Print:k = 0NextEnd SubPrivate Sub Command2_Click()Dim OS%,JS%,m$m = InputBox("...

相关推荐