在窗体上画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 = ______
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个正整数时,将输出不小于该整数的最小素数。 请填空完善程序。
发布于 2022-05-11 10:17:49
登录后免费查看答案
关注者
0
被浏览
10