题目内容
(请给出正确答案)
[主观题]
回文素数是指一个数同时为素数和回文数。例如,131是一个素数,同时也是一个回文。757也是回文素数
。编写程序,显示前20个回文素数。每行显示10个数。数字之间用空格隔开。
查看答案
如果结果不匹配,请 联系老师 获取答案
Private Sub Form_Click()
Dim N%, N1%, N2%, I%, K1%, K2%
N = Val(InputBox("输入大于6的偶数"))
For N1 = 3 To N / 2 Step 2
K1 = ----1---
For I = 2 To K1 '判断N1是否是素数
If N1 Mod I = 0 Then ----2----
Next I
If I > K1 Then
N2 = ----3----
K2 = Int(Sqr(N2))
For I = 2 To K2
If N2 Mod I = 0 Then Exit For
Next I
If I > K2 Then Print N & "=" & N1 & "+" & N2
End If
End If
Next N1
End Sub