[填空題] 以下程序的功能是：從鍵盤(pán)任意輸入正整數(shù)n，并找出大于n的第一個(gè)素?cái)?shù)。

Private Sub Form_Click()

Dim n As Long, j As Long, m As Long

Dim flag As Boolean

n=InputBox("請(qǐng)輸入正整數(shù)")

Do While Not flag

(11)

flag=True

i=2

Do While i＜n And (12)

If n Mod i=0 Then

(13)

End If

i=i+1

Loop

Loop

Print n

End Sub

(11)n=n+1 (12)flag或flag=true (13)flag=false

要找到大于n的第一個(gè)素?cái)?shù)，只需要依次對(duì)n+1、n+2、n+3…進(jìn)行判斷，第一個(gè)素?cái)?shù)就是要找的數(shù)，所以[11]填n=n+1。判斷一個(gè)數(shù)是否為素?cái)?shù)時(shí)，首先設(shè)置一個(gè)標(biāo)志變量，如本題的flag，先給flag一個(gè)值，該值代表n是素?cái)?shù)，再用2～n-1之間的數(shù)去與n相除，若某數(shù)能整除n，則說(shuō)明n不是素?cái)?shù)，這時(shí)給標(biāo)志變量另外一個(gè)不同于初始狀態(tài)的值，代表n不是素?cái)?shù)，同時(shí)停止判斷后續(xù)的數(shù)字。本題中循環(huán)的條件是i＜n并且還沒(méi)有找到某個(gè)數(shù)i能整除n，即flag還為真值，故[12]空填Flag或Flag=True。語(yǔ)句If n Mod i=0 Then說(shuō)明n能被i整除，所以[13]空應(yīng)給flag一個(gè)不同于初始狀態(tài)的值，故[13]空填flag=false。