输入一个正整数（n≥2），判断其是否为素数。 Private Sub Form_Click（) Dim n As Integer, i As Inte

下列程序是判断一个整数(>=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox("请输入一个整数(>=3)") k=Int(Sqr(n)) i=2 swit=0 While i<=k And swit=0 If n Mod i=0 Then 【 】 Else 【 】 End If Wend If swit=0 Then Print n；"是一个素数。" Else Print n；"不是一个素数。" End If

下列程序的功能是：输出10到100之间的所有回文素数。所谓回文素数是指，如果一个数是素数，则该数反序后形成的数也是素数。例如，13是素数，13反序形成得到数为31，31也是素数，则称13为回文素数。

Private Sub Command1 2_Click（ ）

Dim k As Integer，m As Integer，n AsInteger

For k=10 T0 100

If prim(k)Then

m=__________

n=0

Do While m>0

N=n*10+Im Mod l0

M=m/10

Loop

If prim(n)Then

MsgBox k&“，”&n

End If

End If

Next k

End Sub

Public Function prim(n As Integer)As Boolean

Dim j As Integer

For j=2 To n／2

If n Mod J=0 Then

prim=__________

Exit Function

End If

Next j

prim=True

Exit Function

End Function

横线处应填写的内容是（ ）。

A.k Fake

B.k True

C.m False

D.n True

下列程序的功能是：输出10到100之间的所有回文素数。所谓回文素数是指，如果一个数是素数，则该数反序后形成的数也是素数。例如，13是素数，13反序形成得到数为31，31也是素数，则称13为回文素数。 Private Sub Command1 2_Click（ ） Dim k As Integer，m As Integer，n AsInteger For k=10 T0 100 If prim(k)Then m=__________ n=0 Do While m>0 N=n*10+Im Mod l0 M=m/10 Loop If prim(n)Then MsgBox k&“，”&n End If End If Next k End Sub Public Function prim(n As Integer)As Boolean Dim j As Integer For j=2 To n／2 If n Mod J=0 Then prim=__________ Exit Function End If Next j prim=True Exit Function End Function 横线处应填写的内容是（ ）。

A.k Fake

B.k True

C.m False

D.n True

下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2，如3和5，11和13等，请填空。 Private Sub Form_Click() Dim i As Integer For i=3 To 97 Step 2 If【 】Then Print i，i+2 End If Next i End Sub Public Function prime(ByVal n As Integer)As Boolean Dim i As Integer For i=2 To n-1 If【 】Then Exit For End If Next i If i=n Then prime=True Else prime=False End If

分别编写一个判断正整数是否是素数的函数过程和子过程，并调用，结果在窗体上显示。程序代码如下： Private Sub Form_Load() Dim m%, b As Boolean m = Val(InputBox("Enter m:")) Print "调用函数过程：" If______(1)______ Then Print m & " is prime!" Else Print m & " is not prime!" End If Print "调用子过程：" Call ______(2)______ If b Then Print m & " is prime!" Else Print m & " is not prime!" End If End Sub Public Function prime(ByVal n%) As Boolean Dim i% prime = True For i = 2 To Sqr(n) If n Mod i = 0 Then prime = False Exit For End If Next i End Function Public Sub prime1(ByVal n%, ______(3)______ As Boolean ) Dim i% flag = True For i = 2 To Sqr(n) If n Mod i = 0 Then flag=False Exit For End If Next i End Sub 完善程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________

编一个程序其功能是输入一个正整数，判断是否是素数，若为素数则输出1，否则输出0。(素数是只能被1和本身整除且大于1的自然数)

以下程序完成的功能是输入一个数n，并判断它是否为素数，是或不是都通过消息对话框(MsgBox)来给出提示。请将程序补充完整。 Private Sub Cemmand1_Click() n = InputBox (“请输入一个整数”) k = Int(Sqr(n)) i = 2 Flag = 0 do while i＜= k And Flag = 0 if【 】 = 0 then Flag = 1 Else i= i+ 1 End if Loop if【 】then MsgBox “这是一个素数!”，vbOKOnly，“提示” Else MsgBox “这不是一个素数!”，vbOKOnly，“提示” End if End Sub