(7)在窗体上画1个名称为Command 1的命令按钮 然后编写如下程序:Private Sub Command 1 Click()Di

计算机 窗体,程序,按钮 已帮助 人

(7)在窗体上画1个名称为Command 1的命令按钮,然后编写如下程序:

Private Sub Command 1 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=n\a Then

flag=False

Else

【8】

End If

Loop

If Not flag Then n=n+l

Loop

Print【9】

End Sub

上述程序的功能是,当在键盘输入任意的1个正整数时,将输出不小于该整数的最小素数。请填空完善程序。

热搜:1个大气压等于多少帕