![[填空题] 在窗体上画1个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim m As Integer, x As Intege](http://www.mshxw.com/aiimages/31/256348.png "[填空题] 在窗体上画1个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim m As Integer, x As Intege")
[填空题] 在窗体上画1个名称为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=na Then
flag=False
Else
(8)
End If
Loop
If Not flag Then n=n+1
Loop
Print (9)
End Sub
参考答案：
(7)True (8)a=a+1 (9)n问题解析:
在本题中外循环用于从输入的n开始逐渐令n增大，从而依次找到不小于n的数；内循环的作用是判断n是否是素数，其中使用的方法是令a从2到Sqr(n)逐次循环判断n是否被a整除。在外循环中首先假设n为素数，即flag=True，然后进行内循环，如果n被a整除了则意味着n不是素数，flag置为False，否则的话令a=a+1进行下一次判断。当二重循环结束后，n的值即为所求的最小素数。
