在窗体上画1个名称为Commandl的命令按钮，然后编写如下程序： Private Sub Commandl C1ick() Dim mAs Integer，x As Integer Dim flag As Boolean

admin2011-04-29 49

问题在窗体上画1个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Commandl C1ick()
Dim mAs Integer，x As Integer
Dim flag As Boolean
flag=False
n=Val(InputBox(“请输入任意1个正整数”))
Do While Not flag
a=2
flag=
Do While flag And a<=Int(Sqr(n))
If n／a=n＼a Then
flag=False
Else

End If
Loop
If Not flag Then n=n+1
Loop
Print
End Sub
上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。

选项

答案True a=a+1 n

解析

转载请注明原文地址:https://kaotiyun.com/show/unhp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类