更多"下列程序的功能是：输出10到100之间的所有回文素数。所谓回文素数是指"的相关试题:
[填空题]
下列程序的功能是：输出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 =（）
[填空题]以下程序输出100～1000范围内的回文素数。回文素数是指既是回文数同时也是素数的整数。例如.131既是回文数又是素数,因此131是回文素数。
#include
#include
int prime_pal(int n)
{ int i,k=___(19)___,m;
for(i=2;i<=k;i++) /*判断n是否素数*/
if(___(20)___) return 0;
k=n;m=0; /*求n的反序数放入m*/
while(k>O)
{m=m*10+k%10;
k=___(21)___;
}
if(m==n)return 1;
return 0;
}
void main（ ）
{int j,k=0;
for(j=100;j<=999;j++)
{if(___(22)___)
{printf("%d/t",j);
if(++k%5==0)printf("/n");
}
}
}
[填空题]以下程序的功能是在立即窗口中输出100～200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click（ ）
Dim i%，j%，k%，t% ’t为统计素数的个数
Dim b AS Boolean
For i=100 T0 200
b=True
k=2
J=Int(Sqr(i))
Do While k＜=j And b
If i Mod k=0 Then
b= (12)
End If
k= (13)
Loop
If b=True Then
t=t+1
Debug.Print i
End If
Next i
Debug.Print"t="；t
End Sub
[填空题]
以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
PrivateSubCommand2_Click（）
Dimi%，j%，k%，t%‘t为统计素数的个数
DimbAsBoolean
Fori=100To200
b=True
k=2
j=Int（Sqr（i））
DoWhilek<=jAndb
IfIModk=0Then
b=（？）
EndIf
k=（？）
Loop
Ifb=TrueThen
t=t+1
Debug.Printi
EndIf
Nexti
Debug.Print"t="；t
EndSub
[简答题]编制程序，输出10到30之间所有的素数。提示：素数是只能被1和它本身整除的自然数。
[简答题]求10～1000之间的所有素数之和，并输出。
[填空题]输出50～200之间的所有素数，一行显示5个，并求和。
set talk off
clear
n=50
j=0
S=0
______
i=2
do while i＜n
if int(n/i)=n/i
exit
endif
______
enddo
ifi＞=n
str(n,5)
S=S+N
j=j+l
______
endif
endif
n=n+1
enddo
"S=",S
return
[简答题]编一个程序其功能是输入一个正整数，判断是否是素数，若为素数则输出1，否则输出0。(素数是只能被1和本身整除且大于1的自然数)
[填空题]下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2，如3和5，11和13等，请填空。
Private Sub Form_Click（ ）
Dim i As Integer
For i = 3 To 97 Step 2
If 【9】 Then
Print i, i + 2
End If
Next i
End Sub
Public Funtion Prime (ByVal n As Integer) As Boolean
Dim i as Integer
For i = 2 To n - 1
If 【10】 Then
Exit For
End If
Next i
If i = n Then
Prime = True
Else
Prime = False
End If
End Function
[填空题]下列程序的功能是求出所有的1～100之间的孪生素数。孪生素数是指两个素数的差为2，如3和5，11和13等，请填空。
Private Sub Form_Click（ ）
Dim i As Integer
For i=3 To 97 Step 2
If 【14】 Then
Print i，i+2
End If
Next i
End Sub
Public Function prime(ByVal n As Integer)As Boolean
Dim i As Integer
For i=2 To n-1
If 【15】 Then
Exit For
End If
Next i
If i=n Then
prime=True
Else
prime=False
End If
[简答题]请编写函数fun，其功能是：计算并输出3～n之间(含3和n)所有素数的平方根之和。
例如，在主函数中从键盘为n输入100后，输出为：sum=148.874270。
[注意] 要求n的值大于2但不大于100。
[注意] 部分源程序给出如下。请勿改动主函数main和其他函数中的任何内容，仅在函数fun的花括号中填入所编写的若干语句。
[试题源程序]
#include＜math.h＞
#include＜stdio.h＞
double fun(int n)
main（ ）
int n;
double sum;
printf("/n/nInput n:");
scanf("%d", ＆n);
sum=fun(n);
printf("kn/nsum=%f/n/n", sum);
[简答题]
请编写函数fun，其功能是：计算并输出3到n之间(含3和n)所有素数的平方根之和。
例如，在主函数中从键盘给n输入100后，输出为：sum=148.874270。
注意：要求n的值大于2但不大于100。部分源程序给出如下。清勿改动主函数main和其他函数中的任何内容，仅在函数fun的花括号中填入所编写的若干语句。
[试题源程序]
#include＜math.h＞
#include＜stdio.h＞
double fun(int n)
main（ ）
int n；
double sum；
printf("/n/nInput n:")；
scanf("%d"，＆n)；
sum=fun(n)；
printf("/n/nsum=%f/n/n"，sum)；
[简答题]请补充函数fun（ ），该函数的功能是：寻找两个整数之间的的所有素数(包括这两个整数)，把结果保存在数组bb中，函数返回素数的个数。
例如，输入6和21，则输出为：7 11 13 17 19 21。
注意：部分源程序给出如下。
请勿改动主函数main 和其他函数中的任何内容，仅在函数fun（ ）的横线上填入所编写的若干表达式或语句。
试题程序：
#include＜conio. h＞
#include＜stdio. h＞
#define N 1000
int fun (int n, int m, int bb [N])
{
int i, j, k=0, flag;
for (j=n; j＜=m; j++)
{
【1】 ;
for (i=2; i＜j; i++)
if( 【2】 )
{
flag=0;
break;
}
if( 【3】 )
bb [k++] =j
}
return k;
}
main （ ）
{
int n=0,m=0, i, k;
int bb[N];
clrscr （ ）;
printf ("Input n/n");
scanf ("%d", &n);
printf ("Input m/n");
scanf ("%d", &m);
for (i=0; i＜m-n; i++)
bb[i]=0;
k=fun (n, m, bb);
for (i=0; i＜k; i++)
printf ("%4d",bb [i]);
}
[填空题]下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体上把这两个和显示出来。
Private Sub Form_Click（ ）
Dim s1 As Long，s2 As Long
Dim i As Integer
For i=3 To 1000
If prime(i) Then
s1=s1+i
Else If 【11】 Then
s2=s2+i
End If
Next i
Print s1，s2
End Sub
Public Function prime(ByVal n As Integer)As Boolean
Dim j As Integer
For j=2 To n-1
If n Mod j=0 Then
Exit For
End If
Next j
If j=n Then
【12】
Else
prime=False
End If
End Function
[填空题]下列程序的功能是输入一个整数，判断其是否是素数，若为素数则输出1，否则输出0。请填空。
#include ＜stdio．h＞
main（ ）
int i，x，y=1；
scanf("%d"，&x)；
for(i=2；i＜=x/2；i++)
if 【14】 y=0；break；
printf("%d/n"，y)；
[填空题][说明]
本程序求3～100之间的所有素数(质数)并统计个数；同时将这些素数从小到大依次写入顺序文件 E:/dataout.txt；素数的个数显示在窗体Form1上。
[Visual Basic 代码]
Private Sub Command1 Click ( )
Dim count as integer, flag as Boolean
Dim t1 as Integer, t2 as Integer
(1)
Count=0
For t1=3 to 100
(2)
For t2=2 to Int (Sqr (t1))
If (3) Then flag=False
Next t2
(4)
count=count +1
write #1, t1
End if
Next t1
(5)
Close #1
End Sub
