问题
填空题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim m As Integer,x As Integer
Dim flag As Boolean
flag=False
n=Val(InputBox("请输入任意1个正整数"))
Do While Not flag
a=2
flag= (7)
Do While flag And a＜=Int(Sqr(n))
If n/a=n\a Then
flag=False
Else
(8)
End If
Loop
If Not flag Then n=n+1
Loop
Print (9)
End Sub
上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。
答案
参考答案：n
解析： 本题中[7]空要使外层的Do Loop循环运行，必须将Flag值设为True，所以应填True。内层的Do Loop循环主要用于判断该数是否为素数，如果这个数不为素数，则要使a自动加1，以继续循环判断后面的数，所以[8]空填a=a+1。通过前面的循环判断得到的n是不小于该整数的最小素数，所以最后是将这个素数输出，所以[9]空填n。
