[填空题] 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim m As

[填空题] 在窗体上画一个名称为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

上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。

a=a+1