（7）在窗体上画1个名称为Command 1的命令按钮，然后编写如下程序：Private Sub Command 1 Click（)Di

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

Private Sub Command 1 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+l

Loop

Print【9】

End Sub

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