江苏省计算机二级VB考试真题与参考答案解析

《江苏省计算机二级VB考试真题与参考答案解析》由会员分享，可在线阅读，更多相关《江苏省计算机二级VB考试真题与参考答案解析（56页珍藏版）》请在装配图网上搜索。

1、 2007年秋季vb考试真题1 下面关于比特的叙述中，错误的是( 1 ) A比特是组成数字信息的最小单位 B比特只有“0”和“1”两个符号 C比特既可以表示数值和文字，也可以表示图像和声音 D. 比特”1”总是大于比特“0” 2 在下列有关集成电路的叙述中，错误的是 ( 2 ) A现代集成电路使用的半导体材料主要是硅 B大觑模集成电路一般以功能部件、子系统为集成对象 C我国第2代居民身份证中包含有IC芯片 D? 目前超大规模集成电路中晶体管的基本线条已小到l纳米左右3 在下列有关通信技术的叙述中，错误的是 ( 3 ) A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成 B.通信可分

2、为模拟通信和数字通信，计算机网络属于模拟通信 C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质4.下面是关于PC机主存储器的一些叙述，其中正确的是( 4 ) A.主存储器是一种动态随机存取存储器(RAM) B.主存储器的基本编址单位是字(即32个二进位) C.目前市场上销售的PC机，其内存容量可达数十GB D.所有PC机的内存条都是通用的：可以互换5 现行PC机中，IDE(或SATA)接口标准主要用于( 5 ) A打印机与主机的连接 C声卡与主机的连接 B显示器与主机的连接 D硬盘与主机的连接6. 下列有关PC机

3、的CPU、内存和主板的叙述中，正确的是( 6 ) 。 A大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片 B所有Pentium系列微机的内存条相同，仅有速度和容量大小之分 C主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关D主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息7.下列有关目前Pc机辅助存储器的叙述中，错误的是 ( 7 ) A硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多 B硬盘的内部传输速率一般小于外部传输速率 c优盘采用Flash存储器技术，属于半导体存储器 D目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起

4、的光驱8.下面有关Windows操作系统，(95以后版本)的叙述中，错误的是 ( 8 ) 。AWindows操作系统支持系统中多个任务的并发执行B利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况C系统规定文件名最多由128个字符组成DVista是Microsoft公司推出的Windows XP操作系统的后继版本9.算法设计是编写程序的基础。下列关于算法的叙述中，正确的是 ( 9 ) 。A 算法必须产生正确的结果 C 算法可以没有输出B 算法必须具有确定性 D算法的表示必须使计算机能理解10因特网使用TCPIP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机

5、都有一个IP地址。下面不能作为IP地址的是( 10 )A 12034018 C 21183348B. 201.256.39.68 D 3725068011.常用局域网有以太网、FDDI网等，下面的叙述中错误的是 ( 11 )A? 总线式以太网采用带冲突检测载波侦听多路访问(CSMA/CD)方法进行通信B FDDI网和以太网可以直接进行互连C? 交换式集线器比总线式集线器具有更高的性能，它能提高整个网络的带宽D? FDDI网采用光纤双环结构，具有高可靠性和数据传输的保密性12.某用户在WWW浏览器地址栏内键入一个URL“的“/index.htm”代表( 12 )A协议类型 C路径及文件名B主机域

6、名 D用户名13.交换式以太网与总线式以太网在技术上有许多相同之处，下面叙述中错误的是( 13 )A.使用的传输介质相同 C.传输的信息帧格式相同B.网络拓扑结构相同 D.使用的网卡相同14.下面是关于我国汉字编码标准的叙述，其中正确的是 ( 14 ) AUnicode是我国最新发布的也是收字最多的汉字编码国家标准 B不同字型(如宋体、楷体等)的同一个汉字在计算机中的内码不同 C在GBl8030汉字编码标准中，共有2万多个汉字 DGBl8030与GB2312、GBK汉字编码标准不能兼容15数字图像的文件格式有多种，下列哪一种图像文件能够在网页上发布且可具有动画效 果( 15 ) ABMP BG

7、IF CJPEG DTIF16声卡是获取数字声音的重要设备，在下列有关声卡的叙述中，错误的是 A声卡既负责声音的数字化(输入)，也负责声音的重建(输出) B声卡既处理波形声音，也负责MIDI音乐的合成 。 C声卡中的数字信号处理器(DSP)在完成数字声音编码、解码及编辑操作中起着重 要的作用 D因为声卡非常复杂，所以它们都被做成独立的PCI插卡形式17彩色图像所使用的颜色描述方法称为颜色模型。显示器使用的颜色模型为RGB三基色模型，PAL制式的电视系统在传输图像时所使用的颜色模型为 AYUV BHSB CCMYK18在信息系统的结构化生命周期开发方法中，绘制E-R图属于( 18 )阶段的工作

8、A系统规划 B 系统分析 C系统设计 D 系统实施19在下列有关Microsoft Word 20002003(中文版)功能的叙述中，( 19 ) A起始页的页码可以不为1 B利用菜单命令，可更改所选英文文本的大小写 C利用菜单命令“字数统计”，可以统计出当前文档的行数和段落数 D表格中的数据不可排序，也不能利用公式进行统计计算20在下列有关Microsoft PowerPoint 2001/2003(中文版)功能的叙述中，错误的是( ) A可通过“另存为”操作，将每张幻灯片保存为一个图片文件 B幻灯片的大小是固定的，用户不可以对其进行设置 C在排练计时的基础上，可以将幻灯片设置为循环放映 D

9、可以对字体进行替换，例如将幻灯片中的“宋体”替换为“楷体”21.下列语句中，正确的是_ATextlSetFocus BFormlClear CLabellSetFocus DListlCls22创建一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入_。 A文件($F) B文件(&F) C文件(#F) D文件(F)23数学表达式的VB算术表达式为_ 。 ASin(27)+Sqr(X+Exp3)(X+Y) BSin(27*314159180)+Sqr(X+Exp(3)Abs(X+y) CSin(27*314159180)+Sqr(X+e3)Abs(X+Y)

10、DSin(27*pi180)+Sqr(X+Exp(3)Abs(X+Y)24以下说法不正确的是_。 A使用不带关键字Preserve的ReDim语句可以重新定义数组的维数 B使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界 c使用不带关键字Preserve的ReDim语句可以改变数组的数据类型 D使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化25下列_是合法的变量名。 Aabs B-al Ccdc d DAbe_1026要向文件dataltxt添加数据，正确的文件打开命令是_。 AOpen”dataltxt”For Output As #1

11、 BOpen”dataltxt”For Input As #1 COpen”dataltxt”For Append As #5 DOpen“dataltxt“ For Write As #527以下对数组参数的说明中，错误的是_ 。 A在过程中可以用Dim语句对形参数组进行声明 B形参数组只能按地址传递 c实参为动态数组时，可用ReDim语句改变对应形参数组的维界 D只需把要传递的数组名作为实参，即可调用过程28设a=3，b=2，c=1，运行print abc的结果是_。 ATrue BFalse C1 D出错29下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换

12、为87)的是_。 Val(Right(X，1)&Left(X，1) Val(Right(Str(X)，1)Left(Str(X)，1) Val(Right(CStr(X)，1)Left(CStr(X)，1) Val(Mid(X，2，1)+Mid(X，1，1)A B c D30下列_是正确的VB常量。AD-6 BE-6 C5D D5E-6 二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行) 1执行下面程序，单击Commandl，则窗体上显示的第一行是 (1) ，第二行是(3) ，第三行是(3) 。 Option Explicit Private Sub CommandlClick

13、() Dim a As String，i As Integer Dim X As String，z As String a=iamstudent i=InStr(5，a，”d”) Do x=Mid(a，i，3) z=Right(X，1) z=UCase(xZ) i=i-2 Print z Loop Until i=1 End Sub 2执行以下程序，单击Commandl，则在Picturel上显示的第一行是 (4) ，第二行是(5) ，第三行是(6) 。 Option Explicit Private Sub Commandl_Click() Dim A(3，3)As Integer，i As

14、 Integer，J As Integer Dim k As Integer i=3：j=2：A(i，j)=l：k=1 Do Until k9 k=k+1 If i+13 Aod j+1=3 Then i=1：J=j+1 ElseIf i+13 Then i=i+1：j=1 Elself i+13 And j+13 Then i=i-1 ElseIf i+1=3 And j+1=3 And A(i+1，j+1)0 Then i=i-1 Else i=i+1：j=j +1 End If A(i,j)=k Loop For i=1 To 3 For j=1 To 3 Picture1.Print

15、A(i,J); Next J Next IEnd Sub3执行下面的程序，单击Commandl，则窗体上第一行显示的是 (7) ，第二行显示的 是(8) 。 Option Explicit Dim X As Integer Private Sub Commandl_Click() Dim Y as Integer X=10：Y=2 Call process(Y) Print X，Y Call process(Y) Print X，Y End Sub Private Sub process(n As Integer) Dim Y As Integer If n0 Then X=Xn Y=X El

16、se X=X+n Y=X+2 End If n=-n End Sub 4执行下面的程序，连续三次单击命令按钮Commandl之后，A数组共有 (9) 个元 素；数组元素A(2)的值是(10) ，A(4)的值是(11) 。 Option Explicit Option Base 1 Private Sub Commandl_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 Fo

17、r i=1 To n Print A(i)； Next i Print End Sub 5执行下面的程序，单击Commandl，在窗体界面上显示的第一行是 (12) ，第二行是 (13) ，第三行是(14) ，第四行是(15) 。 Option Explicit Private Sub Commandl_Click() Dim a As Integer，b As Integer，i As Integer i=1218 a=i100 b=i Mod 100 If b0 Then Print a Print b Print Lcd(a)，(b)；a；b Print Lcd(a，b)；a；b End

18、 If End Sub Private Function Lcd(x As Integer，Y As Integer)As Integer Dim d As Integer If x d=x：x = Y：Y = d End If d=X Do If x Mod Y=0 Then Lcd=x Exit Do Else X=x+d End If LoopEnd Function6.本程序的功能是利用无穷级数求cos(x)的近似值,已知: 当第n项的绝对值小于等于10-7时计算终止。 Option Explicit Private Sub Commandl_Click() Dim X As Sing

19、le，n As Integer，sum As Single Dim a As Single x=Textl ( 16 ) a=1 n=1 Do a=-a a=( 17 ) sum=sum+a n=n+1 Loop Until( 18 ) Text2=sum End Sub7定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。以下程序的功能是求一个44方阵的范数。该方阵的数据是随机生成的-2020之间的整数。 Option Explicit Option Base 1 Private Sub Commandl_Click() Dim a(4，4) As Integer Dim i As I

20、nteger，j As Integer For i=1 T0 4 For j=1 To 4 a(i，j)= ( 19 ) PicturelPrint Right( &Str(a(i，j)，4)； Next j PicturelPrint Next i Textl.Text= ( 20 ) End Sub Private Function fan(a()As Integer)As Integer Dim b(4) As Integer，max As Integer Dim i As Integer，j As Integer For i=1 To 4For j=1 To 4 b(j)=( 21 )

21、 Next J Next i max=b(1) For i=2 To 4 If max Next i fan=max End Function 8下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不 同数字组成。算法提示：函数Validate用于验证一个4位数是否由4个不同数字组成。在函 数中用A数组的各个元素分别对应数字09，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。Option Explicit Private Sub Commandl_Click() Dim i As Integer，Flg As Boolean For i=123

22、4 To 4321 ( 22 ) Call Prime(i，Flg) If Flg Then If Validate(i)Then Textl=Textl & i & vbCrLf End If End If Next i End Sub Private Sub Prime(n As Integer，f As Boolean) Dim k As Integer For k=2 To Sqr(n) ( 23 ) Next k f=True End Sub Private Function Validate(n As Integer)As Boolean Dim A(0 To 9)As Integ

23、er，s As String，i As Integer Dim sl As String*1 ( 24 ) For i=1 To Len(s) sl=Mid(s，i，1) ( 25 ) Next i If A(1)+A(2)+A(3)+A(4)=4 Then ( 26 ) End If End Function 9下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。 Option Explicit Dim a( )As IntegerPrivate Sub Form_Activate() Dim

24、i As Integer ReDim a(10) For i=1 To 10 a(i)=(i-1)*10+1 Textl=Textl & Str(a(i) Next i Text2.SetFocusEnd SubPrivate Sub Commandl_Click() Dim n As Integer，i As Integer n=Text2 For i=1 To UBound(a) If ( 27 )Then Exit For Next i ( 28 ) For i=1 To UBound(a) Text3=Text3 & Str(a(i) Next iEnd SubPrivate Sub

25、inst(P()As Integer，n As Integer，k As Integer) 数组元素移位并实现插入 Dim i As Integer ( 29 ) For i=UBound(P)-l To k Step -1 ( 30 ) Next i P(k)=nEnd Sub参考答案:21.A22.B 23.B.24.C.25.D.26.C27A28B29D30D填空(1)DENN(2)TUDD(3)MSTT(4)4 9 2(5)3 5 7 (6)8 1 6 (7)8 -2 (8)6 -2 (9)6 (10)5 (11)17 (12)12 (13)18 (14)36 12 18 (15)3

26、6 36 12 (16)sum=1 (17)a*x*x/(2*n*(2*n-1) (18)Abs(a)=0.0000001 (19)Int(Rnd*41)-20 (20)fan(a) (21)b(j)+Abs(a(i,j) (22)Flg=False(23)If n Mod k=0 Then Exit Sub (24)s=Cstr(n)或s=n (25)A(Val(s1)=1或A(s1)=1 (26)Validate=True (27)n (28)Call Inst(a,n,i)或inst a,n,i (29)Redim Preserve p(UBound(p)+1) (30)p(i+1)=p

27、(i)二：编程题目(26分)编写一个查找介于整数A、B之间所有同构数的程序，若一个数出现在自己平方数的右端，则称此数为同构数，例如：5在52=25的右端，25在252=625的右端，故5和25为同构数2008年春江苏省计算机等级考试VB试题及参考答案第一部分计算机基础知识1 在下列有关微电子技术与集成电路的叙述中，错误的是( 1 ) 。 A微电子技术是以集成电路为核心的技术 B集成度是指单个集成电路所含电子元件的数目 CMoore定律指出，单个集成电路的集成度平均每1824个月翻一番 DIC卡仅有存储器和处理器，卡中不可能存储有软件2 在下列有关通信技术的叙述中，错误的是( 2 ) 。 A目前

28、无线电广播主要还是采用模拟通信技术 B数字传输技术最早是被长途电话系统采用的 C数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”) D局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号3 CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施? ( 3 ) 增加CPU中寄存器的数目 提高CPU的主频 增加CPU中高速缓存(cache)的容量 优化BIOS的设计 A、和 B、和 C和 D、和4 下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘等均能连接的接口是( 4 ) A RS-232 B IEEE-1394 C USB D IDE5

29、下列有关PC机外部设备的叙述中，错误的是 （ 5 ） 。 A扫描仪的工作过程主要基于光电转换原理，分辨率是其重要性能指标之一 B制作35英寸的照片(图片)，数码相机的CCD像素必须在600万以上 C集成显卡(指集成在主板上的显卡)的显示控制器主要集成在芯片组中 D存折和票据的打印，目前主要是采用针式打印机6 下列有关PC机辅助存储器的叙述中，错误的是( 6 ) 。 A硬盘的盘片转动速度特别快，目前一般为每秒数千转 B. 近年来使用的串行ATA(SATA)接口硬盘，其传输速率比采用IDE接口的要快 C目前移动硬盘大多采用USB 20接口，其传输速率可达每秒数十兆字节 D. 40倍速的CD-ROM

30、驱动器的速率可达6MBs左右7 在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是 （ 7 ）。 A通常用户需要付费才能得到商品软件的合法使用权 B共享软件是一种“买前免费试用”的具有版权的软件 C自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播 D软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利8 下面有关Windows操作系统多任务处理的叙述中，正确的是 ( 8 ) 。 A用户如果只启动一个应用程序工作(如使用Word写作)，则该程序自始至终独占CPU B 由于CPU具有多个执行部件，所以操作系统才能同时进行多个任务的处理 C前台任务和后台任务都能得到

31、CPU的响应 D 处理器调度程序根据各个应用程序运行所需要的时间多少来确定时间片的长短9 从算法需要占用的计算机资源角度分析其优劣时，应考虑的两个主要方面是 （ 9 ）。 A空间代价和时间代价 C可读性和开放性 B 正确性和简明性 D 数据复杂性和程序复杂性10接入因特网的每台计算机的IP地址 （ 10 ）。 A 由与该计算机直接连接的交换机及其端口决定 B 由该计算机中网卡的生产厂家设定 C 由网络管理员或因特网服务提供商(ISP)分配 D 由用户自定11以下关于局域网和广域网的叙述中，正确的是 （ 11 ）。 A广域网只是比局域网覆盖的地域广，它们所采用的技术是完全相同的 B 局域网中的每

32、个节点都有一个惟一的物理地址，称为介质访问地址(MAC地址) C现阶段家庭用户的PC机只能通过电话线接入网络 D单位或个人组建的网络都是局域网，国家或国际组织建设的网络才是广域网12目前在网络互连中用得最广泛的是TCPIP协议。事实上，TCPIP是一个协议系列，它已经包含了100多个协议。在TCPIP协议中，远程登录使用的协议是( 12 ) 。 ATELNET BFTP CHTTP DUDP 13关于电子邮件服务，下列叙述中错误的是 ( 13 ) 。 A 网络中必须有邮件服务器用来运行邮件服务器软件 B 用户发出的邮件会暂时存放在邮件服务器中 C用户上网时可以向邮件服务器发出接收邮件的请求 D

33、发邮件者和收邮件者如果同时在线，则可不通过邮件服务器而直接通信14国际标准化组织(ISO)将世界各国和地区使用的主要文字符号进行统一编码的方案称为 （ 14 ）。 A UCSUnicode C GBK B GB2312 DGBl8030 15存放一幅1024768像素的未经压缩的真彩色(24位)图像，大约需要多少字节的存储空间?（ 15 ） A 1024x768x24 C 1024x768x2 B 1024x768x3 D1024x768x12 16对带宽为3003400Hz的语音，若采样频率为8kHz、量化位数为8位且为单声道，则未压缩时的码率约为( 16 )。 A.64kbs B64kBs

34、 C128kbs D128kBs17彩色图像所使用的颜色描述方法称为颜色模型。在下列颜色模型中，主要用于彩色喷墨打印机的是( 17 ) 。 AYUV BHSB CCMYK DRGB18从信息处理的深度来区分，信息系统可分为业务信息处理系统、信息检索系统、信息分析系统和专家系统。在下列相关叙述中，错误的是 18 。 A业务信息处理系统是采用计算机进行日常业务处理的信息系统 B 信息检索系统就是指因特网上提供的各种搜索引擎，可以供各类用户免费使用 C 决策支持系统是一种常见的信息分析系统 D 专家系统可模仿人类专家的思维活动，通过推理与判断来求解问题19在下列有关Microsoft Excel 2

35、000(中文版)功能的叙述中，错误的是 （ 19 ）。 A可以将Excel工作簿或选定的工作表另存为网页文件(htm) B 对数据清单进行排序时，最多可以选择5个关键字 C通过设置，可以实现在某单元格中输入数据后按回车键，光标自动移动到上边一单元格或左边一单元格 。 D在工作表中可以插入“艺术字”20在下列有关Microsoft FrontPage 2000(中文版)功能的叙述中，错误的是 20 。 A执行菜单命令“新建”时，可以选择是新建网页还是新建站点 B 用户可以对框架网页的框架进行拆分或删除 C如同Microsoft word中的表格，用户可以在网页中手绘表格或插入表格 D 系统提供了

36、“绘图”工具栏，便于用户在网页中绘图 第二部分Visual Basic程序设计一、选择题(用答题卡答题，答案依次填在2130答题号内)21下列关于某对象SetFocus与GotFocus的描述中，正确的是21 。A SetFocus是事件，GotFocus是方法 BSetFocus和GotFocus都是事件CSetFocus和GotFocus都是方法DSetFocus是方法，GotFocus是事件22Print方法可在_上输出数据。窗体文本框图片框标签列表框立即窗口A B C D23数学表达：A(x5一Cos(29)Sqr(eX+In(Y)+5B(x5一Cos(29)(Sqr(Exp(x)+L

37、og(Y)+5)C(x5一Cos(29*314159180)(Sqr(Exp(x)+Log(Y)+5)D(x5一Cos(29*314159180)(Sqr(eX+Log(Y)+5)24以下有关数组参数的说明中，正确的是24。A在过程中也可用Dim语句对形参数组进行说明B动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 24.下列有关数组参数的说明正确的是 (24) 。 A.在过程中也可用Dim语句对形参数组进行说明 B.动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C.调用过程时，数组名不能作为实参 D.数组可以按地址传递也可以按值传递25.下列关于

38、子过程或函数的定义正确的是 (25) A.Sub fl(n As String*1) B.Sub fl(n As Integer)As Integer C.Function fl(f1 As Integer) As Integer D.Function fl(ByVal n As Integer)26.下列关于数值常量的说法错误的是 (26) A.八进制数的表示方法是在数字前面加&O B.十六进制数的表示方法是在数字前面加&H C.在浮点数值中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理 D.32768是合法的数值常量 27.下列有关对象的叙述正确的是( 27 ) A.对象由属性

39、、事件和方法构成 B.对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C.对象的事件一定就是由VB预先设置好的人工干预的动作 D.对象的方法是对象响应某个事件后所执行的一段程序代码28.已知XB，则下列表达式中，结果为True的是( 28 ) A.Sgn(x-Y)+Sgn(A-B)=-1 B.Sgn(X-Y)+Sgn(A-B)=-2 C.Sgn(Y-X)+Sgn(A-B)=2 D.Sgn(Y-X)+Sgn(A-B)=029.下列能够正确表示条件xYZ的VB逻辑表达式是 ( 29 ) A.XYZ B.X=Y And YZ C.XY Or YZ D.X=Y0 . If X M

40、od 4=0 Then Y=Y+X Else y=Y-X End If X=X-3 Print X，Y Loop End Sub . ，2.执行下面的程序,单击Commandl，窗体上显示的第一行是(4) ，第二行是 (5) ，第 三行是( 6 ) Option Explicit . Option Base 1 Private Sub Command1_Click() Dim sa(3，3)As String*1，i As Integer，j As Integer，k As Integer k=1 For i=1 To 3 For j=1 To 3 sa(i，j)=Chr(Asc(A)+(k+

41、i+j) Mod 26) Print sa(i，j); ； k=k+3 Next J 、 Print Next i End Sub ，3.执行下面的程序，单击Commandl，在窗体上显示的变量b的值为:( 7 )，变量c的值为 ( 8 ) ，变量z的值为( 9 ) Option Explicit Private Sub Command1_Click() Dim b As Integer，C As Integer，z As Integer b=2 C=1 Z=fun(b，fun(b+1，c)+b-c+1 Print b，c，z End Sub Private Function fun(X As

42、 Integer，ByVal Y As Integer)As Integer X=X-Y y=X+Y+2 fun=YX End Function4.执行下面的程序，单击Commandl，输出的变量i的值是( 10 ) ，变量j的值是 ( 11 ) ， 变量k的值是( 12 ) Option Explicit Private Sub Command1_Click() Dim i As Integer，j As Integer Dim k As Integer i=10 j=4 k=Funk(i,j) Print i，j，k 、 End Sub ? Private Function Funk(By

43、Val A As Integer，B As Integer) As Integer A=A+B B=B-2 . if B=0 Or B=1 Then Funk=1 Else Funk=A+Funk(A，B) End If End Function5.执行下面的程序，单击Commandl，在窗体上显示的第一行的内容是( 13 ) ，第二行的内 容是( 14 ) ，第三行的内容是( 15 ) Option Explicit Private Sub Command1_Click() Dim n As Integer，i As Integer n=2 For i=7 To 1 Step -1 Call

44、 sub2(i，n) Print i,n Next i End Sub Private Sub sub2(x As Integer，y As Integer) Static n As Integer Dim i As Integer For i=2 To 1 Step -1 n=n+x x=x-1 Next i Y=Y+n End Sub 6.用以下公式求sin(x)的值。当级数通项的绝对值小于eps=10-7时停止计算，x的值由键盘输入。请完善如下程序: Option Explicit Private Sub Form_Click() Dim x As Double，t As Double，

45、n As Integer，sum As Double Const eps=0.0000001 x=Val(InputBox(请输入x:) ( 16 ) sum=t n=1 Do Until ( 17 ) t=一t t= ( 18 ) sum=sum+t n=n+1 Loop 、 Print Sin(;x;)=;Format(sum,0.000)End Sub7.下面程序的功能是随机生成小于100的诸素数的数组,程序界面参见下图 Option Explicit Private Sub Command1_Click() Dim P()As Integer，i As Integer，n as int

46、eger Dim st As String，k As Integer Randomize k=InputBox(元素个数:，20) ReDim P(k) Do n=Int(Rnd*90)+10 if ( 19 )Then i=i+1 P(i)=n End if Loop Until ( 20 ) For i=1 To UBound(P) st=st & Str(P(i) if i Mod 10=0 Then st=st & Vbcrlf Next i Text1=st End Sub Private Function prime(n As Integer) As Boolean Dim i A

47、s Integer prime=True For i=2 To Sqr(n) If n Mod i=0 Then ( 21 ) Exit For End If Next i End Function8.下面程序的功能是将给定整数N表示成若干个质数因子相乘的形式(分解质因数)。程序 界面参见下图。 Option Explicit Option Base 1Private Sub Command1_Click() Dim n As Integer，a() As Integer Dim st As String，i As Integer n=Text1 Call fenjie(n，a) st=CSt

48、r(n) & = For i=1 To UBound(a)-1 st=st & a(i) & * Next i Text2=st & a(i)End SubPrivate Sub fenjie( 22 ) ) Dim k As Integer，i As Integer k=2 Do If n Mod k=0 Then i=i+1 . ReDim Preserve a(i) a(i)=k (23) Else ( 24 ) End If Loop Until ( 25 )End Sub9.本程序的功能是把由4个用.分隔的十进制数表示的IP地址转换为由32位二进制数组成 的IP地址。例如十进制表示的

49、IP地址为202.119.191.1，其中每个十进制数对应一个8位的二进制数，合起来构成一个32位二进制的IP地址11001010011101111011111100000001。过程Tiqu用于提取十进制IP地址中每个用.分割的十进制数；过程Convert用于将十进制数转换为相应的8位二进制数。程序界面参见下图。Option ExplicitPrivate Sub Command1_Click() Dim strl As String，str2 As String Dim a(4)As Integer，i As Integer strl=Text1.Text Call Tiqu(strl，a) For i=1 Tn 4 If a(i)255 Then MsgBox(IP地址错误!) Exit Sub j E