[填空題] 在窗體上畫1個名稱為Command1的命令按鈕，然后編寫如下程序：

Private Sub Command1_Click()

Dim m As Integer, x As Integer

Dim flag As Boolean

flag=False

n=Val(InputBox("請輸入任意1個正整數(shù)"))

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

在本題中外循環(huán)用于從輸入的n開始逐漸令n增大，從而依次找到不小于n的數(shù)；內循環(huán)的作用是判斷n是否是素數(shù)，其中使用的方法是令a從2到Sqr(n)逐次循環(huán)判斷n是否被a整除。在外循環(huán)中首先假設n為素數(shù)，即flag=True，然后進行內循環(huán)，如果n被a整除了則意味著n不是素數(shù)，flag置為False，否則的話令a=a+1進行下一次判斷。當二重循環(huán)結束后，n的值即為所求的最小素數(shù)。