vb程序设计教程(潘蕾)考题分类总结2013春.ppt
考题分类总结,与素数相关找一定区间范围内的素数孪生素数（差为2的一对素数）幻影素数（原数和其逆序数都为素数）歌德巴赫猜想（偶数可以表示成任意两个素数）由不同数字组成的素数首位和末位相同的素数,字符处理（For循环Mid函数）从一串大小写字母混合的字符串中把其中的大写字母提取出来从一串数字字母混合的字符串中把其中的单个或连续的数字或字符提取出来字符串的加密、解密统计字符串中各字符出现的次数,考题分类总结,数字处理各种进制数之间的转换十进制转换成N进制N进制转换成十进制回文数（对称数）完数（找整数的因子并存入动态数组）升序数、降序数armstrong数判断整数由互不相同的数字组成判断整数是否是平方数、立方数,考题分类总结,Private Function judge(n As Long)As Boolean 判断整数n由不同的数字组成 Dim k As Integer,a()As Integer,i As Integer,j As Integer Do k=k+1 ReDim Preserve a(k)a(k)=n Mod 10 n=n 10 Loop Until n=0 For i=1 To UBound(a)-1 For j=i+1 To UBound(a)If a(i)=a(j)Then Exit Function Next j Next i judge=TrueEnd Function,与最大公约数相关求最大公约数最小公倍数（乘积/最大公约数）分数约分判断互质数（两个数的最大公约数是1）,考题分类总结,关于数组处理如何生成数组长度由用户输入的随机一维、二维数组，并在窗体、文本框、图片框输出数组；如何生成不含重复数的一维数组；一维数组：排序、求平均值、找最大、最小的元素并记录其位置；删除数组中最大/最小数；二维数组：找最大、最小元素并记录位置，求主、副对角线元素之和、周边元素之和、鞍点、如何交换指定两行或两列元素；,考题分类总结,生成无重复数数组 n=Val(Text1.Text)ReDim a(n)i=1 Do While i i-1 Then i=i+1 Loop For i=1 To n Text2.Text=Text2.Text&Str(a(i)Next i,求已知通项表达式的累加和；明确要求求前n项，用FOR循环；指明通项小于给定的精度，则用DO-LOOP循环；关键点是写出通项对应的表达式，特别是当前项与前一项之间的关系；重复执行某操作，直至验证某命题成立（DO-LOOP循环）；,考题分类总结,找出给定范围内满足有关条件的所有的数Private Sub Command1_Click()Dim N As Integer,M As Integer,k As Integer Dim i As Integer,j As Integer,s As String N=Text1:M=Text2 For i=N To M If 条件1 And 条件2 And 条件3 Then List1.additem i 或 Text3=Text3&i&VbCrLf End IF 其中（1）条件可以为逻辑变量，逻辑表 达式，布尔型函数调用（2）输出的内容注意格式的 书写（字符串与变量的连接）Next iEnd Sub,孪生If Prime(i)And Prime(i+2)Then 孪生素数 List1.AddItem i&Str(i+2)End If,Dim N As Integer,M As Integer,k As Integer Dim i As Integer,j As Integer,s As String N=Text1:M=Text2 For i=N To M If Prime(i)Then For j=2 To Sqr(i)1 超级素数 k=i-j 2 If Sqr(k)=Int(Sqr(k)Then 完全平方数 s=Str(i)&=&Str(j 2)&+&Str(k)List1.AddItem s Exit For End If Next j 先判断是否是素数，再判断是否由两个完全平方数组成 End IfNext I,Dim i As Integer,j As IntegerFor i=4 To 100 Step 2 For j=2 To i验证哥德巴赫猜想，实验指导书11-5 If prime(j)And prime(i-j)Then 布尔型函数调用 List1.AddItem i&=&Str(j)&+&Str(i-j)Exit For End If Next j Next I,Armstrong数,Private Function Prime(N As Integer)As Boolean Dim k As Integer For k=2 To Sqr(N)If N Mod k=0 Then Exit Function Next k Prime=TrueEnd Function,Dim j As Integer,m As Integer，S As StringS=CStr(N):k=Len(S)For j=1 To k Armstrong数 m=m+Val(Mid(S,j,1)k Next j If m=N Then Prime=True,For j=1 To N 1 完数 If N Mod j=0 Then m=m+j Next j,1.素数2.孪生素数：差为2的素数3.超级素数：等于两个整数平方和的素数4.哥德巴赫：偶数等于素数和5.Armstrong:等于各位的n次方和6.完数:等于因子之和 7.回文数、升序数等请自己完成,完数,
