[填空题] 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim m As Integer,x As Integer
13 查阅
[填空题] 在窗体上画一个名称为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
上述程序的功能是,当在键盘输入任意的1个正整数时,将输出不小于该整数的最小素数。请填空完善程序。
参考答案: