VB循环程序例题100道附答案VIP免费

VB循环程序例题附答案1.素数1.[100，999]范围内同时满足以下两个条件的十进制数.⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数;求有多少个这样的数？15n=0Fori=100To999a=i\100b=i\10Mod10c=iMod10If(c+b)Mod10=aThenx=0Forj=2Toi-1IfiModj=0Thenx=1:ExitForNextjIfx=0Thenn=n+1EndIfNextiPrintn2.[300，800]范围内同时满足以下两个条件的十进制数.⑴其个位数字与十位数字之和除以10所得的余数是百位数字；⑵该数是素数；求满足上述条件的最大的三位十进制数。761Fori=300To800a=i\100b=i\10Mod10c=iMod10If(c+b)Mod10=aThenx=0Forj=2Toi-1IfiModj=0Thenx=1:ExitForNextjIfx=0Thens=iEndIfNextiPrints3.除1和它本身外，不能被其它整数整除的正整数称为素数（注：1不是素数，2是素数）。若两素数之差为2，则称两素数为双胞胎数，问[31,601]之间有多少对双胞胎数。22n=0Fori=31To601-2x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextj第1页Ifx=0Theny=0Forj=2ToSqr(i+2)If(i+2)Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn4.数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如：10=3+7，10=5+5，即10可以分解成两种不同的素数对。试求6744可以分解成多少种不同的素数对（注：A+B与B+A认为是相同素数对）144n=0Fori=2To6744/2x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(6744-i)If(6744-i)Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn5.两个素数之差为2，则称这两个素数为双胞胎数。求出[200，1000]之间的最大一对双胞胎数的和。1764Fori=200To1000-2x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(i+2)If(i+2)Modj=0Theny=1:ExitForNextjIfy=0Thens=i+i+2EndIfNextiPrints第2页6.一个素数（设为p）依次从最高位去掉一位，二位，三位，……，若得到的各数仍都是素数(注：除1和它本身外，不能被其它整数整除的正整数称为素数，1不是素数，2是素数），且数p的各位数字均不为零，则称该数p为逆向超级素数。例如，617，17，7都是素数，因此617是逆向超级素数，尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。试求[100,999]之内的所有逆向超级素数的个数。39n=0Fori=100To999a=i\10Mod10b=iMod10Ifa<>0Andb<>0Andb<>1Thenx=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=iMod100Forj=2ToSqr(c)IfcModj=0Theny=1:ExitForNextjIfy=0Thenz=0Forj=2ToSqr(b)IfbModj=0Thenz=1:ExitForNextjIfz=0Thenn=n+1EndIfEndIfEndIfNextiPrintn7.德国数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如：10=3+7，10=5+5，即10可以分解成两种不同的素数对。试求1234可以分解成多少种不同的素数对（注：A+B与B+A认为是相同素数对）25n=0Fori=2To1234/2x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(1234-i)If(1234-i)Modj=0Theny=1:ExitForNextj第3页Ify=0Thenn=n+1EndIfNextiPrintn8.求[100，900]之间相差为12的素数对（注：要求素数对的两个素数均在该范围内）的个数。50n=0Fori=100To900-12x=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0Forj=2ToSqr(i+12)If(i+12)Modj=0Theny=1:ExitForNextjIfy=0Thenn=n+1EndIfNextiPrintn9.一个素数（设为p）依次从最高位去掉一位，二位，三位，……，若得到的各数仍都是素数(注：1不是素数)，且数p的各位数字均不为零，则称该数p为逆向超级素数。例如，617，17，7都是素数，因此617是逆向超级素数，但尽管503，03，3都是素数，但它不是逆向超级素数，因为它包含有零。试求[100,999]之内的所有逆向超级素数的和。21645s=0Fori=100To999a=i\10Mod10b=iMod10Ifa<>0Andb<>0Andb<>1Thenx=0Forj=2ToSqr(i)IfiModj=0Thenx=1:ExitForNextjIfx=0Theny=0c=iMod100Forj=2ToSqr(c)IfcModj=0Theny=1:ExitForNextjIfy=0Thenz=0Forj=2ToSqr(b)IfbModj=0Thenz=1:...