问题
填空题
以下程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。
Private 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
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，且不能被1和本身以外的整数整除的数。题中判断素数的方法为：对于n从i=2,3,…,sqr(n)，判别n能否被i整除，只要有一个能整除，n就不是素数，更改Flag变量的值，然后继续考虑后面的数，否则n是素数，Flag为0。因此循环中条件应为i＜=k