在窗体上画1个名称为Command1的命令按钮，然后编写如下程序： Private

问题填空题

在窗体上画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=n\a 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的值即为所求的最小素数。