下列程序的功能是:输出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—200中所有的素数,要求10个数据为一行输出。
第2题:
编写一个函数Prime(n),从键盘中输入一个正整数n,判断该数是否为素数,如果是素数则输出“该数是素数”,如果不是,则输出“该数不是素数”。所谓素数是指一个正整数只能被1和自己整除,不能被其他任何整数整除。
第3题:
素数探求v3.0——回文素数
第4题:
试编写程序,完成以下功能: 1、定义一个函数:判断给定的一个整数是否是素数,是素数返回True,不是素数返回False 2、输出用户指定范围内的所有素数。具体输入输出格式见样例。
第5题:
1. 100以内素数之和 描述 求100以内所有素数之和并输出。 素数指从大于1,且仅能被1和自己整除的整数。 提示:可以逐一判断100以内每个数是否为素数,然后求和。