下列程序的功能是：输出10到100之间的所有回文素数。所谓回文素数是指，如果一个数是素数，则该数反序后形成的数也是素数。例如，13是素数，13反序形成得到数为31，31也是素数，则称13为回文素数。Private Sub Command1 2_Click（ ）Dim k As Integer，m As Integer，n AsIntegerFor k=10 T0 100If prim(k)Thenm=__________n=0Do While m0N=n*10+Im Mod l0M=m/10LoopIf prim(n)ThenMsgBox k“，”nEnd IfEnd IfNext kEnd SubPublic Function prim(n As Integer)As BooleanDim j As IntegerFor j=2 To n／2If n Mod J=0 Thenprim=__________Exit FunctionEnd IfNext jprim=TrueExit FunctionEnd Function横线处应填写的内容是（ ）。A.k FakeB.k TrueC.m FalseD.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
相关考题：
(12 ）以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command2_Click()Dim i%, j%, k%, t % ‘ t 为统计素数的个数D im b As BooleanFor i = 100 To 200b = Truek = 2j = Int(Sqr(i))Do While k = j And bIf I Mod k = 0 Thenb = 【 12 】End Ifk = 【 13 】LoopIf b = True Thent = t + 1Debug.Print iEnd IfNext iDebug.Print " t= " ; tEnd Sub
程序test．c的功能是：计算500～800区间内素数的个数cnt，并按所求素数的值从大到小的顺序，计算其间隔减、加之和，即第1个素数．第2个素数+第3个素数．第4个素数+第5个素数…的值sum。请编写函数count Value实现程序的要求，最后main函数调用函数writeOAT把结果cnt和Sum，输出到文件out．dat中。
回文素数是指一个数同时为素数和回文数。例：131、191 编写程序，要求输入回文素数的起止范围，将范围内的回文素数显示出来，每行显示5个数，注意每列要准确对齐。 运行事例如下： 请输入回文素数的起止范围： 5 500 5-500范围内的回文素数如下： 5 7 11 101 131 151 181 191 313 353 373 383
编写一个函数Prime（n)，从键盘中输入一个正整数n，判断该数是否为素数，如果是素数则输出“该数是素数”，如果不是，则输出“该数不是素数”。所谓素数是指一个正整数只能被1和自己整除，不能被其他任何整数整除。
素数探求v3.0——回文素数