vb程序设计教程(潘蕾)考题分类总结2013春

考题分类总结,与素数相关找一定区间范围内的素数孪生素数（差为2的一对素数）幻影素数（原数和其逆序数都为素数）歌德巴赫猜想（偶数可以表示成任意两个素数）由不同数字组成的素数首位和末位相同的素数,字符处理（For循环Mid函数）从一串大小写字母混合的字符串中把其中的大写字母提取出来从一串数字字母混合的字符串中把其中的单个或连续的数字或字符提取出来字符串的加密、解密统计字符串中各字符出现的次数,考题分类总结,数字处理各种进制数之间的转换十进制转换成N进制N进制转换成十进制回文数（对称数）完数（找整数的因子并存入动态数组）升序数、降序数armstrong数判断整数由互不相同的数字组成判断整数是否是平方数、立方数,考题分类总结,PrivateFunctionjudge(nAsLong)AsBoolean判断整数n由不同的数字组成DimkAsInteger,a()AsInteger,iAsInteger,jAsIntegerDok=k+1ReDimPreservea(k)a(k)=nMod10n=n10LoopUntiln=0Fori=1ToUBound(a)-1Forj=i+1ToUBound(a)Ifa(i)=a(j)ThenExitFunctionNextjNextijudge=TrueEndFunction,与最大公约数相关求最大公约数最小公倍数（乘积/最大公约数）分数约分判断互质数（两个数的最大公约数是1）,考题分类总结,关于数组处理如何生成数组长度由用户输入的随机一维、二维数组，并在窗体、文本框、图片框输出数组；如何生成不含重复数的一维数组；一维数组：排序、求平均值、找最大、最小的元素并记录其位置；删除数组中最大/最小数；二维数组：找最大、最小元素并记录位置，求主、副对角线元素之和、周边元素之和、鞍点、如何交换指定两行或两列元素；,考题分类总结,生成无重复数数组n=Val(Text1.Text)ReDima(n)i=1DoWhileii-1Theni=i+1LoopFori=1TonText2.Text=Text2.Text&Str(a(i)Nexti,求已知通项表达式的累加和；明确要求求前n项，用FOR循环；指明通项小于给定的精度，则用DO-LOOP循环；关键点是写出通项对应的表达式，特别是当前项与前一项之间的关系；重复执行某操作，直至验证某命题成立（DO-LOOP循环）；,考题分类总结,找出给定范围内满足有关条件的所有的数PrivateSubCommand1_Click()DimNAsInteger,MAsInteger,kAsIntegerDimiAsInteger,jAsInteger,sAsStringN=Text1:M=Text2Fori=NToMIf条件1And条件2And条件3ThenList1.additemi或Text3=Text3&i&VbCrLfEndIF其中（1）条件可以为逻辑变量，逻辑表达式，布尔型函数调用（2）输出的内容注意格式的书写（字符串与变量的连接）NextiEndSub,孪生IfPrime(i)AndPrime(i+2)Then孪生素数List1.AddItemi&Str(i+2)EndIf,DimNAsInteger,MAsInteger,kAsIntegerDimiAsInteger,jAsInteger,sAsStringN=Text1:M=Text2Fori=NToMIfPrime(i)ThenForj=2ToSqr(i)1超级素数k=i-j2IfSqr(k)=Int(Sqr(k)Then完全平方数s=Str(i)&=&Str(j2)&+&Str(k)List1.AddItemsExitForEndIfNextj先判断是否是素数，再判断是否由两个完全平方数组成EndIfNextI,DimiAsInteger,jAsIntegerFori=4To100Step2Forj=2Toi验证哥德巴赫猜想，实验指导书11-5Ifprime(j)Andprime(i-j)Then布尔型函数调用List1.AddItemi&=&Str(j)&+&Str(i-j)ExitForEndIfNextjNextI,Armstrong数,PrivateFunctionPrime(NAsInteger)AsBooleanDimkAsIntegerFork=2ToSqr(N)IfNModk=0ThenExitFunctionNextkPrime=TrueEndFunction,DimjAsInteger,mAsInteger，SAsStringS=CStr(N):k=Len(S)Forj=1TokArmstrong数m=m+Val(Mid(S,j,1)kNextjIfm=NThenPrime=True,Forj=1ToN1完数IfNModj=0Thenm=m+jN