2. 计算机
  3. 以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。 Private SuB command2_Click() Dim i%,j%,k%,t% `t 为统计素数的个

以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。 Private SuB command2_Click() Dim i%,j%,k%,t% `t 为统计素数的个

admin2010-04-21  27
问题 以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private SuB command2_Click()
  Dim i%,j%,k%,t% `t 为统计素数的个数
  Dim B As Boolean
  For i =100 To 200
     B =True
     k =2
     j =Int (Sqr(i))
     Do While k<=j And B
      IF I Mod k =0 Then
        B =【  】
      End IF
      k =【  】
     Loop
     IF B =True Then
       t =t+1
       DeBug.print i
  End IF
       Next i
       DeBug.Print “t=”;t
End SuB
选项
答案FALSE,k+1
解析 I是否为素数，只要I不被1到I的平方根整除，I就是一个素数，在该程序中，if  IMod k=0为判断I是否为素数的语句，如果该条件成立，则I不是素数，此时b=false表示I为非素数，如果ifI Mod k=0不成立，则k再加上1，即k+1之后再进行判断，直到K=I的平方根为止。因此本题两个空应分别填false和k+1。
转载请注明原文地址:https://kaotiyun.com/show/WKwp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)