以下程序的功能是:从键盘任意输入正整数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
主观题
以下程序的功能是:从键盘任意输入正整数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