2002年春VB二级试

1、2003年（春）二级考试笔试卷参考答案（ VB）（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）第一部分计算机基础知识（各语种相同）（红色为参考答案）1.目前，汉字信息在计算机内大多是以双字节编码表示的。在下列用十六进制表示的两个季节的编码中,1可能是汉字“大”的机内码A.B473HB.B4F3HC.3473HD.73F3H2. 有一个数值311，它与十六进制数 C9相等，则该数值是用 2表示的。A.二进制B. 八进制C.十进制D.五进制3. 长度为1个字节的二进制的整数，若采用补码表示，且由4个“1”和4个“0”组成，则可表示的最小整数为A.-127B.-121C.-15

2、D.-74.关于PC机主板上的 CMOS芯片，下面说法中正确的是 4.A. CMOS芯片用于存储计算机系统的配置参数，它是只读存储器。B. CMOS芯片用于存储电自检程序。C. CMOS芯片用于存储 BIOS，是易失性的。D. CMOS芯片需要一个电池给它供电，否则其中数据会因主机断电而丢失。5. 假设某硬盘的转速为6000转/分，则此硬盘的平均等待时间为 5_ms （毫秒）A.5B.6C.10D.126. 软件测试是软件开发过程中的一个重要工作，它直接影响着软件的质量。一个软件产品在交付前主要经历三种测试，三种测试中不包含_6A. 维护测试B.模块测试C.验收测试D.集成测试7. 目前，计算

3、机病毒是影响计算机正常运行的主要因素之一，用户常在计算机中安装防病毒软件来预防计算机病毒。在下列有关计算机病毒及防病毒软件的叙述中，不正确的是。A. 计算机病毒主要是通过可移动的存储介质或网络进行传播B. 用户在上网浏览 WWW信息资源时，所用计算机也可能被计算机病毒感染C. 任何防病毒软件都只能预防一些已知的病毒，但对所有查出的病毒均能安全地清除D. 任何防病毒软件都应经常性地更新8. 在构建网络时，需要使用多种网络设备，如网卡、交换机等。如果要将多个独立的子网互连，如局域网与广域网互连，应当用8进行连接。A. 集线器B.路由器C.交换机D.调制解调器9. 目前世界上规模最大的计算机广域网是

4、In ter ner 。在下列叙述中，不正确的是9。A. 整个In ter net中，每个接点（入网的主机）都有一个唯一的地址，称为IP地址B. Internet中主机的名字由一系列的子域名组成，从左到右子域的级别依次降低C. Internet由主干网、地区网和校园网（或企业网或部门网）三级组成D. ADSL和ISDN均是利用电话线上网，但ADSL的上网速度理论上比ISDN快10. 某PC机的声卡在处理声音信息时，采样频率为44KHz A/D转换精度为16位。若连续采集 2分钟的声音信息，则在不进行压缩编码的情况保存这段声音，需要的存储空间近10。A.88KBB.176KBC.11MBD.83

5、MB11. 在中文版的 Windows 95/98中，用户可以通过键盘操作来切换中英文输入法。系统默认的用于在某一种汉字输入法之间切换的组合键为_11A.CTRL+空格键B.SHIFT+空格键C.CTRL+SHIFTD.ALT+SHIFTA.桌面B.我的电脑C.3.5英寸软盘（A ：D.C:Windows（文件夹）15.使用Winows 95/98的“画图”应用程序编辑文件时，如果需要绘制一个正方形或圆，则在操作过程中应该使用_ 15键加鼠标的拖放操作A.CTRLB.ALTC.SHIFTD.TAB12.在Windows 95/98环境下，如果某应用程序在运行过程中发生“死机”（这里的“死机”是

6、指该应用程序不响应用户的操作且不会自动地结束其运行），则可以通过下列的哪一种操作来结束该应用程序的运行？12A.按组合键 Ctrl+Alt+DelC.用鼠标单击该应用程序窗口中的关闭按钮B.按键盘上的 Pause键D.按组合键Alt+F413.在Windows 95/98中环境下，用户通常使用菜单命令“开始/查找”来查找文件。通过这种方式查找文件时，无法实现的是13。A. 查找某种类型的文件（即根据文件扩展名查找）B. 查找某种属性的文件（即根据文件的属性查找）C. 查找文件大小在某一范围内的文件D. 查找在某一时间范围内创建或修改的文件，则不可能执行菜单命令“文件/新建”14.在Window

7、s 95/98环境下，用户在资源管理器窗口的“左窗口”中选择16. 使用Microsoft Word 7.0/97/2000编辑文档时，所编辑的文件不可保存为_16 类型。A. HTMB.BMPC.RTFD.TXT17. 关于Microsoft Word 中的左边距”和左缩进”，下列叙述中正确的是17。A. 左边距”与左缩进”是同一个概念B. 左缩进”的数值必须大于或等于左边距”的数值C. 左缩进”的数值可以为正数，也可以为负数D. 左缩进”和左边距”均可以在 页面设置”对话框中设置18. 使用Microsoft Excel 7.0/97/2000编辑电子表格时，所编辑的文件不可保存为18_

8、类型。A.XLSB.TXTC.XLTD.DOC19. 用Microsoft Excel 7.0/97/2000处理数据时，如果要在某单元格中输入分数形式的数据5/8，则在单元格定位后 19B.先输入数字0和一个空格，然后再输入5/8D.先输入一个等号（=），然后再输入5/8A.直接输入5/8C.先输入一个空格，然后再输入5/82020.Internet Explorer （简称IE ）是目前最为流行的用于WW信息浏览和查找的浏览器。在下列有关IE的功能和操作的叙述中，不正确的是A. IE是浏览器软件，用户不能通过该软件启动电子邮件服务程序以收发E-mailB. 刷新网页功能可以使In tern

9、et Explorer跳过缓冲区，直接从网页的原始地址下载C. 收藏夹是指用于收藏用户经常需要访问的网页或地址的系统文件夹D. 频道是用于从In ternet向用户计算机传递内容的Web站点第二部分VB程序设计一.填空题21. 在VB中可以作为容器的是B。A.Form、TextBox、PictureBoxB.Form、PictureBox 、FrameC.Form、TextBoX、Label D.PictureBox、TextBox、ListBox22. VB中除窗体能显示图片外，下面列岀的控件中可以显示图片的控件有C1.PictureBox 2.lmage 3.TextBox4.Comman

10、dButton 5.0ptionButton 6.LabelA.1、2、3、4、B.1 、2、5、6、C.1、2、4、5 D.1、2、4、6、23. 针对语句If I=1 Then J=1 ，下列说法正确的是C。A. I=1和J=1均为赋值语句B. I=1和J=1均为关系表达式C.I=1为关系表达式，J=1为赋值语句D.l=1为赋值语句，J=1为关系表达式24. 在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是CA.s=2*a+1 B.s=237& .11:a=sC.s=2*a3D.a=2:s=16400*a25. 下面所列四组数据

11、中，全部是正确的VB常数是A。A. 32768,1.34D2,ABCDE,&O1767B. 3276,123.56,1.2E-2,#True#C. &H ABCE,02-03-2002,False,D-3D. ABCDE,#02-02-2002#,E-226. 下面有关数组处理的叙述中，不正确的是D。1、在过程中用 ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量。2、 在过程中，可以使用Dim、Private 和Static 语句定义数组。3、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型。4、可用Public语句在窗体模块的通用说明处定义一个全局数组。D.2、 4

12、、A.1、2、3、4、B.1、3、4、C.1、2、3、A.Load - In itialize - ActivateB.ln itialize - Load - ActivateC. Load - Activate- Initialize D.lnitialize - Activate - Load定义了两个字28. 定义两个过程 Private Sub1(St() As String)和 Private Sub2(Ch() As String*6)，在调用过程中用Dim S(3) As String*6,A(3) As String符串数组。下面调用语句中正确的有D。1、Call Sub1(

13、S) 2、Call Sub(A) 3、Call Sub2(A) 4、Call Sub2(S)A.1、2B.1、3C.2、3D.2、429. 运行下面程序，单击命令按钮Command1则立即窗口上显示的结果是A 。Private Sub Comma nd1_Click()Dim A As In teger,B As Boolea n,C As In teger,D As In tegerA=20/3 : B=True : C=B : D=A+CDebug. Print A, D, A=A + CEnd SubA. 7 6 FalseB. 6.6 5.6 FalseC. 7 6 A=6D. 78A

14、=830. 以下控件中，不能作为数据绑定控件的是A. Label( 标签)B. TextBox(文本框)C. OptionButton(单选按钮)ListBox(列表框)二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)1、 正确表示命题“ A是一个带小数的正数，且B是一个带小数的负数”的逻辑表达式是_Csng(A)0 And Csng(B)0 And Alnt(A) And B0 AndBlnt(B) _。2、 运行下面的程序，当单击窗体时，文本框 Text1中的内容是 _ AFT _，文本框 Text2中的内容是_ AatF 一。Private Sub Form_Click

15、()Dim St As Stri ngDim St1 As Stri ng, St2 As Stri ngSt = ASFRSDCFRSKXCall Cha nge_Stri ng(St, St1, St2)Text1.Text = St1Text2.Text = St2End SubPrivate Sub Change_String(S As String, St1 As String, St2 As String)Dim tem As String, i As IntegerFor i = 1 To Len(S)tem = Mid(S, i, 1)If tem = S ThenSt1 =

16、St1St2 = St2 & atElself tem = R ThenSt1 = St1 & TExit ForElseSt1 = St1 & temSt2 = St2 & temEnd IfNext iEnd Sub3、执行下面程序，单击命令按钮Command1，则在窗体上显示的第一行是_ 5 _，第二行是_ 45_，第三行是Private Sub Comma nd1_Click()Dim s_data As Integer, d_data As String, k As Integer, p As Strings_data = 29Do Un til s_data = 5p = s_da

17、ta Mod 5d_data = d_data & ps_data = s_data 5Loopd_data = d_data & s_dataPrint s_dataPrint d dataIII!For k = Len( d_data) To 1 Step -1p = p & Mid(d_data, k, 1)Next kPrint pEnd Sub124、执行下面程序，从键盘输入3,程序运行结束后，A( 1,1)的值是一 17 一，A( 2, 2)的值是 _ 15 - ; A( 2, 3)的值是Private Sub Form_Click()Dim I As In teger, J As

18、 In teger, K As In tegerDim A() As In teger, N As In tegerN = InputBox(输入 N)ReDim A(N, N)For I = 1 To NFor J = 1 To NK= K+ 1A(l, J) = K+ 10Next JNext ICall Sub1(A, N)End SubPrivate Sub Sub1(A() As Integer, N As Integer)Dim I As Integer, J As IntegerDim T As Integer, K As IntegerK= N + 1For I = 1 To

19、lnt(N / 2)For J = I To N -1T = A(I, J)A(l, J)=A(K-J, I)A(K - J, I) = A(K -I, K - J)A(K -I, N + 1 - J) = A(J, K - I)A(J, K - I) = TNext JNext IEnd Sub5、执行下面程序，单击命令按钮Command1，则在窗体上第一行显示是_0 1 2 3 4_ ,第二行显示是_4 5 6 7 8_ ,第三行显示是 _ 8Private Sub Comma nd1_Click()Output_Cou nt 4Output_Cou nt 8Output_Cou nt 4

20、End SubPrivate Sub Output_Cou nt(UpperLimit As In teger)Static LowerLimit As In tegerDo While LowerLimit 1 The n Display = Display(S, L - 1)S = Left(S, L - 1) & Right(S, 1) & Mid(S, L, Le n(S) - L)Display = SPrint DisplayEnd Fun cti on7、由键盘输入一个正整数，找出大于或等于该数的第一个素数。Private Sub Form_Click()Dim p As In

21、teger , x As In teger, flag As Boolea n flag = Falsex = InputBox(请输入一个正整数 )Do While Not flagp = 2: flag= _True_Do While flag And (p = 0 And Mid(s, i, 1) = 0 And Mid(s, i + 1,1) = 9 And i 1 ThenIf p The n ReDim Preserve c(k)c(k) = pk = k + 1End IfEnd IfNext iReDim Preserve c(k)c(k) = pFor i = 1 To k

22、List1.Addltem c(i)Next iEnd Sub1的两个正整数，图 2是程序执行画面）9、给定一个十进制正整数，找岀小于它并与其互质的所有正整数（所谓互质数是指最大公约数为Opti on ExplicitPrivate Function gcd( _ByVal m As Integer, ByVai n As Integer _ ) As IntegerDim r As In tegerr = m Mod nIf r = 0 The ngcd = nElsem = n: n = rgcd = gcd(m, n)End IfEnd Fun cti onPrivate Sub Comma nd1_Click()Dim n As In teger, p As In tegern = Val(Text1)For p = n - 1 To 2 Step -1If _gcd(n, p) = 1 _ Then Listl.AddItem pNext pEnd Sub10.用(T(m)表示数m的所有因子(包括 1和