2022年2022年江苏省计算机等级考试二级VB常用算法 .pdf

《2022年2022年江苏省计算机等级考试二级VB常用算法 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年江苏省计算机等级考试二级VB常用算法 .pdf（28页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、(1)累加和连乘1、算法说明累加形式：V=V+e 连乘形式：V=V*e 其中：V 是变量，e是递增表达式。累加和连乘一般通过循环结构来实现。注意：需在执行循环体前对变量V 赋初值。一般的，累加时置初值0；连乘时置初值为 1.举例求 N！的结果。Private Sub Command1_Click（）Dim n%，i%，s&n=Val（InputBox（输入 n）s=1 For i=1 To n s=s*i Next i Print s End Sub 错误的写法：Private Sub Command1_Click（）Dim n%，i%，s&n=Val（InputBox（输入 n）For i=

2、1 To n s=1 赋初值语句位置不对！s=s*i Next i Print s 输出 s的值为 n，而不是 n！End Sub 应用举例根据下列公式，求自然对数e的的近似值。要求：误差小于0.00001 Private Sub Command1_Click（）Dim i%，n&，t！，e！e=2 i=1 t=1 Do While t 0.00001 i=i+1 t=t/i e=e+t Loop Print 计算了；i；项目和是：；e Print Exp（1）与上句输出值进行对比以证明算法的正确性名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 28 页 -End Sub 解题技

3、巧1）由于这类题目往往是根据精度要求来求值，因此我们不能预知具体循环次数，所以这类题目一般用Do 循环，很少用 For 循环。设定循环变量和通项变量，注意各变量的初值；2）分解通项表达式中各因子，并分别将各因子用循环变量表示；3）如果步骤 2 中有的因子比较复杂，难以直接用变量表示，此时可以考虑使用Function 过程；4）根据步骤 1、2、3，写出通项表达式；5）根据精度要求（往往是通项小于10 负多少次方这样一个关系表达式），写出一条满足精度要求后跳出循环的语句。通常是用：if 通项表达式 10（-N）then exit do，注意这句话一般需放在累加或者连乘式之前。实例说明以 2002

4、年春上机试卷 06 编程题为例根据 X 值计算：n1，2，要求：n 项绝对值小于等于10-6 为止。1、由于循环次数不确定，因此确定用Do 循环结构并定义循环变量用n 表示（初值1）；用户输入的值用x 表示；通项用 dblCos表示；累加值用 sum 表示，初值为 0；2、分解通项式的组成可以分解为三部分：可以表示为：（1）（n+1）可以表示为：x（2*（n-1）比较复杂，难以直接表示3、由于步骤 2 中复杂，此时考虑使用过程。于是定义过程，输入值是n，返回值是于是有：private Function comp（n as long）as long dim I as long dim resul

5、t as long result=1 此处注意，由于是连乘，初值为1 for I=1 to 2*（n-1）result=result*I next I comp=result 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 28 页 -End Function 注意：由于是参数按地址传递，因此对于本题，实参的值不能在过程中被改变！（也是改错题常考的地方！）4、根据步骤 1、2、3，写出通项 dblCos 的表达式：dblCos=（1）（n+1）*x（2*（n-1）/comp（n）5、根据精度要求知：If abs（dblCos）=10（-6）then exit do 最后程序为：P

6、rivate Sub Command1_Click（）Dim n As Long，dblCos As Double，x As Double x=Val（Text1.Text）n=1 Do dblCos=（-1）（n+1）*x （2*（n-1）/comp（n）If Abs（dblCos）max Then max=s If s a(j,col)Then （3）Next j End sub(3)素数1、算法说明素数（质数）：就是一个大于等于2 的整数，并且只能被1 和本身整除，而不能被其他整数整除的数。判别某数 m 是否是素数的经典算法是：对于 m，从 I2，3，4，m1 依次判别能否被 I 整除，

7、只要有一个能整除，m 就不是素数，否则 m 是素数。Private Function sushu(ByVal n As Long)As Boolean Dim i As Long For i=2 To n-1 If(n Mod i)=0 Then Exit For Next I If I=n then sushu=True End Function 很显然，实际上，我们可以改进上面For i=2 To n 1 为：名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 28 页 -For i=2 To int（sqr（m）这样可以很好的提高效率。以上判断是否为素数的代码务必识记！应用举例

8、求 100200 之内素数。Private Sub Command1_Click()Dim j As Integer For j=100 To 200 If sushu(j)=True Then Print j End If Next j End Sub 解题技巧识记判断素数的算法过程，根据题意，灵活调用！实例说明编程题（2002年春上机试卷 04）找出 10000 以内所有可以表示为两个平方数和的素数。思路：首先找 10000 以内的所有素数，对于每个素数判断其是否可以表示为两个平方数之和（即对于任意小于该素数shu的数 I，如果 I 和 shuI 均为平方数，则说明其可以表示为两个平方数之

9、和。）判断数 I 是否为平方数的方法：sqr（i）=int(sqr(i)Private Sub Command1_Click()Dim j As Integer Dim m As Long,n As Long For j=2 To 10000 If sushu(j)=True Then If pf(j,m,n)=True Then List1.AddItem j&=&m&+&n End If End If Next j End Sub Private Function pf(ByVal shu As Long,m As Long,n As Long)As Boolean Dim i As Lo

10、ng For i=1 To shu-1 If(Sqr(i)=Int(Sqr(i)And(Sqr(shu-i)=Int(Sqr(shu-i)Then pf=True m=i n=shu-i Exit Function End If Next End Function 2、实战练习名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 28 页 -1)补充代码（2002 春二（7）下列程序的功能是：查找四位正整数中的超级素数。超级素数的定义为：当一个素数从低位到高位依次去掉一位数后剩下的数仍然是素数，则此数为超级素数。如数2333、233、23、2 均为素数，所以 2333为超级素数。Opt

11、ion Explicit Private Sub Command1_Click()Dim I As Integer,flg As Boolean For I=1001 To 9999 Step 2 Call sup_prime(I,flg)If flg Then Debug.Print I End If Next I End Sub Private Sub sup_prime(（1）,F As Boolean)Dim p As Integer F=True Do While N 0 If prime(N)Then（2）Else（3）Exit Sub End If Loop End Sub Pu

12、blic Function prime(p As Integer)As Boolean Dim k As Integer If p=1 Then Exit Function Else For k=2 To Sqr(p)If p Mod k=0 Then Exit Function Next k（4）End If End Function 2)编程题（2004 春上机试卷 03）随机生成 15 个两位正整数，从中找出所有的素数，并记下它是第几个数，再找出其中最大的素数，并给出它的位置。名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 28 页 -(4)进制转化1、算法说明1)十进制正

13、整数 m 转换为 R（216）进制的字符串。思路：将 m 不断除 r 取余数，直到商为0，将余数反序即得到结果。算法实现：Private Function Tran(ByVal m As Integer,ByVal r As Integer)As String Dim StrDtoR As String,n As Integer Do While m o n=m Mod r m=m r If n 9 Then StrDtoR=Chr(65+n-10)&StrDtoR Else StrDtoR=n&StrDtoR End If Loop Tran=StrDtoR End Function 2)R

14、（216）进制字符串转换为十进制正整数。思路：R 进制数每位数字乘以权值之和即为十进制数。算法实现：Private Function Tran(ByVal s As String,ByVal r As Integer)As integer Dim n As Integer,dec As Integer s=UCase(Trim(s)For i%=1 To Len(s)If Mid(s,i,1)=A Then n=Asc(Mid(s,i,1)-Asc(A)+10 Else n=Val(Mid(s,i,1)End If dec=dec+n*r (Len(s)-i)Next i Tran=dec E

15、nd Function 解题技巧进制转化的原理要清楚,同时编写代码时候要留意16 进制中的 AF 字符的处理。2、实战练习名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 28 页 -1)补充代码（2002 秋二（9）本程序是把给定的二进制整数转换为八进制整数。Private Sub Command1_Click()Dim a As String,b As String,c As String Dim L As Integer,m As Integer,n As Integer a=InputBox(请输入一个二进制数,输入框)（1）a=String(L,0)&a（2）For m=

16、1 To n/3 b=Mid(a,3*m-2,3)（3）Next m Text1.Text=c End Sub Private Function zh(s As String)As String Dim i As Integer,n As Integer,p As Integer p=1 For i=2 To 0 Step-1（4）p=p+1 Next i zh=Str(n)End Function 2)补充代码（2001 春二（7）下面程序是把给定的16 进制正整数转换为10 进制数。Option Explicit Private Sub Form_Click()Dim St As Inte

17、ger，Dem As Long St=InputBox(输入一个十六进制数)Dem=Convert(St)Print St;=;Dem End Sub Private Function Convert(S As String)As Long Dim N As Integer，I As Integer，Substring As String*1 Dim P As long，K As Long，Asc1 As Integer N=（1）P=16N For I=1 To N P=P/16 Substring=（2）Select Case Substring Case 0 To 9 K=K+P*Val

18、(Substring)Case （3）Asc1=Asc(Substring)-Asc(A)+10 名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 28 页 -（4）End Select Next I（5）End Sub(5)约数因子1、算法说明1)最大公约数：用辗转相除法求两自然数m、n 的最大公约数。（1）首先，对于已知两数m、n，比较并使得 mn；（2）m 除以 n 得余数 r；（3）若 r0，则 n 为求得的最大公约数，算法结束；否则执行步骤（4）（4）m?n n?r 再重复执行（2）譬如：10 与 5 分析步骤：m=10 n=5 r=m mod n=0 所以 n(n=5)

19、为最大公约数24 与 9 分析步骤：m=24 n=9 r=m mod n=6 r 0 m=9 n=6 r=m mod n=3 r 0 m=6 n=3 r=m mod n=0 所以 n(n=3)为最大公约数算法实现循环实现Private Function GCD(ByVal m As Long,ByVal n As Long)As Long Dim temp As Long If m n Then temp=m:m=n:n=temp Dim r As Long Do r=m Mod n If r=0 Then Exit Do m=n n=r Loop GCD=n End Function 递归实

20、现 Private Function GCD(ByVal m As Long,ByVal n As Long)As Long Dim temp As Long If m n Then temp=m:m=n:n=temp Dim r As Long 名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 28 页 -r=m Mod n If r=0 Then GCD=n Else m=n n=r GCD=GCD(m,n)End If End Function 2)最小公倍数m n 最大公约数3)互质数最大公约数为 1 的两个正整数解题技巧该算法需要识记！这种类型题目的扩展是约数和因子题型

21、。2、实战练习1)补充代码（2003 春二（9）给定一个十进制正整数，找出小于它并与其互质的所有正整数（所谓互质数是指最大公约数为 1 的两个正整数，下图是程序执行画面）。Option Explicit Private Function gcd（1）As Integer Dim r As Integer r=m Mod n If r=0 Then gcd=n Else m=n:n=r（2）End If End Function 名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 28 页 -Private Sub Command1_Click()Dim n As Integer,p

22、 As Integer n=Val(Text1)For p=n-1 To 2 Step-1 If （3）Then List1.AddItem p Next p End Sub 2)编程题（2002 秋上机试卷 01）生成一个三行八列的二维数组A(3,8)，其中前两行元素产生的方法是：用初值 X1=26 及公式 Xi+1=(25 Xi+357)Mod 1024，产生一个数列：X1、X2、.、X16。其中 X1X8 作为 A 的第一行元素；X9X16 作为 A 的第二行元素；A 的第三行元素值取前两行同列元素的最大公约数。最后按图示格式显示在图片框中。(6)排序1、算法说明1)选择法排序(1)从

23、n 个数中选出最小数的下标，出了循环，将最小数与第一个数交换位置；(2)除第一个数外，在剩下的n-1 个数中再按方法（1）选出次小的数，与第二个数交换位置；(3)以此类推，最后构成递增序列。譬如：8 6 9 3 2 7 第一轮交换后2 6 9 3 8 7 第二轮交换后2 3 9 6 8 7 第三轮交换后2 3 6 9 8 7 第四轮交换后2 3 6 7 8 9 第五轮无交换2 3 6 7 8 9 程序代码如下：Private Sub xzPaiXu(a()As Double,sheng As Boolean)a为需要排序的数组，sheng为 True则为升序排列，为False，则为降序排列。D

24、im i As Integer,j As Integer Dim temp As Double 名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 28 页 -Dim m As Integer For i=LBound(a)To UBound(a)-1 进行数组大小-1 轮比较m=i 在第 i 轮比较时，假定第i 个元素为最值元素For j=i+1 To UBound(a)在剩下的元素中找出最值元素的下标并记录在m 中If sheng Then 若为升序，则 m 记录最小元素下标,否则记录最大元素下标If a(j)a(m)Then m=j End If Next j 将最值元素与第

25、 i 个元素交换temp=a(i)a(i)=a(m)a(m)=temp Next i End Sub 调用该过程示例：Option Base 1 Private Sub Command1_Click()Dim b(6)As Double b(1)=8 b(2)=6 b(3)=9 b(4)=3 b(5)=2 b(6)=7 Call xzPaiXu(b,True)For i%=1 To 6 Print b(i)Next End Sub 2)冒泡法排序选择排序法在每一轮排序时找最值元素的下标，出了内循环（一轮排序结束），再交换最小数的位置；而冒泡法在每一轮排序时将相邻的数比较，当次序不对就交换位置，

26、出了内循环，最值数已经冒出。譬如：8 6 9 3 2 7 8 6 9 3 2 7 8 6 9 2 3 7 8 6 2 9 3 7 8 2 6 9 3 7 2 8 6 9 3 7.名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 28 页 -2 3 8 6 9 7.2 3 6 8 7 9.2 3 6 7 8 9.2 3 6 7 8 9 程序代码如下：Private Sub mpPaiXu(a()As Double,sheng As Boolean)a为需要排序的数组，sheng为 True则为升序排列，为False，则为降序排列。Dim i As Integer,j As Inte

27、ger Dim temp As Double Dim m As Integer For i=LBound(a)To UBound(a)-1 进行 n-1 轮比较For j=UBound(a)To i+1 Step-1 从 n 到 i 个元素两两进行比较If sheng Then 若次序不对，马上进行交换If a(j)a(j-1)Then temp=a(j)a(j)=a(j-1)a(j-1)=temp End If End If Next j 出了内循环，一轮排序结束最值元素冒到最上边Next i End Sub 调用该过程代码基本同上。2、实战练习1)补充代码（2003 秋二（10）下面是一个

28、采用拉锯式排序法对数组元素按升序进行排序的程序，所谓“拉锯式排序法”是这一遍把最小的元素从下到上送到最上的位置，下一遍则是从上到下把最大的元素送到最下的位置。Option Base 1 名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 28 页 -Private Sub Command1_Click()Dim a(10)As Integer,i As Integer For i=1 To 10 a(i)=Int(Rnd*10)+1 Text1=Text1&Str(a(i)Next i Call shaker_sort(a)For i=1 To 10 Text2=Text2&Str

29、(a(i)Next i End Sub Private Sub Shaker_sort(k()As Integer)Dim i As Integer,c As Integer,d As Integer Dim t As Integer c=1 d=（1）Do For（2）Step-1 If k(i=1)k(i)Then t=k(i-1):k(i-1)=k(i):k(i)=t End If Next i（3）For i=c+1 To d If （4）Then t=k(i-1):k(i-1)=k(i):k(i)=t End If Next i d=d-1 Loop While（5）End Sub

30、2)编程题（2002 秋上机试卷 04）把文本框输入的字符串按降序添加到列表框中。名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 28 页 -(7)插入和删除1、算法说明数组中元素的插入和删除一般是在已固定序列的数组中插入或删除一个元素，使得插入或删除操作后的数组还是有序的。基本思路：首先要找到插入位置或要删除的元素。1)插入代码如下：Private Sub Command1_Click()Dim a(10)As Integer Dim i As Integer,k As Integer For i=0 To 9 生成数组a(i)=i*3+1 Print a(i);Next i

31、 Print Print 插入 14 For k=0 To 9 查找插入 14在数组中的位置If 14 a(k)Then Exit For 名师资料总结-精品资料欢迎下载-名师精心整理-第 16 页，共 28 页 -Next k For i=9 To k Step-1 从最后元素开始逐个后移，腾出位置a(i+1)=a(i)Next i a(k)=14 插入数 14 For i=0 To 10 Print a(i);Next i Print End Sub 2)1 4 7 10 13 16 19 22 25 28 K 删除代码如下：Dim a()as integer.ReDim a(1 to n

32、)For i=k+1 to n a(i-1)=a(i)Next I Redim preserve a(1 to n-1)2、实战练习 1)补充代码（2001秋二（8）(此题文件部分实在看不懂的话可以不看：蒯)C 盘根目录下文件Data4.txt 的内容是：2，4，6，8，10，1，3，5，7，9。下面程序的功能是将文件后半部分的奇数分别按序插入到前半部分的适当位置，得到的新数列是：1 2 3 4 5 6 7 8 9 10。（实现方法：第一次调整后的数列是：1 2 4 6 8 10 3 5 7 9第二次调整后的数列是：1 2 3 4 6 8 10 5 7 9）。Option Explict Pr

33、ivate Sub Form_Click()Dim A(10)As Integer,i As Integer,J As Integer Open c:Data4.txt For Input As#12 Do （1）J=J+1 Input#12,A(J)Loop Call Insert(A)For i=1 To 10 名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 28 页 -Print A(i);Next i Print Close#12 End Sub Private Sub Insert(A()As Integer)Dim i As Integer,Putp As Inte

34、ger,J As Integer Dim Getp As Integer,N As Integer,Tem As Integer N=UBound(A)/2 Putp=1 Getp=N+1 For i=1 To N Tem=A(Getp)For J=Getp To Putp+1 Step-1（2）Next J A(Putp)=Tem Getp=Getp+1 Putp=（3）Next i End Sub 2)补充代码（2001 春二（8）下面程序得功能是将无序数组中相同得数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值

35、实现的。数组各元素的值从文件data.txt中读取。Option Explict Option Base 1 Private Sub Form_Click()Dim I As Integer,J As Integer,K As Integer Dim A()As Integer,T As Integer,M As Integer Open c:my documents2000testdata.txt For Input As#1 Do While （1）I=I+1 Redim Preserve A(I)Input#1,A(I)Loop M=1:T=（2）Do While MT I=M+1 Do

36、 While I high Then 没有查找到index=-1 Exit Sub End If mid=(low+high)2 取查找区间的中点If Key=a(mid)Then 查找到，返回下标index=mid Exit Sub ElseIf Key a(mid)Then 查找区间在上半部分high=mid-1 Else low=mid+1 查找区间在下半部分End If Call birSearch(a,low,high,Key,index)递归调用查找函数End Sub 调用方法：Private Sub Command1_Click()名师资料总结-精品资料欢迎下载-名师精心整理-第

37、 20 页，共 28 页 -Dim a(11)a(1)=5:a(2)=13:a(3)=19:a(4)=21:a(5)=37 a(6)=56:a(7)=64:a(8)=75:a(9)=80:a(10)=88:a(11)=92 Dim ind As Integer Call birSearch(a,LBound(a),UBound(a),21,ind)Print ind End Sub 2、实战练习补充代码（2002春二（9）(此题可以不看：蒯)C 盘根目录下 stu.txt 文件中以下的格式保存着学生姓名及班号信息。本程序的功能是：读取该文件中的数据，再利用InputvBox 输入要查找的学生姓

38、名，通过顺序查找，给出找到或找不到的信息。附图是某同学被找到时显示的信息窗口。张文，机械 01 李明，机械 01 王文卉，机械 01 何宇宙，电子 02 Option Explicit Option Base 1 Private Sub Form_click()Dim stu()As String,glass()As String,i As Integer Dim n As Integer,name As String,k As Integer Open c:stustu.txt For Input As#11 Do While（1）（2）ReDim Preserve stu(n),glass

39、(n)Input#11,stu(n),glass(n)Loop name=InputBox(输入欲查找的学生姓名：)Call search(name,stu,k)If k=n Then MsgBox（3）Else MsgBox 无此人。End If Close#11 End Sub Private Sub search(name As String,stu()As String,k As Integer)名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 28 页 -Dim i As Integer For i=1 To UBound(stu)If name=stu(i)Then（

40、4）End If Next i（5）End Sub(9)数学求解1、算法说明1)初等数学递推法又称为“迭代法”，其基本思想是把一个复杂的计算过程转化为简单过程的多次重复。每次重复都在旧值的基础上递推出新值，并由新值代替旧值。问题：猴子吃桃子小猴子有若干桃子，第一天吃掉一半多一个；第二天吃掉剩下的一半多一个.；如此，到第七天早上要吃时，只剩下一个桃子。问小猴子一开始共有多少桃子？分析：可以最后一天桃子数推出倒数第二天的桃子数；再从倒数第二天推出倒数第三天桃子数.设第 n 天桃子数为 xn，前一天桃子数是：xn1，则有关系：xnxn1/2-1 程序如下：Private Sub Command1_C

41、lick()Dim n%,i%x=1 第七天桃子数Print 第七天桃子数:1 只 For i=6 To 1 Step-1 x=(x+1)*2 Print 第&i&天桃子数:&x&只 Next i End Sub 穷举法又称枚举法，即将所有可能情况一一测试，判断是否满足条件，一般用循环实现。问题：百元买鸡问题。假定小鸡每只 5 角；公鸡每只 2 元；母鸡每只 3 元。现在有 100 元，要求买 100只鸡，编程列出所有可能的购鸡方案。分析：设母鸡、公鸡、小鸡分别x、y、z 只，则有：xyz100 3x2y0.5z100 程序一：Private Sub Command1_Click()Dim x

42、%,y%,z%For x=0 To 100 For y=0 To 100 For z=0 To 100 名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 28 页 -If x+y+z=100 And 3*x+2*y+0.5*z=100 Then Print x,y,z End If Next z Next y Next x End Sub 程序二（优化）Private Sub Command1_Click()Dim x%,y%For x=0 To 33 For y=0 To 50 If 3*x+2*y+0.5*(100-x-y)=100 Then Print x,y,100-x-

43、y End If Next y Next x End Sub 2)高等数学求积分近似计算积分：s=13(x3+2x+5)dx 代码如下：Public Function f(ByVal x!)被积函数f=x*(x*x+2)+5 End Function Public Function trapez(ByVal a!,ByVal b!,ByVal n%)As Single b、a 分别为积分上下限，n 为等分数Dim sum!,h!,x!h=(b-a)/n sum=(f(a)+f(b)/2 For i=1 To n-1 x=a+i*h sum=sum+f(x)Next i trapez=sum*h

44、 End Function 调用：Private Sub Command1_Click()Print trapez(1,3,30)End Sub 数论综合题此类题目比较广泛，必须给以足够重视。历年题目有：平方数、零巧数、拟互满数、回文数、酉完数、完数、幸运数、逆序数以及无暇素数、超级素数、因子和等。名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 28 页 -2、实战练习1)补充代码（2002 秋二（10）找出由两个不同数字组成的平方数，并将结果按图中的格式显示在列表框List1 中。Option Explicit Private Sub Command1_Click()Dim

45、I As Long,N As Long For I=11 To 300（1）If Verify(N)Then（2）End If Next I End Sub Private Function Verify(（3）)As Boolean Dim A(0 To 9)As Integer,I As Integer,Js As Integer Do While N 0（4）N=N 10 Loop For I=0 To 9 Js=Js+A(I)Next I（5）End Function 1)编程题（2004 秋上机试卷 08）一个正整数被称为奇妙平方数，如果此数的平方与它的逆序数的平方互为逆序数。例如，

46、122=144,212=441,12 与 21 互逆,144 与 441 互逆,12 就是奇妙平方数。找出1-300 以内所有的奇妙平方数。名师资料总结-精品资料欢迎下载-名师精心整理-第 24 页，共 28 页 -(10)字符处理1、算法说明1)加密解密最简单的加密方法是：将每个字母加一序数，例如5，这时：“A”F”,”a”f”,”B”G”,”b”g”Y”D”,”y”d”,”Z”E”,”z”e”解密是加密的逆操作。界面如下：代码如下：Option Explicit Private Sub Command1_Click()Dim strInput$,Code$,Record$,c As Str

47、ing*1 Dim i%,length%,iAsc%strInput=Text1.Text length=Len(Trim(strInput)Code=For i=1 To length c=mid(strInput,i,1)Select Case c 名师资料总结-精品资料欢迎下载-名师精心整理-第 25 页，共 28 页 -Case A To Z iAsc=Asc(c)+5 If iAsc Asc(Z)Then iAsc=iAsc-26 Code=Code&Chr(iAsc)Case a To z iAsc=Asc(c)+5 If iAsc Asc(z)Then iAsc=iAsc-26

48、Code=Code&Chr(iAsc)Case Else Code=Code&c End Select Next i Text2.Text=Code End Sub Private Sub Command3_Click()Text1.Text=Text2.Text=Text3.Text=Text1.SetFocus End Sub 2)统计问题提出统计字符或者数字出现的次数。算法说明以字符统计为例，设基本问题如下：请统计一段文本中英文字母在文本中出现的次数。（不区分大小写）如：I am a student.得到：A:2 d:1 e:1 I:1 m:1 n:1 s:1 t:2 u:1 分析：由于

49、不区分大小写，因此可定义一个大小为26（下标：025）的数组，每个元素依次记录A、B、CZ 字母出现的次数。A(0)存放字母 a 出现的次数A(1)存放字母 b 出现的次数A(2)存放字母 c 出现的次数A(3)存放字母 d 出现的次数 譬如：aabdc 代码如下：Option Explicit Private Sub Command1_Click()Dim i As Integer,j As Integer Dim zimu(25)As Integer Dim allStr As String Dim aStr As String allStr=UCase(Text1.Text)名师资料总结

50、-精品资料欢迎下载-名师精心整理-第 26 页，共 28 页 -For i=1 To Len(Text1.Text)aStr=Mid(allStr,i,1)If aStr=A And aStr=Z Then zimu(Asc(aStr)-Asc(A)=zimu(Asc(aStr)-Asc(A)+1 End If Next i For i=0 To 25 If zimu(i)0 Then j=j+1 Text2.Text=Text2.Text&Chr(i+Asc(A)&:&str(zimu(i)&If j Mod 5=0 Then Text2.Text=Text2.Text&Chr(13)&Ch