和山论坛

 找回密码
 会员注册
查看: 1865|回复: 0
打印 上一主题 下一主题

2005年9月全国计算机等级考试二级VB笔试试卷(含参考答案)

[复制链接]
跳转到指定楼层
楼主
发表于 2006-3-19 04:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
<P><STRONG>2005年9月全国计算机等级考试二级VB笔试试卷(含参考答案)</STRONG></P>
<P><STRONG>一、 选择题(每小题2分,共70分)<BR> 下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。<BR><BR>(1)下列叙述中正确的是<BR>A)程序设计就是编制程序 B)程序的测试必须由程序员自己去完成<BR>C)程序经调试改错后还应进行再测试 D)程序经调试改错后不必进行再测试<BR><BR>(2)下列数据结构中,能用二分法进行查找的是<BR>A)顺序存储的有序线性表 B)线性链表<BR>C)二叉链表 D)有序线性链表<BR><BR>(3)下列关于栈的描述正确的是<BR>A)在栈中只能插入元素而不能删除元素<BR>B)在栈中只能删除元素而不能插入元素<BR>C)栈是特殊的线性表,只能在一端插入或删除元素<BR>D)栈是特殊的线性表,只能在一端插入元素,而在另一端删除元素<BR><BR>(4)下列叙述中正确的是<BR>A)一个逻辑数据结构只能有一种存储结构<BR>B)数据的逻辑结构属于线性结构,存储结构属于非线性结构<BR>C)一个逻辑数据结构可以有多种存储结构,且各种存储结构不影响数据处理的效率<BR>D)一个逻辑数据结构可以有多种存储结构,且各种存储结构影响数据处理的效率<BR><BR>(5)下列描述中正确的是<BR>A)软件工程只是解决软件项目的管理问题<BR>B)软件工程主要解决软件产品的生产率问题<BR>C)软件工程的主要思想是强调在软件开发过程中需要应用工程化原则<BR>D)软件工程只是解决软件开发中的技术问题<BR><BR>(6)在软件设计中,不属于过程设计工具的是<BR>A)PDL(过程设计语言) B)PAD图<BR>C)N-S图 D)DFD图<BR><BR>(7)下列叙述中正确的是<BR>A)软件交付使用后还需要进行维护<BR>B)软件一旦交付使用就不需要再进行维护<BR>C)软件交付使用后其生命周期就结束<BR>D)软件维护是指修复程序中被破坏的指令<BR><BR>(8)数据库设计的根本目标是要解决<BR> A)数据共享问题 B)数据安全问题<BR> C)大量数据存储问题 D)简化数据维护<BR><BR>(9)设有如下关系表:<BR>R S T <BR>A B C A B C A B C<BR>1 1 2 3 1 3 1 1 2<BR>2 2 3 2 2 3<BR> 3 1 3<BR>则下列操作中正确的是<BR>A)T=R∩S B)T=R∪S C)T=R×S D)T=R/S<BR><BR>(10)数据库系统的核心是<BR> A)数据模型 B)数据库管理系统<BR> C)数据库 D)数据库管理员<BR><BR>(11)假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序,以下正确的操作是<BR>A)只保存窗体模块文件<BR>B)分别保存窗体模块、标准模块和工程文件<BR>C)只保存窗体模块和标准模块文件<BR>D)只保存工程文件<BR><BR>(12)为了清除窗体上的一个控件,下列正确的操作是<BR>A)按回车键<BR>B)按Esc键<BR>C)选择(单击)要清除的控件,然后按Del键<BR>D)选择(单击)要清除的控件,然后按回车键<BR>(13)以下叙述中错误的是<BR>A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件<BR>B)当程序运行时,双击一个窗体,则触发该窗体的DblClick事件<BR>C)Visual Basic应用程序只能以解释方式执行<BR>D)事件可以由用户引发,也可以由系统引发<BR><BR>(14)设a=2, b=3, c=4, d=5, 下列表达式的值是<BR> Not a&lt;=c Or 4*c=b^2 And b&lt;&gt;a+c<BR> A)-1 B)1 C)True D)False<BR><BR>(15)设a = 5,b = 10,则执行<BR> c = Int((b - a) * Rnd + a) + 1<BR> 后,c值的范围为<BR> A)5~10 B)6~9 C)6~10 D)5~9<BR><BR>(16)在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程:<BR>Private Sub Command1_Click()<BR> a$ = "software and hardware"<BR> b$ = Right(a$, 8)<BR> c$ = Mid(a$, 1, 8)<BR> MsgBox a$, , b$, c$, 1<BR>End Sub<BR>运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是<BR>A)software and hardware B)software C)hardware D)1<BR><BR>(17)在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:<BR>Private Sub Command1_Click()<BR> a = InputBox("Enter an integer")<BR> b = InputBox("Enter an integer")<BR> Text1.Text = b + a<BR>End Sub<BR>程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是<BR> A)108 B)18 C)810 D)出错<BR><BR>(18)在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:<BR>Private Sub Form_Load()<BR> Show<BR> Text1.Text = ""<BR> Text2.Text = ""<BR> Text1.SetFocus<BR>End Sub<BR>Private Sub Text1_Change()<BR> Text2.Text = Mid(Text1.Text, 8)<BR>End Sub<BR> 程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的内容是<BR> A)BeijingChina B)China C)Beijing D)BeijingC<BR><BR>(19)在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程:<BR>Private Sub Form_Load()<BR> List1.AddItem "Item 1"<BR> List1.AddItem "Item 2"<BR> List1.AddItem "Item 3"<BR>End Sub<BR>Private Sub Command1_Click()<BR> List1.List(List1.ListCount) = "AAAA"<BR>End Sub<BR>程序运行后,单击命令按钮,其结果为<BR>A)把字符串“AAAA”添加到列表框中,但位置不能确定<BR>B)把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面)<BR>C)把列表框中原有的最后一项改为“AAAA”<BR>D)把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)<BR><BR>(20)假定有如下事件过程:<BR>Private Sub Form_Click()<BR> Dim x As Integer, n As Integer<BR> x = 1<BR> n = 0<BR> Do While x &lt; 28<BR> x = x * 3<BR> n = n + 1<BR> Loop<BR> Print x, n<BR>End Sub<BR>程序运行后,单击窗体,输出结果是<BR>A)81 4 B)56 3 <BR>C)28 1 D)243 5<BR><BR>(21)有如下程序:<BR> Private Sub Form_Click()<BR> Dim Check, Counter<BR> Check = True<BR> Counter = 0<BR> Do<BR> Do While Counter &lt; 20<BR> Counter = Counter + 1<BR> If Counter = 10 Then<BR> Check = False<BR> Exit Do<BR> End If<BR> Loop<BR> Loop Until Check = False<BR> Print Counter, Check<BR> End Sub<BR> 程序运行后,单击窗体,输出结果为<BR>A)15 0 B)20 -1<BR>C)10 True D)10 False<BR><BR>(22)有如下程序:<BR> Private Sub Form_Click()<BR> Dim i As Integer, sum As Integer<BR> sum = 0<BR> For i = 2 To 10<BR> If i Mod 2 &lt;&gt; 0 And i Mod 3 = 0 Then<BR> sum = sum + i<BR> End If<BR> Next i<BR> Print sum<BR> End Sub<BR> 程序运行后,单击窗体,输出结果为<BR> A)12 B)30 C)24 D)18<BR><BR>(23)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:<BR>Private Sub Command1_Click()<BR> Dim array1(10, 10) As Integer<BR> Dim i As Integer, j As Integer<BR> For i = 1 To 3<BR> For j = 2 To 4<BR> array1(i, j) = i + j<BR> Next j<BR> Next i<BR> Text1.Text = array1(2, 3) + array1(3, 4)<BR>End Sub<BR> 程序运行后,单击命令按钮,在文本框中显示的值是<BR> A)12 B)13 C)14 D)15<BR><BR>(24)在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:<BR>Private Sub Command1_Click()<BR> Dim a1(4, 4), a2(4, 4)<BR> For i = 1 To 4<BR> For j = 1 To 4<BR> a1(i, j) = i + j<BR> a2(i, j) = a1(i, j) + i + j<BR> Next j<BR> Next i<BR> Print a1(3, 3); a2(3, 3)<BR>End Sub<BR> 程序运行后,单击命令按钮,在窗体上输出的是<BR> A)6 6 B)10 5 C)7 21 D)6 12<BR><BR>(25)有如下程序:<BR>Option Base 1<BR>Private Sub Form_Click()<BR> Dim arr, Sum<BR> Sum = 0<BR> arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)<BR> For i = 1 To 10<BR> If arr(i) / 3 = arr(i) \ 3 Then<BR> Sum = Sum + arr(i)<BR> End If<BR> Next i<BR> Print Sum<BR>End Sub<BR> 程序运行后,单击窗体,输出结果为<BR> A)25 B)26 C)27 D)28<BR><BR>(26)在窗体上画一个命令按钮,然后编写如下事件过程:<BR>Private Sub Command1_Click()<BR> Dim a(5) As String<BR> For i = 1 To 5<BR> a(i) = Chr(Asc("A") + (i - 1))<BR> Next i<BR> For Each b In a<BR> Print b;<BR> Next<BR>End Sub<BR> 程序运行后,单击命令按钮,输出结果是<BR> A)ABCDE B)1 2 3 4 5<BR> C)abcde D)出错信息<BR><BR>(27)以下关于函数过程的叙述中,正确的是<BR>A)如果不指明函数过程参数的类型,则该参数没有数据类型<BR>B)函数过程的返回值可以有多个<BR>C)当数组作为函数过程的参数时,既能以传值方式传递,也能以引用方式传递<BR>D)函数过程形参的类型与函数返回值的类型没有关系<BR>(28)函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。以下能正确实现上述功能的代码是<BR>A)定义变量 F1(b As Integer)<BR> If b Mod 2 = 0 Then<BR> Return 0<BR> Else<BR> Return 1<BR> End If<BR>End 定义变量<BR>B)定义变量 F1(b As Integer)<BR> If b Mod 2 = 0 Then<BR> F1 = 0<BR> Else<BR> F1 = 1<BR> End If<BR>End 定义变量<BR>C)定义变量 F1(b As Integer)<BR> If b Mod 2 = 0 Then<BR> F1 = 1<BR> Else<BR> F1 = 0<BR> End If<BR>End 定义变量<BR>D)定义变量 F1(b As Integer)<BR> If b Mod 2 &lt;&gt; 0 Then<BR> Return 0<BR> Else<BR> Return 1<BR> End If<BR>End 定义变量<BR><BR>(29)以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是<BR>A)KeyAscii参数是所按键的ASCII码<BR>B)KeyAscii参数的数据类型为字符串<BR>C)KeyAscii参数可以省略<BR>D)KeyAscii参数是所按键上标注的字符<BR><BR>(30)设窗体上有一个名为Text1的文本框,并编写如下程序:<BR>Private Sub Form_Load()<BR> Show<BR> Text1.Text = ""<BR> Text1.SetFocus<BR>End Sub<BR>Private Sub Form_MouseUp(Button As Integer, _<BR> Shift As Integer, X As Single, Y As Single)<BR> Print "程序设计"<BR>End Sub<BR>Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)<BR> Print "Visual Basic";<BR>End Sub<BR>程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上显示的内容是<BR> A)Visual Basic B)程序设计<BR> C)Visual Basic程序设计 D)a程序设计<BR><BR>(31)假定有下表所列的菜单结构:<BR> ━━━━━━━━━━━━━━━━━━━━<BR>标题 名称 层次<BR>────────────────────<BR>显示 appear 1(主菜单)<BR>大图标 bigicon 2(子菜单)<BR>小图标 smallicon 2(子菜单)<BR>━━━━━━━━━━━━━━━━━━━━<BR>要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“&Ouml;”。以下正确的事件过程是<BR>A)Private Sub bigicon_Click()<BR> bigicon.Checked = False <BR> End Sub<BR>B)Private Sub bigicon_Click()<BR> Me. appear.bigicon.Checked = True<BR> End Sub<BR>C)Private Sub bigicon_Click()<BR> bigicon.Checked = True<BR> End Sub<BR>D)Private Sub bigicon_Click()<BR> appear.bigicon.Checked = True<BR> End Sub<BR><BR>(32)假定通用对话框的名称为CommonDialog1,命令按钮的名称为Command1,则单击命令按钮后,能使打开的对话框的标题为“New Title”的事件过程是<BR>A)Private Sub Command1_Click()<BR> CommonDialog1.DialogTitle = "New Title"<BR> CommonDialog1.ShowPrinter<BR>End Sub<BR>B)Private Sub Command1_Click()<BR> CommonDialog1.DialogTitle = "New Title"<BR> CommonDialog1.ShowFont<BR>End Sub<BR>C)Private Sub Command1_Click()<BR> CommonDialog1.DialogTitle = "New Title"<BR> CommonDialog1.ShowOpen<BR>End Sub<BR>D)Private Sub Command1_Click()<BR> CommonDialog1.DialogTitle = "New Title"<BR> CommonDialog1.ShowColor<BR>End Sub<BR><BR>(33)如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是<BR>A)任何时刻最多只有一个窗体是活动窗体<BR>B)不能把标准模块设置为启动模块<BR>C)用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体<BR>D)如果工程中含有Sub Main过程,则程序一定首先执行该过程<BR><BR>(34)假定在工程文件中有一个标准模块,其中定义了如下记录类型<BR> Type Books<BR> Name As String * 10<BR> TelNum As String * 20<BR> End Type<BR> 要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是<BR>A)Private Sub Command1_Click()<BR> Dim B As Books<BR> Open "c:\Person.txt" For Output As #1<BR> B.Name = InputBox("输入姓名")<BR> B.TelNum = InputBox("输入电话号码")<BR> Write #1, B.Name, B.TelNum<BR> Close #1<BR>End Sub<BR>B)Private Sub Command1_Click()<BR> Dim B As Books<BR> Open "c:\Person.txt" For Input As #1<BR> B.Name = InputBox("输入姓名")<BR> B.TelNum = InputBox("输入电话号码")<BR> Print #1, B.Name, B.TelNum<BR> Close #1<BR>End Sub<BR>C)Private Sub Command1_Click()<BR> Dim B As Books<BR> Open "c:\Person.txt" For Output As #1<BR> Name = InputBox("输入姓名")<BR> TelNum = InputBox("输入电话号码")<BR> Write #1, B<BR> Close #1<BR>End Sub<BR>D)Private Sub Command1_Click()<BR> Dim B As Book<BR> Open "c:\Person.txt" For Input As #1<BR> Name = InputBox("输入姓名")<BR> TelNum = InputBox("输入电话号码")<BR> Print #1, B.Name, B.TelNum<BR> Close #1<BR>End Sub<BR><BR>(35)目录列表框的Path属性的作用是<BR> A)显示当前驱动器或指定驱动器上的某目录下的文件名<BR> B)显示当前驱动器或指定驱动器上的目录结构<BR> C)显示根目录下的文件名<BR> D)显示指定路径下的文件<BR><BR><BR>二、填空题(每空2分,共30分)<BR> 请将每空的正确答案写在答题卡【1】~【15】序号的横线上,答在试卷上不得分。<BR><BR>(1)数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是 【1】 。<BR><BR>(2)算法复杂度主要包括时间复杂度和 【2】 复杂度。<BR><BR>(3)在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中 【3】 的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。<BR><BR>(4)一棵二叉树第六层(根结点为第一层)的结点数最多为 【4】 个。<BR><BR>(5)数据结构分为逻辑结构和存储结构,循环队列属于 【5】 结构。<BR><BR>(6)设有以下函数过程:<BR>定义变量 fun(m As Integer) As Integer<BR> Dim k As Integer, sum As Integer<BR> sum = 0<BR> For k = m To 1 Step -2<BR> sum = sum + k<BR> Next k<BR> fun = sum<BR>End 定义变量<BR>若在程序中用语句 s = fun(10) 调用此函数,则s的值为 【6】 。<BR><BR>(7)在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。<BR>Private Sub Command1_Click( )<BR> Dim str As String, s As String, c As String<BR> str = UCase(Text1)<BR> s = ""<BR> c = "Z"<BR> While c &gt;= "A"<BR> If InStr(str, c) = 0 Then<BR> s = 【7】<BR> End If<BR> c = Chr$(Asc(c) 【8】 )<BR> Wend<BR> If s &lt;&gt; "" Then<BR> Text1 = s<BR> End If<BR>End Sub<BR><BR>(8) 在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。请填空。<BR><BR> <BR><BR><BR>Private Sub Command1_Click( )<BR> Dim r As Integer, n As Integer<BR> n = Text1<BR> r = Text2<BR> Text3 = fun(n) / fun(【9】 ) / fun(r)<BR>End Sub<BR>定义变量 fun(n As Integer) as long<BR> Dim t As Long<BR> 【10】<BR> For k = 1 To n<BR> t = t * k<BR> Next<BR> fun = t<BR>End 定义变量<BR><BR>(9)以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。<BR> <BR>Private Sub Command1_Click( )<BR> Dim k As Integer<BR> Dim sum As Single, max As Single, min As Single<BR> sum = Text1(0)<BR> max = Text1(0)<BR> min = 【11】 <BR> For k = 【12】 To 6<BR> If max &lt; Text1(k) Then<BR> max = Text1(k)<BR> End If<BR> If min &gt; Text1(k) Then<BR> min = Text1(k)<BR> End If<BR> sum = sum + Text1(k)<BR> Next k<BR> Text2 = (【13】 ) / 5<BR>End Sub<BR>(10)如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。<BR> <BR><BR>Private Sub Command1_Click()<BR> Dim k As Integer, n As Integer, found As Boolean<BR> found = False<BR> n = Len(【14】 )<BR> k = 0<BR> While k &lt; List1.ListCount And Not found<BR> If Text1 = Left$(List1.List(k), n) Then<BR> Text2 = 【15】<BR> found = True<BR> End If<BR> k = k + 1<BR> Wend<BR> If Not found Then<BR> Text2 = "查无此人"<BR> End If<BR>End Sub<BR><BR><BR>2005年9月全国计算机等级考试二级VB笔试试卷(含参考答案)<BR>选择题<BR>【 1- 5】 CACDC 【 6-10】 DAABB <BR>【11-15】 BCCDC 【16-20】 CABBA <BR>【21-25】 DAADC 【26-30】 ADBAC <BR>【31-35】 CCDAB<BR> 填空题<BR>【1】数据库系统 【2】空间 【3】驱动模块 <BR>【4】32 【5】存储结构 【6】30 <BR>【7】s&amp;c 【8】-1 【9】n-r <BR>【10】t=1 【11】text1(0) 【12】1<BR>【13】(sum-max-min) 【14】text1.text 【15】list1.list(k)</STRONG><BR> </P>
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则


浙江科技学院和山论坛|手机客户端|小黑屋|和山论坛

GMT+8, 2025-7-25 06:53 , Processed in 0.110650 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.2

© 2005-2019 和山论坛(www.hsbbs.com)

快速回复 返回顶部 返回列表