[填空题] 以下程序的功能是:从键盘任意输入正整数n,并找出大于n的第一个素数。 Private Sub Form_Click() Dim n As Long, j As Long, m As L
16 查阅
[填空题] 以下程序的功能是:从键盘任意输入正整数n,并找出大于n的第一个素数。
Private Sub Form_Click()
Dim n As Long, j As Long, m As Long
Dim flag As Boolean
n=InputBox("请输入正整数")
Do While Not flag
(11)
flag=True
i=2
Do While i<n And (12)
If n Mod i=0 Then
(13)
End If
i=i+1
Loop
Loop
Print n
End Sub
参考答案: