《2023年3月全国计算机等级考试二级VB笔试试题.docx》由会员分享，可在线阅读，更多相关《2023年3月全国计算机等级考试二级VB笔试试题.docx（15页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项 填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是A）对长度为n的有序链表进行查找，最坏状况下须要的比较次数为nB）对长度为n的有序链表进行对分查找，最坏状况下须要的比较次数为（n/2） C）对长度为n的有序链表进行对分查找，最坏状况下须要的比较次数为（Iog2n） D）对长度为n的有序链表进行对分查找，最坏状况下须要的比较次数为（n Iog2n）（2）算法的时间困难度是指A）算法的执行时间B）算法所处理的数据量C）算法程序中的语句或指令条数D）算法在执行过程中所须要
2、的基本运算次数（3）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面 属于系统软件的是A）编辑软件B）操作系统C）教务管理系统D）阅读器（4）软件（程序）调试的任务是A）诊断和改正程序中的错误B）尽可能多地发觉程序中的错误C）发觉并改正程序中的全部错误D）确定程序中错误的性质（5）数据流程图（DFD图）是A）软件概要设计的工具B）软件具体设计的工具C）结构化方法的需求分析工具D）面对对象方法的需求分析工具（6）软件生命周期可分为定义阶段，开发阶段和维护阶段。具体设计属于A）定义阶段B）开发阶段C）维护阶段D）上述三个阶段Private Sub Comandl_Click()
3、For k=Listl.ListCount-1 To 0 Step -1If Listl.Selected(k) ThenList2.Additem Listl.List(k)List 1, Removeitem kEnd IfNext kEnd Sub程序运行时，根据图示在Listl中选中2个列表项，然后单击Commandl吩咐 按钮，则产生的结果是A）在List2中插入了外语、物理两项B）在Listl中删除了外语、物理两项C）同时产生A）和B）的结果D）把Listl中最终1个列表项删除并插入到List2中（32）设工程中有2个窗体：Forml、Form2, Forml为启动窗体。Form2
4、 中有菜单。其结构如表。要求在程序运行时，在Forml的文本框Textl中输入 口令并按回车键（回车键的ASCH码为13）后，隐藏Forml,显示Form2。若 口令为Teacher”,全部菜单项都可见;否则看不到成果录入菜单项。为此， 某人在Forml窗体文件中编写如下程序：Private Sub Textl_KeyPress（KeyAscii As Integer）If KeyAscii = 13 ThenIf Textl.Text=HTeacher ThenForm2. input. visible=TrueElseForm2, input. visible=FalseEnd IfEnd
5、 IfForml.HideForm2.ShowEnd Sub菜单标题名称级别成果管理Mark1成果查询query2成果录入input2程序运行时发觉刚输入口令时就隐藏了 Forml,显示了 Form2,程序须要修改。 下面修改方案中正确的是A)把Forml中Textl文本框及相关程序放到Form2窗体中B)把 Forml.Hide Form2.Show 两行移到 2 个 End If 之间C)把 If KeyAscii = 13 Then 改为 If KeyAscii = Teaeher ThenD)把2个中的Form2删去(33)某人编写了下面的程序，希望能把Textl文本框中的内容写到ou
6、t.txt文 件中Private Sub Comandl_Click()Open ,out.txtH For Output As #2Print TextlClose #2End Sub调试时发觉没有达到目的，为实现上述目的，应做的修改是A)把 Print “Textl”改为 Print #2,TextlB)把 Print 叮extl”改为 Print TextlC)把 Print 叮extl”改为 Write TextlD)把全部#2改为#1(34)窗体上有一个名为Commandl的吩咐按钮，并有下面的程序：Private Sub Comandl_Click()Dim arr(5) As I
7、ntegerFor k=l To 5arr(k) = kNext kprog arr()For k=l To 5Print arr(k) Next k End Sub Sub prog(a() As Integer) n = Ubound(a) For i = n To 2 step -1 For j = l To n-1 ifa(j)t=a(j):a(j)=a(j+l):a(j+l)=t End If Next j Next i End Sub 程序运行时，单击吩咐按钮后显示的是 A)12345 B)54321 Q01234 D)43210(35)下面程序运行时，若输入Visual Basi
8、c Programming,则在窗体上输 出的是Private Sub Comandl_Click()Dim count(25) As Integer; ch As String ch = Ucase(InputBox(请输入字母字符串”) For k=l To Len(ch) n=Asc(Mid(chzkzl)-Asc(,A) If n = 0 Then Count(n)=Count(n)+ 1 End If Next k m=count(0) For k=l To 25 If m m=count(k) End If Next kPrint mEnd SubA)0B)1C)2D)3二、填空题
9、(1)一个队列的初始状态为空。现将元素八用工刀正用5,4,3,2,1依次入队，然 后再依次退队，则元素退队的依次为【1】o(2)设某循环队列的容量为50,假如头指针front=45(指向队头元素的前一位 置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有12】个元素。(3)设二叉树如下：对该二叉树进行后序遍历的结果为【3】。(4)软件是【4】、数据和文档的集合。(5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级, 年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的 键分别是学号和课号，则关系模式选课可定义为：选课(学号，【5】，成果)。(
10、6)为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为【6】。(7)在窗体上画一个标签、一个计时器和一个吩咐按钮，其名称分别为Labll. Timerl和Commandl,如图1所示。程序运行后，假如单击吩咐按钮，贝怖 签起先闪耀，每秒钟欢迎二字显示、消逝各一次，如图2所示。以下是实现上 述功能的程序，请填空。Private Sub Form_Load()Labell.Cdption =欢迎Timerl. Enabled = FalseTimerl.Interval= 7End SubPrivate Sub Timerl_Timer()Labell.Visible= 8End Sub
11、Private Sub commandl_Click() 91End Sub开独si号挣(8)有如下程序：Private Sub Form_Click()n = 10i=0Doi = i + nn = n-2Loop While n2Print iEnd Sub程序运行后，单击窗体，输出结果为【10】。(9)在窗体上画一个名称为Commandl的吩咐按钮。然后编写如下程序:Option Base 1Private Sub Commandl_Click()Dim a(10) As IntegerFor i = l To 10a(i) = iNextCall swap ( 11)For i = l
12、 To 10Print a(i);NextEnd SubSub swap(b() As Integer)n = Ubound(b)For i = l To n / 2t=b(i)b(i) = b(n)b(n)=t12NextEnd Sub上述程序的功能是，通过调用过程swap,调换数组中数值的存放位置，即a(l) 与a(10)的值互换,与2)与a(9)的值互换,.。请填空。(10)在窗体上画一个文本框，其名称为Textl,在属性窗口中把该文本框的 MultiLine属性设置为True,然后编写如下的事务过程：Private Sub Form_Click()Open “d:testsmtextl
13、.Txt” For Input As #1Do While Not 13Line Input #1, aspect$Whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopTextl.Text=whole$14Open ,d:testsmtext2,Txt For Output As #1Print #1, 15Close #1End Sub运行程序，单击窗体，将把磁盘文件smtextl.txt的内容读到内存并在文本框 中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。2023年3月全国计算机等级考试二级VB笔试试卷答案一、选择题1-5
14、 ADBAC6-10 BADBA11-15 DBCAD16-20 CBABA21-25 ADADC26-30 CACCB31-35 CBABD二、填空题(1) A,B,C,D,E,F,5,4,3,2,1(2) 15(3) EDBGHFCA(4)程序(5)课号(6) 2(7) 500(8) Not labell.visible(9) Timerl.Enabled =True(10) 28(11) a()或 a(12) n = n-l(13) EOF(l)(14) Close#l(15) Textl-Text 或 textl(7)数据库管理系统中负责数据模式定义的语言是A)数据定义语言B)数据管理
15、语言C)数据操纵语言D)数据限制语言(8)在学生管理的关系数据库中，存取一个学生信息的数据单位是A)文件B)数据库C)字段D)记录(9)数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示, 它属于数据库设计的A)需求分析阶段B)逻辑设计阶段C)概念设计阶段D)物理设计阶段(10)有两个关系R和T如下：RACai2b22c3d32ABCc32d32则由关系R得到关系T的操作是A)选择B)投影C)交D)并(11)在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮, 这个按钮是A) CB) C)3 D).(12)设x是整型变量，与函数IIf(x0,-x,x)有相同结果
16、的代数式是A)|x|B)-|x|C)xD)-x(13)设窗体文件中有下面的事务过程：Private Sub Commandl_Click()Dim sa% = 100Print aEnd Sub其中变量d和s的数据类型分别是A)整型，整型B)变体型，变体型C)整型，变体型D)变体型，整型(14)下面哪个属性确定不是框架控件的属性A)TextB)CaptionC)LeftD)Enabled(15)下面不能在信息框中输出VB 的是A)MsgBox MVBHB)x=MsgBox(nVBn)C)MsgBox(,VBn)D)Call MsgBox nVBn(16)窗体上有一个名称为Optionl的单选按
17、钮数组，程序运行时，当单击某个 单选按钮时，会调用下面的事务过程Private Sub Optionl_Click(Index As Integer) End Sub下面关于此过程的参数Index的叙述中正确的是A)Index为1表示单选按钮被选中，为0表示未选中B)Index的值可正可负QIndex的值用来区分哪个单选按钮被选中D)Index表示数组中单选按钮的数量(17)设窗体中有一个文本框Textl,若在程序中执行了 Textl.SetFocus,则触 发A)Textl 的 SetFocus 事务B)Textl 的 GotFocus 事务C)Textl 的 LostFocus 事务D)窗
18、体的GotFocus事务(18)VB 中有 3 个键盘事务：KeyPress、Key Down KeyUp,若光标在 Textl 文本框中，则每输入一个字母A)这3个事务都会触发B)只触发KeyPress事务C)只触发KeyDown、KeyUp事务D)不触发其中任何一个事务(19)下面关于标准模块的叙述中错误的是A)标准模块中可以声明全局变量B)标准模块中可以包含一个Sub Main过程，但此过程不能被设置为启动过程C)标准模块中可以包含一些Public过程D)一个工程中可以含有多个标准模块(20)设窗体的名称为Forml,标题为Win,则窗体的MouseDown事务过程 的过程名是A)For
19、ml_MouseDownB)Win_MouseDownC)Form_MouseDownD)MouseDown_Forml(21)下面正确运用动态数组的是A)Dim arr() As Integer ReDim arr(3,5)B)Dim arr() As Integer ReDim arr(50)As StringC)Dim arr() ReDim arr(50) As IntegerD)Dim arr(50) As Integer ReDim arr(20)(22)下面是求最大公约数的函数的首部Function g cd (By Vai x As Integer, ByVai y As In
20、teger) As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是A)Print gcd(8z12), gcd(12,16), gcd(16,8)B)Print gcd(8,12,16)C)Print gcd(8), gcd(12), gcd(16)D)Print gcd(8,gcd(12,16)(23)有下面的程序段，其功能是按图1所示的规律输出数据Dim a(3,5) As IntegerFor i = l To 3For j = l To 5A(ij) = i+jPrint a(ij);NextPrintNext2 3 43454565 676 7 8图1图2
21、若要按图2所示的规律接着输出数据，则接在上述程序段后面的程序段应当是A)For i = l To 5For j = l To 3Print a(j,i);NextPrintNextB)For i = l To 3For j = l To 5Print a(j,i);NextPrintNextC)For j = l To 5For i = l To 3Print a(j,i);NextPrintNextD)For i = l To 5For j = l To 3PrintNextPrintNext(24)窗体上有一个Textl文本框，一个Commandl吩咐按钮，并有以下程序 Private S
22、ub Commandl_Cljck()Dim nIf Textl.Texto,23456n Then n = n+lPrint ”口令输入错误 & n & 次End IfEnd Sub希望程序运行时得到左图所示的效果，即：输入口令，单击确认口令吩咐按钮， 若输入的口令不是123456，则在窗体上显示输入错误口令的次数。但上面的 程序实际显示的是右图所示的效果，程序须要修改。下面修改方案中正确的是 A）在Dim n语句的下面添加一句：n=0B）把Print ”口令输入错误 & n & ”次改为Print ”口令输入错误 +n+次” C）把Print ” 口令输入错误 & n & ”次“改为Pri
23、nt ”口令输入错误”&Str（n）&” 次,，D）把 Dim n 改为 Static n(25)要求当鼠标在图片框Pl中移动时，马上在图片框中显示鼠标的位置坐标。 下面能正的确现上述功能的事务过程是A)Private Sub Pl_MouseMove(Button AS Integer,Shift As Integer,/ As Single, Y As Single)Print X,YEnd SubB)Private Sub Pl_MouseDown(Button AS Integer,Shift As Integer,XAs Single, Y As Single)Picture.Pri
24、nt X,YEnd SubC) Private Sub Pl_MouseMove(Button AS Integei;Shift As Integer,/As Single, Y As Single)Pl.Print X,YEnd SubD)Private Sub Form_MouseMove(Button AS IntegerzShift As Integer;/As Single, Y As Single)Pl.Print X,YEnd Sub(26)计算圆周率的近似值的一个公式是：+ (-1严某人编写下面的程序用此公式计算并输出n的近似值：Private Sub Comandl_Clic
25、k()PI=1Sign = ln=20000For k=3 To nSign = -Sign/kPI=PI+Sign/kNext kPrint PI*4End Sub运行后发觉结果为3.22751,明显，程序须要修改。下面修改方案中正确的是A)把 For k=3 To n 改为 For k=l To nB)把 n = 20000 改为 n = 20000000C)把 For k=3 To n 改为 For k=3 To n Step 2D)把 PI=1 改为 PI=0(27)下面程序计算并输出的是Private Sub Comandl_Click() a = 10 s=0Dos=s+a*a*a
26、 a=a-lLoop Until a=0Print sEnd SubA)13 + 23+33 + 103 的值B)10! + 3! + 2! + l!的值C)(l + 2+34-.+10)3 的值D)10个103的和(28)若在窗体模块的声明部分声明白如下自定义类型和数组Private Type recCode As IntegerCaption As StringEnd TypeDim arr(5) As rec则下面的输出语句中正确的是A)Print arr.Code(2),arr.Caption(2)B)Print arr.Code,arr.CaptionC)Print arr(2).C
27、ode,arr(2)-CaptionD)Print Code(2),Caption(2)(29)设窗体上有一个通用对话框控件CDL希望在执行下面程序时，打开如图 所示的文件对话框Private Sub Comandl_Click()CDLDialogTitle=”打开文件“CDlJnitDir=nC:nCDLFilter=全部文件|*,*|Word文档|*.doc|文本文件CDl.FileName=HCDl.Action = lIf CDl.FileName=,HThenPrint”未打开文件”ElsePrint”要打开文件”& CDl.FileNameEnd IfEnd Sub但实际显示的对
28、话框中列出了 C:下的全部文件和文件夹，文件类型一栏中显 示的是全部文件。下面的修改方案中正确的是A)把 CDl.Action = l 改为 CDl.Action = 2B)把CDl.Filter=后面字符串中的全部文件改为文本文件C)在语句 CDl.Action = l 的前面添加:CDl.FilterIndex=3D)把 CDl.FileName=”改为 CDl.FileName=文本文件”(30)下面程序运行时，若输入395,则输出结果是Private Sub Comandl_Click()Dim x%x=InputBox(请输入一个3位整数”)Print x Mod 10,x100,(x Mod 100)10End SubA)3 9 5B)5 3 9C)5 9 3D)3 5 9(31)窗体上有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下 面的程序：