江苏省二级VB笔试三年真题及答案.doc

2009年春江苏计算机等级考试二级VB试卷 第一部分计算机基础知识1. 在下列有关现代信息技术的一些叙述中，正确的是( ) 。 A.集成电路是20世纪90年代初出现的，它的出现直接导致了微型计算机的诞生 B.集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件 C.目前所有数字通信均不再需要使用调制解调技术和载波技术 D.光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量 .2. 最大的10位无符号二进制整数转换成八进制数是( ) .。 A.1023 B.1777 C.1000 D.10243. 在下列有关目前PC机CPU的叙述中，错误的是( )。 A.CPU芯片主要是由Intel公司和AMD公司提供的 B.双核是指PC机主板上含有两个独立的CPU芯片 C.Pentium 4微处理器的指令系统由数百条指令组成 D.Pentium 4微处理器中包含一定容量的Cache存储器4. 在下列有关当前PC机主板和内存的叙述中，正确的是( ) 。 A.主板上的BIOS芯片是一种只读存储器，其内容不可在线改写 B.绝大多数主板上仅有一个内存插座，因此PC机只能安装一根内存条 C.内存条上的存储器芯片属于SRAM(静态随机存取存储器) D.目前内存的存取时间大多在几个到十几个ns(纳秒)之间5. 在下列有关PC机辅助存储器的叙述中，正确的是( )。 A.硬盘的内部传输速率远远大于外部传输速率 B.对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度 C.使用USB 2.0接口的移动硬盘，其数据传输速率大约为每秒数百兆字节 D.CD-ROM的数据传输速率一般比USB 2.0还快6. 在下列PC机I/O接口中，数据传输速率最快的是( )。 A.USB 2.0 B.IEEE-1394 C.IrDA (红外) D.SATA 7. 计算机软件可以分为商品软件、共享软件和自由软件等类型。在下列相关叙述中，错误的是( )。 A.通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的 B.共享软件通常是一种买前免费试用的具有版权的软件 C.自由软件的原则是用户可共享，并允许拷贝和自由传播 D.软件许可证是一种法律合同，它确定了用户对软件的使用权限8. 人们通常将计算机软件划分为系统软件和应用软件。下列软件中，不属于应用软件类型的是( ) A.AutoCAD B.MSN C.Oracle D.Windows Media Player9. 在下列有关Windows 98/2000/XP操作系统的叙述中，错误的是( )。 A.系统采用并发多任务方式支持多个任务在计算机中同时执行 B.系统总是将一定的硬盘空间作为虚拟内存来使用 C.文件(夹)名的长度可达200多个字符 D.硬盘、光盘、优盘等均使用FAT文件系统10. 在下列有关算法和数据结构的叙述中，错误的是( ) 。 A.算法通常是用于解决某一个特定问题，且算法必须有输入和输出 B.算法的表示可以有多种形式，流程图和伪代码都是常用的算法表示方法 C.常用的数据结构有集合结构、线性结构、树形结构和网状结构等 D.数组的存储结构是一种顺序结构11.因特网的IP地址由三个部分构成，从左到右分别代表( )。 A.网络号、主机号和类型号 B.类型号、网络号和主机号 C.网络号、类型号和主机号 D.主机号、网络号和类型号12.在下列有关ADSL技术及利用该技术接入因特网的叙述中，错误的是 ( ) 。 A.从理论上看，其上传速度与下载速度相同 B.一条电话线上可同时接听/拨打电话和进行数据传输 C.利用ADSL技术进行数据传输时，有效传输距离可达几公里 D.目前利用ADSL技术上网的计算机一般需要使用以太网网卡13.人们往往会用我用的是10M宽带上网来说明白己计算机连网的性能，这里的10M 指的是数据通信中的( ) 指标。 A.最高数据传输速率 B.平均数据传输速率 C.每分钟数据流量 D.每分钟IP数据包的数目14?计算机局域网按拓扑结构进行分类，可分为环型、星型和( )型等。 A.电路交换 B.以太 C.总线 D.对等15.网络信息安全主要涉及数据的完整性、可用性、机密性等问题。保证数据的完整性就是( )。 A.保证传送的数据信息不被第三方监视和窃取 B.保证发送方的真实身份 C.保证传送的数据信息不被篡改 D.保证发送方不能抵赖曾经发送过某数据信息16.某计算机系统中，西文使用标准ASCII码、汉字采用GB2312编码。设有一段纯文本，其机内码为CB F5 DO B4 50 43 CA C7 D6 B8，则在这段文本中含有：( )。 A.2个汉字和1个西文字符 B.4个汉字和2个西文字符 C.8个汉字和2个西文字符 D.4个汉字和1个西文字符17.以下关于汉字编码标准的叙述中，错误的是( ) 。 A.GB 2312标准中所有汉字的机内码均用双字节表示 B.我国台湾地区使用的汉字编码标准BIG 5收录的是繁体汉字 C.GB 18030汉字编码标准收录的汉字在GB 2312标准中一定能找到 D.GB 18030汉字编码标准既能与UCS(Unicode)接轨，又能保护已有中文信息资源18.若波形声音未进行压缩时的码率为64kb/s，已知取样频率为8kHz，量化位数为8，那么它的声道数是( )。 A.1 B.2 C.4 D.8 19.从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和信息分析系统等。在下列几种信息系统中，不属于业务处理系统的是( ) 。 A.DSS B.CAI C.CAM D.OA 20.在下列有关信息系统开发、管理及其数据库设计的叙述中，错误的是 ( ) 。 A.常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对象方法和CASE方法等 B.在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来表达数据和处理过程的关系 C.系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用E-R模型作为描述逻辑结构的工具 D.从信息系统开发过程来看，程序第二部分Visual Basic程序设计一、选择题(用答题卡答题，答案依次填在2130答题号内)21在列表框Listl中有若干列表项，可以删除选定列表项的语句是( ) AList1.text= BList1List(ListlListIndex)= CList1.Clear DList1.RemoveItem List1.ListIndex22执行 22 语句时，会出现出错提示信息( )。 APrint 5+7=14 BPrint 16384*2 CPrint 32768*2 DPrint 14+3223.数学表达式 对应的VB表达式是( ) 。A。(e(2*x5)*Log(x)+(Sin(2x)3)/Sqr(Sin(x)-Cos(x2) B(Exp(2*314159*x一5)*Log(x)+(Sin(2*x)3)/Sqr(Sin(x)一Cos(x2) C(Exp(2*x5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)Cos(x2) De(2*3.14159*x一5)*Ln(x)+(Sin(2*x)3)/Sqr(Sing(x)Cos(x2)24以下关于数组的说法中，错误的是( )。 A使用了Preserve予句的ReDim语句，只允许改变数组最后一维的上界 B对于动态数组，ReDim语句可以改变其维界但不可以改变其数据类型 CErase语句的功能只是对固定大小的数组进行初始化 DLBound函数返回值是指定数组某一维的下界25下列有关过程的说法中，错误的是( ) 。 A在Sub或Function过程内部不能再定义其它Sub或Function过程 B对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合 C递归过程既可以是递归Function过程，也可以是递归Sub过程 D可以像调用Sub过程一样使用Call语句调用Function过程26以下有关对象属性的说法中，错误的是( )。 A工具箱中的控件并不是VB中所有的控件 B若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件 C对象的Name属性在运行时不能改变 D对象的所有属性都可以在属性窗口中设置27以下关于变量作用域的叙述中，正确的是：( )。 A窗体中凡用Private声明的变量只能在某个指定的过程中使用B模块级变量只能用Dim语句声明C.凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量 28.表达式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是( ). A.1 B.-1 C.-2 D.-329.若要使逻辑表达式xy Xor Y结果为True，则x、Y、z的取值应为下列选项中的( )。 A.X=3、Y=3、Z=4 B.X=2、Y=1、Z=2 C.x=1、Y=3、Z=2 D.x=2、Y=2、Z=230.在一个多窗体程序中，可以仅将窗体Form2从内存中卸载的语句是( ). A.Form2.Unload BUnload Form2 CForm2.End DForm2.Hide二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)1.执行下面程序,单击Commandl,则图片框中显示的第一行是(1)，显示的第二行是(2) ，最后一行显示的是 (3) 。 Private Sub Command1_Click() Dim a(3，3)As Integer Dim i As Integer,j As Integer For i=1 To 3 For j=3 To 1 Step -1 If i=j Then a(i,j)=i-j Else a(i，j)=j-i End If Next j Next i For i=1 to 3 For j=3 To 1 Step -1 Picture1.Print a(i,j); Next j PicturelPrint Next i EndSub2.运行下面程序,如果连续三次单击命令按钮之后，A数组共有(4) 个元素；数组元素A(2)的值是(5)，A(5)的值是(6) Option Explicit Option Base l Private Sub Command1_Click() Static A() As Integer,N As Integer Dim I As Integer,K As Integer K=N N=N+2 ReDim Preserve A(N) For I=K+1 To N A(I)=I*N+1 Next I ForI=1 To N Print A(I)； Next I Print EndSub3运行下面的程序，单击commandl，在窗体上显示的变量A的值为( 7 ),变量B的值为( 8 ) Option Explicit Dim A As Integer Private Sub Command1_Click() Dim B As Integer B=3 A=4 B=Fun(Fun(A,B+2),A)+B Print A,B EndSub Private Function Fun(N As Integer,K As Integer) N=N+A K=N-K Fun=N+K+A End Function 4执行下面的程序，单击command1,窗体上显示的第一行是( 9 )，第二行是( 10 ),第四行是( 11 ),最后一行是( 12 ) Option Explicit Private Sub Command1_Click() Dim n As Integer n=5 Call test(n) Print n End Sub Private Sub test(ByVal n As Integer) Dim i As Integer,S As String If n0 Then For i=l To n S=S & CStr(i) Next i Print S Call test(n-2) Else Print 0VER EndIf EndSub 5.运行下列程序，单击Command1，在窗体上显示的第一行内容是 ( 12 ),第二行的内容是( 14 )，第三行的内容是( 15 )(A的ASCII码是65,z是90) Option Explicit Private Sub Commandl_Click() Dim i As Integer,st As String，n As Integer,p As String*1 P=B For i=3 To 1 Step -1 n=Asc(p)-i If n65 Then n=n+26 st=Chr(n) st=st & F(i) Print st Next i EndSub Private Function F(n As Integer) Dim i As Integer Static S As Integer For i=1 To n s=s+i Nexti F=S End Function 6?用以下公式求f(x)的值。当通项的绝对值小于10-7时停止计算，x的值由键盘输入。 f(x)=a1x1-a2x2+a3x3-+(-1)n+1anxn+ |X| 1其中 a1=1，a2=2，an= ,n=3,4,5Option ExplicitPrivate Sub Commandl_Click()、 Dim x As Single，fx As Single Dim a As Single，a1 As Single,a2 As Single Dim t As Single a1=l：a2=2 x=text1 If ( 16 ) Then MsgBox(x必须在-1-1之间) ExitSub End If fx=a1*x-a2*x*x t=(-1)*x*x DO a=1/(al+a2) t=(-1)*x*x fx=( 17 ) al=a2 ( 18 ) Loop Until Abs(a*t)Right为止。Right的值即为不同的数的个数。 Option Explicit OptionBase 1 Private Sub Commandl_Click() Dim A() As Integer,N As Integer,I AS IntegerDim OP As IntegerN=InputBox(请输入数据个数, ,10)ReDim A(N) RandomizeFor I=1 To N A(I)=Int(Rnd*10)+1 Text1=Text1 & A(1) & Next ICall Statistic(A,OP)Text2=有 & oP & 个不同的数:For I=1 To OP Text2=Text2 & A(I) & Next IEnd SubPrivate Sub Statistic(A() As Integer,Right As Integer) Dim Left As Integer,K As Integer,I As Integer Right=( 23 ) Left=2 Do While Left & S Next iEnd SubPrivate Sub convert(ch As String，S As String) Dim m As Integer,k As Integer,n As Integer,i As Integer s= ( 28 ) n=Asc(ch) Do While n0 ( 29 ) S=m & S If m=1 Then k=k+1 End If n=n2 Loop For i=1 To 7-Len(s) 将字符的二进制代码补足7位 S=0 & S Next i If k Mod 2=0 Then ( 30 ) Else S=0 & S End If End Sub 答案: 2009年(春)笔试试卷 。 第一部分计算机基础知识 (1)D (2)B (3)B (4)D (5)B (6)D (7)A (8)C (9)D (10)A (11)B (12)A (13)A (14)C (15)C (16)B (17)C (18)A (19)A (20)C ， 第二部分Visual Basic程序设计一、选择题 (21)D (22)B (23)B (24)C (25)B (26)D (27)C (28)D (29)A(30)B二、填空题 ， (1)2 1 0 (2)1 0 1 (3)0 1 2 (4)6 f5)5 (6)31 (7)19 (8)68 f9)12345 (10)123 (11)OVER (12)5 ， (13)Y6 (14)Z9 (15)A10 (16)Abs(x)=1 (17)fx+a*t (18)a2=a(19)0 To Listl.ListCount-1 (20)Listl.List(I)(21)Scor=0 (22)Mid(Anw，J，1)=Mid(Exact，J，1)(23)UBound(A) (24)Left-1(25)I=0 (26)Right=Right-1(27)ch=Mid(str，i，1) (28) (29)m=n Mod 2 (30)s=1 & s 2009秋VB考试真题及参考答案第一部分:计算机基础知识1.下列关于个人移动通信的叙述中,错误的是_ A.第1代个人移动通信(简称1G)采用的通信技术是数字通信技术 B.目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术(简称2G) C.第3代移动通信技术(简称3G)将无线通信与互联网、多媒体通信相结合 D.3G有多个国际技术标准,其中也有我国自主制定的3G技术标准。 2.在下列有关集成电路的叙述中,正确的是( )。 A.现代集成电路所使用的半导体材料都是硅 B.所有的集成电路都是数字集成电路 C.Moore定律认为单块集成电路的集成度平均每年翻一番 D.Intel公司微处理器产品Core 2 Duo,其集成度已高达数千万个电子元件3.与十六进制数AB等值的八进制数是( ) 。 A. 253 B.254 C.171 D.1724.在下列有关PC机CPU的叙述中,错误的是( )。 A.CPU中包含几十个甚至上百个寄存器,用来临时存放数据、指令和控制信息 B.所有PC机的CPU都具有相同的指令系统,因而PC机可使用相同的软件 C.一台计算机至少包含1个CPU,也可以包含2个、4个、8个甚至更多个CPU D.Intel公司是国际上研制和生产CPU的主要公司,我国也能生产CPU5.在下列有关PC机主板上部件的叙述中,错误的是( ) 。 A.BIOS保存在主板上的一个闪存中,其内容在关机后通常不会改变 B.CMOS中保存有用户设置的开机口令,关机后主板上的电池继续给CMOS供电 C.启动CMOS设置程序可以重新设置CMOS中的数据,该程序是BIOS的组成部分 D.网卡通常集成在主板上,由主板上独立的IC实现其功能,与芯片组无关6.从PC机存储器的层次结构来看,下列存储器中存取速度最快的是( )。 A.Cache存储器 B.RAM和ROM C.寄存器 D.硬盘和优盘 7.在下列4种PC机常用I/O接口中,数据传输速率最高的是7。 A.PS/2 B.SATA C.IEEE-1394b D.USB 2.08.在下列有关I/O操作、I/O总线和I/O接口的叙述中,错误的是( )。 A.I/O操作的任务是在I/O设备与内存的指定区域之间传送信息 B.I/O总线传送的只能是数据信号,它不能传送控制信号和地址信号 C.不同类型的I/O接口,其插头/插座以及相应的通信规程和电气特性通常各不相同 D.并行总线的数据传输速率不一定比串行总线高9.在下列有关PC机I/0设备的叙述中,错误的是( )。 A.数码相机的成像芯片可以为CCD器件或CMOS芯片,目前大多数用CCD器件 B.平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚筒式扫描仪 C.常见的宽屏液晶显示器的宽度与高度之比为16:9(或16:10) D.目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据10.在下列有关计算机软件的叙述中,错误的是10 。 A.程序设计语言处理系统和数据库管理系统被归类为系统软件 B.共享软件是一种具有版权的软件,它允许用户买前免费试用 C.机器语言和汇编语言与特定的计算机类型有关,取决于CPU D.目前PC机只能使用Windows系列操作系统,均不能使用UNIX和Linux操作系统11.在下列常用的PC机软件中,编辑的文档(内容)能直接保存为图片类型(例如JPEG文件类型)的是( )。 A.Microsoft Word B.Microsoft Excel C.Microsoft PowerPoint D.Microsoft FrontPage12.在下列关于以太网(局域网)的叙述中,错误的是( )。 A.在共享式以太网中,任何时间只允许一对计算机进行通信 B.在交换式以太网中,每台计算机均独享相同的带宽,其带宽仅由交换机决定 c.无论是共享式以太网还是交换式以太网,网络中的所有计算机都要安装以太网网卡 D.无论是共享式以太网还是交换式以太网,它们的数据帧和MAC地址格式均相同13.连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是( ) 。 A.211.256.49.68 B.8 C.8 D.14.为了将异构的计算机网络互相连接起来,必须使用的网络设备是( )。A.调制解调器 B.以太网集线器 c.以太网交换机 D.路由器 15.下列网络协议中,与发送电子邮件有关的是( ) 。 A.Http B.FTP C.SMTP D.TELNET16.在下列有关字符集及其编码的叙述中,错误的是( ) 。 A.基本的ASCII字符集共有128个字符,每个字符使用7个二进位进行编码 B.GB2312字符集中收录了6千多个汉字,每个字符在机内通常使用双字节编码 C.GBK字符集中的字符也采用双字节编码,且该字符集收录了部分繁体汉字 D.GB18030字符集中所有的字符均采用4字节编码,因此该字符集的代码空间很大17.目前数码相机拍摄的照片在保存时通常采用的文件类型是( ) 。 A.BMP B.GIF C.JPEG D.TIF18.MP3是数字波形声音的一种压缩编码文件格式,它采用的压缩编码标准属于( ) 。 A.MPEG-1 B.MPEG-2 C.MPEG-4 D.Dolbv AC-319.使用Macromedia公司的Flash软件制作的动画是一种矢量图形,在保存为动画文件时其文件扩展名通常为( )。 A.GIF B.SWF C.AVI D.MPG 。20.在计算机应用中,CAD和CAM是典型的信息系统。它们属于( )。 A.管理业务系统 B.辅助技术系统 c.信息检索系统 D.信息分析系统第二部分:vb程序设计21.要将焦点设置在某个控件上,以下四个选项中正确的是_ A.只能使用鼠标直接点击该控件 B.只能使用Tab键将焦点移到该控件 C.只能在程序中调用该控件的setfocus方法 D.A、B、C三选项中涉及的方法均可用 22.在下列属性中,属于CommandButton控件、ListBox控件共有的是( )。 A.Caption、Text B.Visible、Font C.Caption、Visible D.List、Visible 23.数学表达式 对应的visual Basic表达式是( ) 。 A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y) B.(Sin(30* /180)+sqr(Ln(x)+y)/(2* +Exp(x+y) C.Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y) D.(Sin(30*3.14159/180)+Sqr(Log(x)+Y)/(2*3.14159+Exp(x+y) 24.下列的关系表达式中,运算结果为True的是( )。 A.CInt(1.5)=Int(1.5) B.Fix(1.5)=Int(1.5) C.Fix(-1.5)=CInt(-1.5) D.Fix(-1.5)=Int(-1.5) 25.下列有关数组的叙述中,不正确的是( ) 。 在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量 数组作为形式参数时,传递的是每个数组元素的值 在窗体模块的通用声明处可以用Public说明一个全局数组 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A. B. c. D. 26.以下关于文件的叙述中,错误的是( )。 A.用Output模式打开一个顺序文件,即使不对它进行写操作,原来的内容也被清除 B.可以用Print#语句或Write#语句将数据写到顺序文件中 C.若以Output、Append、Random、Binary方式打开一个不存在的文件,系统会出错 D.顺序文件或随机文件都可以用二进制访问模式打开 27.下列有关控件数组的说法中,错误的是( )。 A.控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组 B.控件数组中的所有控件不得具有各自不同的属性设置值 C.控件数组中的所有控件共享同一个事件过程 D.控件数组中每个元素的下标由控件的Index属性指定 28.以下Case语句中,能正确描述Y的绝对值大于6的是( )。 A.Case Abs(Y)6 B.Case -6 To 6 C.Case Not (-6 To 6) D.Case Is6 29.若在模块中用Private Function Fun(A As Single,B As Integer)As Integer定义了函数Fun。调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是( )。A.Fun 3.14,J B.Call Fun(I,365) C.Fun (I),(J) D.K=Fun(24”,”35”) 30.若需要在同一窗体内安排两组相互独立的单选按钮(OptionButt.Dn),可使用30控件做容器将它们分开。 TextBox PictureBox Image Frame A.或 B.或 c.或 D.或 二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行) 1.执行下面程序,单击Commandl,则数组元素a(1,2)的数值是 ( 1 ),a(2,3)的数值是(2),a(4,3)的数值是(3)。 Option Explicit Private Sub Commandl_Click() Dim a(4,4)As Integer,i As Integer Dim j As Integer,k As Integer,n As Integer n=6：k=2 Do For i=1 To 4 For j=1 To 4 If i+j=k Then a(i,j)=n n=n-1 End If Next j Next i k=k+1 Loop Until k8 For i=1 To 4 For j=1 To 4 print Right(“ “ & a(i,j),3); Next j Print Next i End Sub 2.执行下面程序,单击Commandl,窗体上显示的第一行是( 4 ) ,第三行是( 5 ) ,最后一行是(6) 。 .Option Explicit Private Sub Commandl_Click() Dim i As Integer,s As Integer For i=1 To 9 Step 3 . s=fun(i)+fun(i) Print s. Next i End Sub Private Function fun(m As Integer)As Integer Static a As Integer If m Mod 2=0 then a=a+1 ? m=m+1 Else a=a+2 m=m+2 End If fun=a+m Print fun End Function 3.运行下面的程序,单击Commandl,窗体上显示的第一行是 ( 7 ) ,第二行( 8 ) ,最后一行是( 9 ) 。 Option Explicit Private Sub Commandl_Click() Dim a As Integer Dim b As Integer a=1 b=2 Print fun(a+2),fun(2*a,b) Print a;b End Sub Private Function fun(x As Integer,ByVal y As Integer)As Integer x=x+2 y=x-y+3 fun=x+y Print x ;y ;fun End Function 4.执行下面的程序,单击Commandl,窗体上显示的第二行是 (10) ,第三行(11) ,第四行是(12) 。 Option Explicit Private Sub Command1_Click() Dim N As Integer,K As Integer N=36 : K=5 Print Trans(N,K) End Sub Private Function Trans(N As Integer,K As Integer)As String Dim R As Integer If N0 Then R=N Mod K If R3 End Sub Private Sub encrypt(a As String,b As String) Dim sp As String,n As Integer,i As Integer sp=0000” n=Len(b)-Len(a) If n0 Then a=Right(sp & a,Len(b) For i=1 To Len(b) If Mid(a,i,1)=Mid(b,i,1)Then Mid(a,i,1)=”0” Else Mid(a,i,1)=”1” End If Next i End Sub . 6.下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、13/21、前若干项的和,项数由文本框输入。试完善程序使其达到功能要求。Option Explicit Private Sub Calculate_Click() Dim n A