下列程序用于在带垂直滚动条件的文本框Text1中输出3～100字间的

问题填空题

下列程序用于在带垂直滚动条件的文本框Text1中输出3～100字间的全部素数。请填空。
Privat Sub Command1_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
Eise
i=i+1
Else
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的数表示该数是素数，并把它显示在Text1文本框中。