《2023年全国计算机等级考试二级笔试试卷VisualBasic语言程序设计.doc》由会员分享，可在线阅读，更多相关《2023年全国计算机等级考试二级笔试试卷VisualBasic语言程序设计.doc（18页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2023年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计一、选择题 下列各题A)、B)、C)、D)四个选项中，只有一个选项是对的的。(1)下面叙述对的的是_。 A)程序设计就是编制程序 B)程序的测试必须由程序员自己去完毕 C)程序经调试改错后还应进行再测试 D)程序经调试改错后不必进行再测试(2)下列数据结构中，能用二分法进行查找的是_。 A)顺序存储的有序线性表 B)线性链表 C)二叉链表 D)有序线性链表(3)下列关于栈的描述对的的是_。 A)在栈中只能插入元素而不能删除元素 B)在栈中只能删除元素而不能插入元素 C)栈是特殊的线性表，只能在一端插入或删除元素 D
2、)栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素(4)下列叙述中对的的是_。 A)一个逻辑数据结构只能有一种存储结构 B)数据的逻辑结构属于线性结构，存储结构属于非线性结构 C)一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据解决的效率 D)一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据解决的效率(5)下列描述中对的的是_。 A)软件工程只是解决软件项目的管理问题 B)软件工程重要解决软件产品的生产率问题 C)软件工程的重要思想是强调在软件开发过程中需要应用工程化原则 D)软件工程只是解决软件开发中的技术问题(6)在软件设计中，不属于过程设计工具的是_。 A)
3、PDL(过程设计语言) B)PAD图 C)N-S图 D)DFD图(7)下列叙述中对的的是_。 A)软件交付使用后还需要进行维护 B)软件一旦交付使用就不需要再进行维护 C)软件交付使用后其生命周期就结束 D)软件维护是指修复程序中被破坏的指令(8)数据库设计的主线目的是要解决_。 A)数据共享问题 B)数据安全问题C)大量数据存储问题 D)简化数据维护 (9)设有如下关系表_。 则下列操作中，对的的是_。 A)T=RS B)T=RS C)T=RS D)T=R/S(10)数据库系统的核心是_。 A)数据模型 B)数据库管理系统 C)数据库 D)数据库管理员(11)假定一个Visual Basic
4、应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下对的的操作是_。 A)只保存窗体模块文献 B)分别保存窗体模块、标准模块和工程文献 C)只保存窗体模块和标准模块文献D)只保存工程文献(12)为了清除窗体上的一个控件，下列对的的操作是_。 A)按回车键 B)按Esc键 c)选择(单击)要清除的控件，然后按Del键 D)选择(单击)要清除的控件，然后按回车键(13)以下叙述中错误的是_。 A)打开一个工程文献时，系统自动装入与该工程有关的窗体、标准模块等文献 B)当程序运营时，双击一个窗体，则触发该窗体的DblClick事件 C)Visual Basic应用程序只能以解释方式执行
5、 D)事件可以由用户引发，也可以由系统引发(14)设a=2，b=3，c=4，d=5，下列表达式的值是_。 Not a=c Or4*c=b2Andba+c A)-1 B)1 C)True D)False(15)设a=5,b=10，则执行c=Iht(b-A)*Rnd+A)+1后，c值的范围为_。 A)510 B)69 C)610 D)59(16)在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a$=software and hardware b$=Right(a$，8) c$=Mid(a$，1，8) MsgBox a
6、$，b$，c%，1 End Sub 运营程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是_。 A)software and hardware B)software C)hardware D)1(17)在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设立为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(Enter an integer) b=InputBox(Enter an integer) Text1.Text=b+a End Sub 程序运营后，单击命令按钮，假如在输入对
7、话框中分别输入8和10，则文本框中显示的内容是_。 A)108 B)18 C)810 D)犯错(18)在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text= Text2.Text= Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text，8) End Sub 程序运营后，假如在文本框Text1中输入BeijingChina，则在文本框Text2显示的内容是 _。 A)BeijingChina B)
8、Chima C)Beijing D)BeijingC(19)在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程 Private Sub Form_Load() List1.AddltemIteml List1.AddltemItem2 List1.AddltemItem3 End Sub Private Sub Command1_click() List1.List(List1.ListCount)=AAAA End Sub 程序运营后，单击命令按钮，其结果为_。 A)把字符串“AAAA”添加到列表框中，但位置不能拟定 B)把字符串“AAAA人”
9、添加到列表框的最后(即“Item3”的后面) C)把列表框中原有的最后一项改为“AAAA” D)把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)(20)假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运营后，单击窗体，输出结果为_。 A)81 4 B)56 3 C)28 1 D)243 5(21)有如下程序： Ptivate Sub Form_Click() Dim Check，
10、Counter Cbeck=True Counter=0 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运营后，单击窗体，输出结果为_。 A)15 0 B)20 -1 C)10 True D)10 False(22)有如下程序： Private Sub Form_CHck() Dim i As Integer，sum As Integer sum=0 F
11、or i=2 TO 10 If Mod 2 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运营后，单击窗体，输出结果为_。 A)12 B)30 C)24 D)18(23)在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j
12、)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序运营后，单击命令按钮，在文本框中显示的值是_。 A)12 B)13 C)14 D)15 (24)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dima1(4，4)a2(4，4) Dim i As Integer, j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i
13、Print a1(3,3);a2(3,3) End Sub 程序运营后，单击命令按钮，在窗体上输出的是_。 A)6 6 B)10 5 C)7 21 D)6 12(25)有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运营后，单击窗体，输出结果为_。 A)25 B)26
14、C)27 D)28(26)在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc(A)+(i-1) Next i For Each b In a Print b； Next End Sub 程序运营后，单击命令按钮，输出结果是_。 A)ABCDE B)1 2 3 4 5 C)abcde D)犯错信息(27)以下关于函数过程的叙述中，对的的是_。 A)假如不指明函数过程参数的类型，则该参数没有数据类型 B)函数过程的返回值可以有多个 C)当数组作为函数过程的参数
15、时，既能以传值方式传递，也能以引用方式传递 D)函数过程形参的类型与函数返回值的类型没有关系(28)函数过程n的功能是：假如参数b为奇数，则返回值为1，否则返回值为0。以下能正的确现上述功能的代码的是_。 A)Function F1(b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function B)Function F1(b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function C)Function F1(b As Integer)
16、 If b Mod 2=0 Then F1=1 Else F1=0 End If End Function D)Functionn(b As Integer) If b Mod 2 0Then Return 0 Else Return 1 End If End Function(29)以下关于KeyPress事件过程中参数KeyAscii的叙述中，对的的是_。 A)KeyAscii参数是所按键的ASCII码 B)KeyAscii参数的数据类型为字符串 C)KeyAscii参数可以省略 D)KeyAscii参数是所按键上标注的字符(30)设窗体上有一个名为Text1的文本框，并编写如下程序： P
17、rivate Sub Form_Load() Show Text1.Text= Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer，Shift As Integer，X As Single，Y As Single) Print程序设计 End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) PrintVisual Basic； End Sub 程序运营后，假如在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是_。
18、A)Visual Basic B)程序设计 C)Visual Basic程序设计 D)a程序设计(31)假定有下表所列的菜单结构： (表格) 规定程序运营后，假如单击菜单项“大图标”，则在该菜单项前添加一个“”。以下对的的事件过程是_。 A)Private Sub bigicon_Click() bigicon.Checked=False End Sub B)Private Sub bigicon_Click0 Me.appear.bigicon.Checked=True End Sub C)Private Sub bigicon_Click() bigicon.Checked=True En
19、d Sub D)Private Sub bigicon_Click0 appear.bigicon.Checked=True End Sub(32)假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是_。 A)Private Sub Commandl_Click() CommonDialog1.DialogTitle=NewTitle CommonDialog1.ShowPrinter End Sub B)Private Sub Command1_Click() CommonDialog
20、1.DialogTitle=NewTitle CommonDialog1.ShowFont End Sub C)Private Sub Commslld1_CUck() CommonDialog1.DialogTifie=NewTitle CommonDialog1.ShowOpen End Sub D)PrivateSubCommand1_Click() CommonDialog1.DialogTitle”NewTitle” CommonDialog1.ShowColor End Sub(33)假如一个工程具有多个窗体及标准模块，则以下叙述中错误的是_。 A)任何时刻最多只有一个窗体是活动窗
21、体 B)不能把标准模块设立成启动模块 C)用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 D)假如工程中具有Sub Main过程，则程序一定一方面执行该过程(34)假定在工程文献中有一个标准模块，其中定义了如下记录类型 Type Books Name As String*10 TelNum As String*20 End Type 规定当执行事件过程Command1_Click时，在顺序文献Person.txt中写入一条记录。下列可以完毕该操作的事件过程是： A)Ptivate Sub Command1_Click() Dim B As Books Openc:Person.txtF
22、or Output As#1 B.Name=InputBox(输入姓名) B.TelNum=InputBox(输入电话号码) Write#1，B.Name，B.TelNum Close#1 End Sub B)Private Sub Command1_Click() Dim B As Books Openc:Person.txtFor Input As#1 B.Name=InputBox(输入姓名) B.TelNum=InputBox(输入电话号码) Print#1，BName，BTelNum Close#1 End Sub C)Private Sub Command1_Click() Dim
23、 B As Books OPQlc:Person.txtFor Output As#1 Nallle=InputBox(输入姓名) TelNum=InputBox(输入电话号码) Write#1，B Close#1 End Sub D)Private Sub Command1_Click() Dim B As Books Openc:Person.txtFor lnput As#1 Name=InputBox(输入姓名) TelNum=InputBox(输入电话号码) Write#1，BName，B.TelNum Close#1 End Sub (35)目录列表框的Path属性的作用是_。 A
24、)显示当前驱动器或指定驱动器上的某目录下的文献名 B)显示当前驱动器或指定驱动器上的目录结构 C)显示根目录下的文献名 D)显示指定途径下的文献二、填空题(1)数据管理技术发展过程通过人工管理、文献系统和数据库系统三个阶段，其中数据独立性最高的阶段是 【1】 。(2)算法复杂度重要涉及时间复杂度和 【2】 复杂度。(3)在进行模块测试时，要为每个被测试的模块此外设计两类模块：驱动模块和承接模块(桩模块)。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。(4)一棵二叉树第六层(根结点为第一层)的结点数最多为 【4】 个。(5)数据结构分为逻辑结构和存储结构，循环
25、队列属于 【5】 结构。(6)设有以下函数过程： Function fun(m As Integer)As Integer Dim k As Integer, sum As Integer sum=0 For k=m To 1 Step-2 sum=sum+k Next k fun=stlm End Function 若在程序中用语句s=fun(10)调用此函数，则s的值为 【6】 。(7)在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运营后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序
26、显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Comrnand1按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click() Dim str As String，s As String，c As String str=UCase(Text1) S= C=Z While c=A If lnStr(str,C)=0 Then s= 【7】 End If c=Chr$(Asc(C) 【8】 ) Wend If sThen Text1=S End If End Sub(8)在n个运动员中选出任
27、意r个人参与比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text。程序运营时在 Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在 Text3文本框中(见下图)。请填空。 Private Sub Command1_Click() Dim r As Integer，n As Integer n=Textl r=Text2 Text3=fun(n)/fun( 【9】 )/fun(r) End Sub Function fun(n As Integer)As Long Dim t As L
28、ong 【10】 For k=1 To n t-t*k Next fun=t End Function(9)以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为 Text2的文本框和名为Command1的命令按钮。运营时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为景后得分)，如图所示。请填空。 Private Sub Command1_Click() Dim k As Integer Dim sum As Single，max As Single，min As Single su
29、m=Text1(0) max=Text1(0) min= 【11】 For k= 【12】 To 6 If maxText1(k)Then max=Text1(k) End If If minTextloc)Then min=Text1(k) End If sum=sum+Textl(k) Next k Text2= 【13】 /5 End Sub(10)如图所示，在列表框Listl中已有若干人的简朴信息，运营时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Command1_Click() Dim k As Integer，n As Integer，found As Boolean found=False n=Len( 【14】 ) k=0 While kList1.ListCount And Not found If Text1=Left$(List1.List(k)，n)Then Text2= 【15】 found=True End If k=k+1 Wend If Not found Then Text2=查无此人 End If End Sub