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

14 查阅

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

参考答案:

(7)True (8)a=a+1 (9)n

在本题中外循环用于从输入的n开始逐渐令n增大，从而依次找到不小于n的数；内循环的作用是判断n是否是素数，其中使用的方法是令a从2到Sqr(n)逐次循环判断n是否被a整除。在外循环中首先假设n为素数，即flag=True，然后进行内循环，如果n被a整除了则意味着n不是素数，flag置为False，否则的话令a=a+1进行下一次判断。当二重循环结束后，n的值即为所求的最小素数。

计算机考试