（1） 求1-1000以内所有完全平方数..
（1） 求1-1000以内所有完全平方数..
1 求1-1000以内所有完全平方数.
2 从键盘输入若干个数,以0结束,统计正数和负数的个数.
1 求1-1000以内所有完全平方数.
2 从键盘输入若干个数,以0结束,统计正数和负数的个数.
其他人气：869 ℃时间：2020-01-30 22:29:04
优质解答
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("...
我来回答
类似推荐
猜你喜欢
- 1六（1）班男生的一半和女生的1/4共16人，女生的一半和男生的1/4共14人．六（1）班有学生多少人？
- 221. —How long does it take to get to the railway station? —Well, _____. Will you go there by
- 3What does your families usually do for the weekend?Do you enjoy it?Why?
- 4观书有感意思
- 5May is a true friend.对 a true 提问 ——————friend is May?
- 6how do students around the world get to school?
- 7炎热的夏天，小亮从冰箱拎冻室中取出一支冰棒，发现包装纸上附有一些小冰晶．打开包装纸后，看到冰棒在冒“白气“，一会儿，冰棒变成了冰水．根据该情景请你提出一个关于物态变化
- 8已知a+x2=2000，b+x2=2001，c+x2=2002，且abc=24，求a/bc+c/ab+b/ac−1/a−1/b−1/c的值．
- 9函数f（x）=log2（3x+1）的值域为（ ） A.（0，+∞） B.[0，+∞） C.（1，+∞） D.[1，+∞）
- 10斜面越陡,越省力/费力,机械效率越高/低?