问题 填空题

下列程序的功能是:输出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。

判断题
单项选择题