1、二级 VISUAL+BASIC 笔试-153 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.软件工程方法的产生源于软件危机，下列哪个(些)是产生软件危机的内在原因？软件复杂性 软件维护困难 软件成本太高 软件质量难保证_。（分数：2.00）A.B.C.和D.和2.编写如下事件过程：Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)If Shift = 6 And Button = 2 ThenPrint “BBB
2、B“End IfEnd Sub程序运行后，为了在窗体上输出“BBBB“，应执行的操作为_。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Ctrl、Alt 键和鼠标右键C.同时按下 Shift 键和鼠标右键D.同时按下 Ctrl、Alt 键和鼠标左键3.阅读下面的程序：Private Sub Form_Click()Dim Check， CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfL
3、oopLoop Until Check = FalsePrint Counter， CheckEnd Sub程序运行后，单击窗体，输出结果为_。（分数：2.00）A.15 0B.20 -1C.10 TrueD.10 False4.阅读下面的程序：Private Sub Command1_Click()For i = 1 To 3For j = 1 To iFor k = j To 3x = x + 1Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，窗体上输出结果是_。（分数：2.00）A.3B.9C.14D.215.若想使时钟控制每隔 0.25 秒触发
4、一次 Timer()事件，则可将 Interval 属性值设为_。（分数：2.00）A.Interval = 0.25B.Interval = 25C.Interval = 250D.Interval = 25006.给出下面程序：Private Sub Command1_Click()Dim x， y， zX = FalseFor Each y In zIf y.Text = “Hello“ Thenx = TrueExit ForEnd IfNext yEnd Sub下面描述正确的是_。（分数：2.00）A.退出 For EachNext 循环的条件是 x= TrueB.退出 For Ea
5、chNext 循环的条件是 x= FalseC.程序检查 y 对象的 Text 属性，等于“时退出 ForEachNext 循环D.程序逐一查找在 z 中的对象，不确切并判断其 Text 属性，文本框中的内容等于“Hello“时退出 ForEachNext 循环7.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x(5)As StringDim n As IntegerFor n = 4 To 0 Step -1x(n)= n + 1Print x(n);Next nEnd Sub程序运行后，单击命令按钮
6、，则窗体上显示的内容是_。（分数：2.00）A.54321B.4C.5 4 3 2 1D.08.确定一个窗体或控件的大小的属性是_。（分数：2.00）A.Width 或 HeightB.Width 和 HeightC.Top 或 LeftD.Top 和 Left9.在 VisualBasic 中，下列优先级最高的运算符是_。（分数：2.00）A.*B./C.D.Not10.下述说法不正确的是_。（分数：2.00）A.栈是一种运算受限的线性结构B.栈是一种后进先出的线性结构C.栈可以是线性结构也可以是非线性结构D.栈可以用数组或链表来实现11.对于长度为 n 的线性表，在最坏情况下，下列各排序法
7、所对应的比较次数中正确的是_。（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/212.数据库系统与文件系统的主要区别是_。（分数：2.00）A.文件系统不能解决数据冗余和数据独立性问题，而数据库系统可解决这类问题B.文件系统只能管理少量数据，而数据库系统则能管理大量数据C.文件系统只能管理程序文件，而数据库系统则能管理各种类型的文件D.文件系统简单，而数据库系统复杂13.已知一个有序表为(13，18，24，35，47，50，62，83，90，115，134)，当使用二分法查找值为 90 的元素时，查找成功的比较次数为_。（分数：2.00
8、）A.1B.2C.3D.914.数据的存储结构是指_。（分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示15.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应在程序中使用的语句是_。（分数：2.00）A.menu1.Enabled = TrueB.menu1.Enabled = FalseC.menu1.Visible = TrueD.menu1.Visible = False16.设有如下程序：Private Sub search(a()As Variant, ByVal key
9、As Variant, index%)Dim I%For I = LBound（分数：2.00）A.To UBound(a)dEnd Sub程序运行后，在文本框 Text1、Text2 中分别输入 AbC 和 efG，结果是_。（分数：2.00）A.abcEFGB.abcefgC.ABCefgD.ABCEFG30.InputBox 函数返回值的类型是_。（分数：2.00）A.数值B.字符串C.变体D.数值或字母串(视输入的数据而定)31.窗体上有一个命令按钮 Command1 和一个列表框 List1，其中 List1 有 0、1、2、3、4 内容，有下列程序：Private Sub Comm
10、and1_Click()Dim i， sFor i = 0 To List1.ListCounts = s + List1.List(i)Next iPrint sEnd Sub程序运行后，单击命令按钮，则窗体上显示的是_。（分数：2.00）A.0B.10C.01234D.程序出错32.下面概念中，不属于面向对象方法的是_。（分数：2.00）A.对象、消息B.继承、多态C.类、封装D.过程调用33.为了在按下 Esc 键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是_。（分数：2.00）A.ValueB.DefaultC.CancelD.Enabled34
11、.如果 x 为整数且|x| = 100，则打印“OK“，否则打印“Error“，表示这个条件的单行格式 If 语句是_。（分数：2.00）A.If Int(x)= x And Sqr(x) = 100 Then Print “OK“ Else Print “Error“B.If Fix (x)= x And Abs(x) = 100 Then Print “OK“ Else Print “Error“C.If Int(x)= x And (x = 100, x = -100)Then Print “OK“ Else Print “Error“D.If Fix(x)= x And x = 100
12、 And x = -100 Then Print “OK“ Else Print “Error“35.使用白盒测试方法时，确定测试数据应根据_和指定的覆盖标准。（分数：2.00）A.程序的内部逻辑B.程序的复杂结构C.使用说明书D.程序的功能二、填空题(总题数：11，分数：30.00)36.若长度为 n 的线性表采用顺序存储结构，在等概率假设的情况下，删除一个的数据元素，需要先依次移动 1 个数据元素。（分数：2.00）填空项 1:_37.具有 n 个结点的完全二叉树的深度为 1。（分数：2.00）填空项 1:_38.在程序设计语言中，重复结构对应两类循环语句，对先执行循环体后判断的称为 1
13、循环结构。（分数：2.00）填空项 1:_39.Jackson 结构化程序设计方法是英国的 MJackson 提出的，它是一种面向 1 的设计方法。（分数：2.00）填空项 1:_40.数据库的逻辑模型设计阶段的主要任务是将 1 转换成关系模型。（分数：2.00）填空项 1:_为了建立窗体的 Click 事件过程，即 Form_Click，应先在代码窗口的 (6) 栏中选择 Form，然后在 (7) 栏中选择 Click。（分数：4.00）填空项 1:_填空项 1:_41.运行下列程序：Dim t As IntegerPrivate Sub Form_Click()t = 2x = Val(I
14、nputBox(“输入一个整数 5“)Print fun1(x); tEnd SubPrivate Function fun1(y)If y 0 Thenfun1 = 1: t = 10ElseIf y = 0 Thenfun1 = 0: t = 20Elsefun1 = -1: t = 30End IfEnd Function从键盘为变量 x 输入数据 5，输出的结果是_。（分数：2.00）填空项 1:_在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Command1)，然后编写如下事件过程：Private Sub Command1 Click()Tex
15、t1.Text = InputBox(“请输入数据 1“)Text2.Text = InputBox(“请输入数据 2)End Sub程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入 123 和abc，则两个文本框中显示的内容分别为 (9) 和 (10) 。（分数：4.00）填空项 1:_填空项 1:_42.在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入 A、B、C、D 或a、b、c、d，则在第二个文本框中显示 EFDH。请完善下列程序。Private Sub Form_Load()ShowText1.Text = “Text2.Te
16、xt = “Text1.SetFocusEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer)Text2.Text = _End Sub（分数：2.00）填空项 1:_43.要想在文本框中显示垂直滚动条，必须把 ScrollBars 属性设置为 2，同时还应把 1 属性设置为True。（分数：2.00）填空项 1:_有下列程序，运行后变量 x1、y1 和 z1 的结果分别是 (13) 、 (14) 和 (15) 。Private Sub fun1(s， m， n)s = m + 1m = n + 2n = s
17、 + 3End SubPrivate Sub form_Click()Dim x1， y1x1 = 1 : y1 = 1 : z1 = 1Call fun1(x1， y1 + 1， (z1)Debug.Print x1; y1; z1End Sub（分数：6.00）填空项 1:_填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-153 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.软件工程方法的产生源于软件危机，下列哪个(些)是产生软件危机的内在原因？软件复杂性 软件维护困难 软件成本太高 软件质量难保证_。（分数：2.00
18、）A.B.C.和D.和 解析：2.编写如下事件过程：Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)If Shift = 6 And Button = 2 ThenPrint “BBBB“End IfEnd Sub程序运行后，为了在窗体上输出“BBBB“，应执行的操作为_。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Ctrl、Alt 键和鼠标右键 C.同时按下 Shift 键和鼠标右键D.同时按下 Ctrl、Alt 键和鼠标左键解析：3.阅
19、读下面的程序：Private Sub Form_Click()Dim Check， CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter， CheckEnd Sub程序运行后，单击窗体，输出结果为_。（分数：2.00）A.15 0B.20 -1C.10 TrueD.10 False 解析：4.阅读下面的程序：Private Sub
20、Command1_Click()For i = 1 To 3For j = 1 To iFor k = j To 3x = x + 1Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，窗体上输出结果是_。（分数：2.00）A.3B.9C.14 D.21解析：5.若想使时钟控制每隔 0.25 秒触发一次 Timer()事件，则可将 Interval 属性值设为_。（分数：2.00）A.Interval = 0.25B.Interval = 25C.Interval = 250 D.Interval = 2500解析：6.给出下面程序：Private Sub
21、 Command1_Click()Dim x， y， zX = FalseFor Each y In zIf y.Text = “Hello“ Thenx = TrueExit ForEnd IfNext yEnd Sub下面描述正确的是_。（分数：2.00）A.退出 For EachNext 循环的条件是 x= TrueB.退出 For EachNext 循环的条件是 x= FalseC.程序检查 y 对象的 Text 属性，等于“时退出 ForEachNext 循环D.程序逐一查找在 z 中的对象，不确切并判断其 Text 属性，文本框中的内容等于“Hello“时退出 ForEachNex
22、t 循环 解析：7.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x(5)As StringDim n As IntegerFor n = 4 To 0 Step -1x(n)= n + 1Print x(n);Next nEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.54321 B.4C.5 4 3 2 1D.0解析：8.确定一个窗体或控件的大小的属性是_。（分数：2.00）A.Width 或 HeightB.Width 和 Height C.Top 或 Lef
23、tD.Top 和 Left解析：9.在 VisualBasic 中，下列优先级最高的运算符是_。（分数：2.00）A.* B./C.D.Not解析：10.下述说法不正确的是_。（分数：2.00）A.栈是一种运算受限的线性结构B.栈是一种后进先出的线性结构C.栈可以是线性结构也可以是非线性结构 D.栈可以用数组或链表来实现解析：11.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/2 解析：12.数据库系统与文件系统的主要区别是_。（分数：2.00）A.文件
24、系统不能解决数据冗余和数据独立性问题，而数据库系统可解决这类问题 B.文件系统只能管理少量数据，而数据库系统则能管理大量数据C.文件系统只能管理程序文件，而数据库系统则能管理各种类型的文件D.文件系统简单，而数据库系统复杂解析：13.已知一个有序表为(13，18，24，35，47，50，62，83，90，115，134)，当使用二分法查找值为 90 的元素时，查找成功的比较次数为_。（分数：2.00）A.1B.2 C.3D.9解析：14.数据的存储结构是指_。（分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示 解析
25、：15.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应在程序中使用的语句是_。（分数：2.00）A.menu1.Enabled = TrueB.menu1.Enabled = FalseC.menu1.Visible = TrueD.menu1.Visible = False 解析：16.设有如下程序：Private Sub search(a()As Variant, ByVal key As Variant, index%)Dim I%For I = LBound（分数：2.00）A.To UBound(a)dEnd Sub程序运行后，在文本框 Text1、
26、Text2 中分别输入 AbC 和 efG，结果是_。（分数：2.00）A.abcEFG B.abcefgC.ABCefgD.ABCEFG解析：30.InputBox 函数返回值的类型是_。（分数：2.00）A.数值B.字符串 C.变体D.数值或字母串(视输入的数据而定)解析：31.窗体上有一个命令按钮 Command1 和一个列表框 List1，其中 List1 有 0、1、2、3、4 内容，有下列程序：Private Sub Command1_Click()Dim i， sFor i = 0 To List1.ListCounts = s + List1.List(i)Next iPrin
27、t sEnd Sub程序运行后，单击命令按钮，则窗体上显示的是_。（分数：2.00）A.0B.10C.01234 D.程序出错解析：32.下面概念中，不属于面向对象方法的是_。（分数：2.00）A.对象、消息B.继承、多态C.类、封装D.过程调用 解析：33.为了在按下 Esc 键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是_。（分数：2.00）A.ValueB.DefaultC.Cancel D.Enabled解析：34.如果 x 为整数且|x| = 100，则打印“OK“，否则打印“Error“，表示这个条件的单行格式 If 语句是_。（分数：2.0
28、0）A.If Int(x)= x And Sqr(x) = 100 Then Print “OK“ Else Print “Error“B.If Fix (x)= x And Abs(x) = 100 Then Print “OK“ Else Print “Error“ C.If Int(x)= x And (x = 100, x = -100)Then Print “OK“ Else Print “Error“D.If Fix(x)= x And x = 100 And x = -100 Then Print “OK“ Else Print “Error“解析：35.使用白盒测试方法时，确定
29、测试数据应根据_和指定的覆盖标准。（分数：2.00）A.程序的内部逻辑 B.程序的复杂结构C.使用说明书D.程序的功能解析：二、填空题(总题数：11，分数：30.00)36.若长度为 n 的线性表采用顺序存储结构，在等概率假设的情况下，删除一个的数据元素，需要先依次移动 1 个数据元素。（分数：2.00）填空项 1:_ （正确答案：(n-1)/2）解析：37.具有 n 个结点的完全二叉树的深度为 1。（分数：2.00）填空项 1:_ （正确答案：log2n+1）解析：38.在程序设计语言中，重复结构对应两类循环语句，对先执行循环体后判断的称为 1 循环结构。（分数：2.00）填空项 1:_ （
30、正确答案：直到型）解析：39.Jackson 结构化程序设计方法是英国的 MJackson 提出的，它是一种面向 1 的设计方法。（分数：2.00）填空项 1:_ （正确答案：数据结构）解析：40.数据库的逻辑模型设计阶段的主要任务是将 1 转换成关系模型。（分数：2.00）填空项 1:_ （正确答案：E-R 图）解析：为了建立窗体的 Click 事件过程，即 Form_Click，应先在代码窗口的 (6) 栏中选择 Form，然后在 (7) 栏中选择 Click。（分数：4.00）填空项 1:_ （正确答案：“对象“对象）解析：填空项 1:_ （正确答案：“过程“过程）解析：41.运行下列程
31、序：Dim t As IntegerPrivate Sub Form_Click()t = 2x = Val(InputBox(“输入一个整数 5“)Print fun1(x); tEnd SubPrivate Function fun1(y)If y 0 Thenfun1 = 1: t = 10ElseIf y = 0 Thenfun1 = 0: t = 20Elsefun1 = -1: t = 30End IfEnd Function从键盘为变量 x 输入数据 5，输出的结果是_。（分数：2.00）填空项 1:_ （正确答案：1 10）解析：在窗体上画两个文本框(名称分别为 Text1 和
32、 Text2)和一个命令按钮(名称为 Command1)，然后编写如下事件过程：Private Sub Command1 Click()Text1.Text = InputBox(“请输入数据 1“)Text2.Text = InputBox(“请输入数据 2)End Sub程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入 123 和abc，则两个文本框中显示的内容分别为 (9) 和 (10) 。（分数：4.00）填空项 1:_ （正确答案：123）解析：填空项 1:_ （正确答案：abc）解析：42.在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一
33、个文本框中输入 A、B、C、D 或a、b、c、d，则在第二个文本框中显示 EFDH。请完善下列程序。Private Sub Form_Load()ShowText1.Text = “Text2.Text = “Text1.SetFocusEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer)Text2.Text = _End Sub（分数：2.00）填空项 1:_ （正确答案：Text2.Text+Chr (KeyCode+4)）解析：43.要想在文本框中显示垂直滚动条，必须把 ScrollBars 属性设置
34、为 2，同时还应把 1 属性设置为True。（分数：2.00）填空项 1:_ （正确答案：MultiLine）解析：有下列程序，运行后变量 x1、y1 和 z1 的结果分别是 (13) 、 (14) 和 (15) 。Private Sub fun1(s， m， n)s = m + 1m = n + 2n = s + 3End SubPrivate Sub form_Click()Dim x1， y1x1 = 1 : y1 = 1 : z1 = 1Call fun1(x1， y1 + 1， (z1)Debug.Print x1; y1; z1End Sub（分数：6.00）填空项 1:_ （正确答案：3）解析：填空项 1:_ （正确答案：1）解析：填空项 1:_ （正确答案：1）解析：
