[填空题] 下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。Private Sub Commandl_Click() Text1.Text="&q

[填空题] 下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。 Private Sub Commandl_Click() Text1.Text="&q

[填空题] 下列程序用于在带垂直滚动条的文本框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文本框。