VB循环程序例题100道附答案Word文档下载推荐.docx
《VB循环程序例题100道附答案Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB循环程序例题100道附答案Word文档下载推荐.docx（41页珍藏版）》请在冰豆网上搜索。
b=i\10Mod10
c=iMod10
If<
c+b>
Mod10=aThen
x=0
Forj=2Toi-1
IfiModj=0Thenx=1:
ExitFor
Nextj
Ifx=0Thenn=n+1
EndIf
Nexti
Printn
2.[300,800]范围内同时满足以下两个条件的十进制数.⑴其个位数字与十位数字之和除以10所得的余数是百位数字；
⑵该数是素数；
求满足上述条件的最大的三位十进制数.761
Fori=300To800
IfiModj=0Thenx=1:
Ifx=0Thens=i
Prints
3.除1和它本身外,不能被其它整数整除的正整数称为素数〔注：
1不是素数,2是素数.若两素数之差为2,则称两素数为双胞胎数,问[31,601]之间有多少对双胞胎数.22
Fori=31To601-2
Forj=2ToSqr<
i>
Ifx=0Then
y=0
i+2>
If<
Modj=0Theny=1:
Ify=0Thenn=n+1
EndIf
4.数学家哥德巴赫曾猜测：
任何大于6的偶数都可以分解成两个素数〔素数对的和.但有些偶数可以分解成多种素数对的和,如：
10=3+7,10=5+5,即10可以分解成两种不同的素数对.试求6744可以分解成多少种不同的素数对〔注：
A+B与B+A认为是相同素数对144
Fori=2To6744/2
6744-i>
5.两个素数之差为2,则称这两个素数为双胞胎数.求出[200,1000]之间的最大一对双胞胎数的和.1764
Fori=200To1000-2
Ify=0Thens=i+i+2
6.一个素数〔设为p依次从最高位去掉一位,二位,三位,……,若得到的各数仍都是素数<
注：
除1和它本身外,不能被其它整数整除的正整数称为素数,1不是素数,2是素数,且数p的各位数字均不为零,则称该数p为逆向超级素数.例如,617,17,7都是素数,因此617是逆向超级素数,尽管503,03,3都是素数,但它不是逆向超级素数,因为它包含有零.试求[100,999]之内的所有逆向超级素数的个数.39
a=i\10Mod10
b=iMod10
Ifa<
>
0Andb<
1Then
c=iMod100
c>
IfcModj=0Theny=1:
Ify=0Then
z=0
b>
IfbModj=0Thenz=1:
Ifz=0Thenn=n+1
7.德国数学家哥德巴赫曾猜测：
10=3+7,10=5+5,即10可以分解成两种不同的素数对.试求1234可以分解成多少种不同的素数对〔注：
A+B与B+A认为是相同素数对25
Fori=2To1234/2
1234-i>
8.求[100,900]之间相差为12的素数对〔注：
要求素数对的两个素数均在该范围内的个数.50
Fori=100To900-12
i+12>
9.一个素数〔设为p依次从最高位去掉一位,二位,三位,……,若得到的各数仍都是素数<
1不是素数>
且数p的各位数字均不为零,则称该数p为逆向超级素数.例如,617,17,7都是素数,因此617是逆向超级素数,但尽管503,03,3都是素数,但它不是逆向超级素数,因为它包含有零.试求[100,999]之内的所有逆向超级素数的和.21645
s=0
b=iMod10
Ifz=0Thens=s+i
10.一个素数〔设为p依次从最高位去掉一位,二位,三位,……,若得到的各数仍都是素数<
1不是素数,2是素数>
且数p的各位数字均不为零,则称该数p为逆向超级素数.例如,617,17,7都是素数,因此617是逆向超级素数,但尽管503,03,3都是素数,但它不是逆向超级素数,因为它包含有零.试求[100,999]之内的所有逆向超级素数从大到小数的第10个素数是多少？
797
Fori=999To100Step-1
a=i\10Mod10
Ifa<
Ifz=0Thenn=n+1:
Ifn=10Thens=i
11.一个自然数是素数,且它的数字位置经过任意对换后仍为素数,则称为绝对素数.如13,试求所有两位绝对素数的和.429
Fori=10To99
a=i\10
c=b*10+a
Ify=0Thens=s+i
12.在[200,900]范围内同时满足以下两个条件的十进制数:
⑴其个位数字与十位数字之和除以10所得的余数是百位数字;
⑵该数是素数；
问有多少个这样的数？
14
Fori=200To900
升级会员 