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

admin2011-04-29  18

问题 在窗体上画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
0

最新回复(0)