Private Sub Command2_Click()
D.im i%, j%, k%, t % ‘ t 为统计素数的个数
D. im b As Boolean
F.or i = 100 To 200
b = True
k = 2
j = Int(Sqr(i))
D.o While k <= j And b
If I Mod k = 0 Then
b = ( 12 )
E.nd If
k = ( 13 )
Loop
If b = True Then
t = t + 1
D.ebug.Print i
E.nd If
Next i
D.ebug.Print " t= " ; t
E.nd Sub
[单选题](程序说明) 程序功能是求1到100之间的所有素数。(程序)SET TALK OFFC.LEARJ=2D.O WHILE J<=100I=2D.O WHILE (5)IF MOD(J,I)=0(6)E.NDIFI=I+1E.NDDOIF (7)?JE.NDIFJ=J+1(8)SET TALK ONRETURN(5)A.I>JB.I>=JC.I<JD.I<=J
[问答题] 判断101-200之间有多少个素数,并输出所有素数。
[问答题] 输入100到200之间的所有素数。(所谓素数是指除了1和它本身外,不能被其他数所整除的数)
[主观题]输出100~200之间的素数。帮忙解释下面的伪代码含义。请详细一点哦!重点是为什么i≤√ ̄n和;√ ̄n。谢谢了
[单选题]以下程序输出1到1000之间所有的偶数之和,请补充完该程序。 Private Sub Cotmand1_Click() Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End SubA. i Mod 2= 0B.x mod 2=0C.I mod 2<>0D.x mod 2<>0
[单选题]在立即窗口中,语句Print String(3,”Basic”)的输出是A.BasB.BasicBasieBasicC.SD.BBB
[单选题]以下语句的输出结果是(在立即窗口中)()(<CR>为回车,Δ表示空格)a=27<CR>(<CR>为回车,下同)b=65<CR>Printa;b<CR>A .<CR>27<CR>65B .2765<CR>C .Δ27<CR>65<CR>D . D.以上都不对
[判断题] 在Windows下所有的窗口中都含有菜单栏。A . 正确B . 错误
[问答题] 编一个程序,利用while循环语句,找出2到100之间的素数。
[问答题] 编一个程序,利用自定义方法,找出2到100之间的素数。