下列程序的功能是:输出10到100之间的所有回文素数。所谓回文素数是指,如果一个数是素数,则该数反序后形成的数也是素数。例如,13是素数,13反序形成得到数为31,31也是素数,则称13为回文素数。请在程序的横线处填写适当的语句,使程序完成指定的功能。
Private Sub Command12_Click ()
Dim k As Integer, m As Integer, n As Integer
For k = 10 T0 100
If prim (k) Then
m=()
n = O
Do While m>0
n = n * 10 + m mod 1O
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
prim =()
参考答案:False
解析:
函数prim()是用来判断一个数是否为素数,如果是素数,则为prim赋值为true,否则赋值为false 。主程序蒋从k=10循环执行至100,首先通过prim(k)判断k是否是素数,如果是的话,求它的反序数,如果反序数也是素数,则该数为回文素数。第一空将k赋值给m,通过do...while循环操作,求到k的反序数,因此填入k。第二空进行素数判断,如果一个数被除了自己本身以外的数整除,则不是素数,为prim赋值为false,因此填入false。