2. 计算机
  3. 下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Commandl_Click() Text1.Text="" For n=3 To 100 k=Int(S

下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Commandl_Click() Text1.Text="" For n=3 To 100 k=Int(S

admin2010-09-11  40
问题 下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。
   Private Sub Commandl_Click()
     Text1.Text=""
     For n=3 To 100
       k=Int(Sqr(n))
       i=2
       Flag=0
       Do While i＜=______And Flag=0
          If n Mod i=0 Then
             Flag=1
          Else
             i=i+1
          End If
       Loop
       If______Then
          Text1.Text=Text1.Text & Str(n)& Chr(13)&Chr(10)
       End If
     Next n
End Sub
选项
答案k , Flag=0
解析 判断一个数是不是素数，其算法是：从2开始到该数的平方根的下限(即为题中k的值)去除这个数，如果没有可以整除的数则说明该数是个素数。本题中设置了一个标志变量Flag，默认值为 0，如果在整除的循环中，检查出该数不是素数，则设置Flag为1，也就是循环后Flag为0的数表示该数是素数，并把它显示在Textl文本框。
转载请注明原文地址:https://www.kaotiyun.com/show/1jmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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