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

Private Sub Command1_Click()

Dim m As Integer, x As Integer

Dim flag As Boolean

flag=False

n=Val(InputBox("請輸入任意1個(gè)正整數(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ù)；內(nèi)循環(huán)的作用是判斷n是否是素?cái)?shù)，其中使用的方法是令a從2到Sqr(n)逐次循環(huán)判斷n是否被a整除。在外循環(huán)中首先假設(shè)n為素?cái)?shù)，即flag=True，然后進(jìn)行內(nèi)循環(huán)，如果n被a整除了則意味著n不是素?cái)?shù)，flag置為False，否則的話令a=a+1進(jìn)行下一次判斷。當(dāng)二重循環(huán)結(jié)束后，n的值即為所求的最小素?cái)?shù)。