[试题]

(12 )以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数,并统计输出素数的个数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。

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 O

[单选题](程序说明) 程序功能是求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之间有多少个素数,并输出所有素数。

    [问答题] 判断101-200之间有多少个素数,并输出所有素数。

  • 查看答案
  • 输入100到200之间的所有素数。(所谓素数是指除了1和它本身外,不能被其他数所

    [问答题] 输入100到200之间的所有素数。(所谓素数是指除了1和它本身外,不能被其他数所整除的数)

  • 查看答案
  • 输出100~200之间的素数。帮忙解释下面的伪代码含义。

    [主观题]输出100~200之间的素数。帮忙解释下面的伪代码含义。请详细一点哦!重点是为什么i≤√ ̄n和;√ ̄n。谢谢了

  • 查看答案
  • 以下程序输出1到1000之间所有的偶数之和,请补充完该程序。Private Su

    [单选题]以下程序输出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”)的输出是

    [单选题]在立即窗口中,语句Print String(3,”Basic”)的输出是A.BasB.BasicBasieBasicC.SD.BBB

  • 查看答案
  • 以下语句的输出结果是(在立即窗口中)()(<CR>为回车,Δ表示空格)a=27<

    [单选题]以下语句的输出结果是(在立即窗口中)()(<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下所有的窗口中都含有菜单栏。

    [判断题] 在Windows下所有的窗口中都含有菜单栏。A . 正确B . 错误

  • 查看答案
  • 编一个程序,利用while循环语句,找出2到100之间的素数。

    [问答题] 编一个程序,利用while循环语句,找出2到100之间的素数。

  • 查看答案
  • 编一个程序,利用自定义方法,找出2到100之间的素数。

    [问答题] 编一个程序,利用自定义方法,找出2到100之间的素数。

  • 查看答案
  • (12 )以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数,