1、二级 VISUAL+BASIC-9-1 及答案解析(总分：76.50，做题时间：90 分钟)一、选择题(总题数：25，分数：44.50)1.下列叙述中正确的是_。（分数：2.00）A.数据的逻辑结构与存储结构是一一对应的B.算法的时间复杂度与空间复杂度一定相关C.算法的效率只与问题的规模有关，而与数据的存储结构无关D.算法的时间复杂度是指执行算法所需要的计算工作量2.在使用打印直接输出信息时，下列哪个属性或方法实现了使文件结束打印 _ 。（分数：2.00）A.Print 方法B.Page 属性C.NewPage 方法D.EndDoc 方法3.软件测试的目的是_。（分数：3.00）A.评估软件可
2、靠性B.发现并改正程序中的错误C.改正程序中的错误D.发现程序中的错误4.下列叙述中正确的是 _ 。（分数：2.00）A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试D.程序经调试改错后不必进行再测试5.在窗体上添加“控件”的正确的操作方式是（分数：2.50）A.先单击工具箱中的控件图标，再单击窗体上适当位置B.先单击工具箱中的控件图标，再双击窗体上适当位置C.直接双击工具箱中的控件图标，该控件将出现在窗体上D.直接将工具箱中的控件图标拖动到窗体上适当位置6.滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_。（分数：2.00）A.
3、MaxB.ValueC.LargeChangeD.SmallChange7.确定图片框 Picture1 在窗体上位置的属性是_。（分数：1.00）A.Width 和 HeightB.Left 和 TopC.Width 和 TopD.Height 和 Left8.过程语句中，使用的参数表可以是下列哪种 _ 。（分数：2.00）A.常量或变量名B.表达式或变量名C.数组元素或变量名D.变量名或数组名9.假定程序中有如下语句： answer = MsgBox(“第一个字符串“，vbAbortRetryIgnore Or vbCritical _Or vbDefaultButton3，“第二个字符串
4、“) 执行该语句后，将显示一个信息框，此时如果按回车键，则 answer 的值为_。（分数：2.00）A.“第二个字符串“B.5C.3D.710.在窗体上添加一个命令按钮，名为 Command1，事件过程如下，则执行结果是_。 （分数：2.00）A.2 4 6 8B.1 3 5 7C.3 6 6 12D.4 8 12 1611.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End
5、Sub 程序运行后，输出的结果是（分数：1.00）A.2 3B.2 56C.5 12D.10 2012.假定有以下循环结构： Do Until 条件表达式 循环体 Loop 则以下正确的描述是_。（分数：1.00）A.如果“条件表达式”的值是 0，则一次循环体也不执行B.如果“条件表达式”的值不为 0，则至少执行一次循环体C.不论“条件表达式”的值是否为“真”，至少要执行一次循环体D.如果“条件表达式”的值恒为 0，则无限次执行循环体13.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过过程，需要把该命令按钮的一个属性设置为 True,这个属性是（分数：1.00）A.ValueB
6、.DefaultC.CancelD.Enabled14.软件调试的目的是_。（分数：2.00）A.发现错误B.改正错误C.改善软件的性能D.挖掘软件的潜能15.以下能判断是否到达文件尾的函数是 （分数：1.00）A.BOFB.LOCC.LOFD.EOF16.以下关于 MsgBox 的叙述中，错误的是_。（分数：2.00）A.MsgBox 函数返回一个整数B.通过 MsgBox 函数可以设置信息框中图标和按钮的类型C.MsgBox 语句没有返回值D.MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量17.在 VisualBasic 中，下列优先级最高的运算符是_。（分
7、数：2.00）A.*B./C.D.Not18.下列关于队列的叙述中正确的是_。（分数：2.00）A.在队列中只能插入数据B.在队列中只能删除数据C.队列是先进先出的线性表D.队列是先进后出的线性表19.对于长摩为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。 A.冒泡排序为 n/2 B.冒泡排序为 n C.快速排序为 n2 D.快速排序为 n(n-1)/2（分数：2.00）A.B.C.D.20.下面对对象概念描述错误的是_。（分数：2.00）A.任何对象都必须有继承性B.对象是属性和方法的封装体C.对象间的通讯靠消息传递D.操作是对象的动态性属性21.在窗体上画一个名
8、称为 Text1 的文本框，然后编写如下代码： Option Base 1 Private Sub Form Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c = Sum/Finish Text1.Text = c End Sub 程序运行后
9、，单击窗体，则在文本框中显示的内容是_ 。（分数：2.00）A.40B.10C.12D.1622.假定窗体上有一个标签，名称为 Lahel1，为了使该标签透明并且没有边框，则正确的属性设置为_。（分数：2.00）A.Label1. BackStyle=0Label1. BorderStyle=0B.Label1. BackStyle=1Label1. BorderStyle=1C.Label1. BackStyle=TrueLabel1. BorderStyle=TrueD.Label1. BackStyle=FalseLabel1. BorderStyle=False23.执行下列程序段后，
10、输出的结果是 For k1=0 To 4 y=20 For k2=0 To 3 y=10 For k3=0 To 2 y=y+10 Next k3 Next k2 Next k1 Print y（分数：1.00）A.90B.60C.40D.1024.表示滚动条控件取值范围最大值的属性是 _ 。（分数：2.00）A.MaxB.LargeChangeC.ValueD.Min25.下面四个选项，不是事件的是（分数：1.00）A.LoadB.EnabledC.UnloadD.DblClick二、填空题(总题数：13，分数：32.00)26.在最坏情况下，堆排序需要比较的次数为 _ 1_ 。 （分数：1
11、.00）27.假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的 15 个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer Cls Print“Mousepointer Property is now“；x Form1. 1 2_ =x x=x+1 If x=15 Then x=0 End Sub （分数：1.00）28.一个栈的初始状态为空。首先将元素 1，2，3，4，5 依次入栈，然后退栈一次，再将元素 A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元
12、素退栈(包括中间退栈的元素)的顺序为 1。 （分数：2.00）窗体上有 List1、List2 两个列表框，程序运行时，在两个列表框中分别选中 1 个项目，如图 a 所示，单击名称为 Command1 的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图 b 所示。下面的程序可实现这一功能，请填空。 （分数：4.00）29.设在界面上放置了一个滚动条 Hscroll1 和一个标签控件 Label1，请补齐以下代码，要求每次单击滚动条两端箭头，或滚动条滑块与两端箭头之间的空白区域时，滚动条的值能够反映在标签中。 Private Sub Hscroll1 1 Label1.Caption=H
13、scroll1 2 End Sub （分数：4.00）30.执行下面的程序段后，S 的值为 _ 1_ 。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i （分数：2.00）31.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是 _ 1_ 。 （分数：1.00）完成下面的程序，使显示结果如下图所示。 Private Sub Form_Click() FontSize=18 Samples=“ 9 “ x=(ScaleWidth_TextWidth(Samples)/2 y=(ScaleHeight_TextHeight(Samples)/2 C
14、urrentX=x CurrentY=y 10 Sample$ End Sub （分数：8.00）32.执行下列程序，输入数字 3，则输出结果为 _ 1_ 。 Private Sub Command1_Click() a=InputBox(“Input a Number“) If a5 Then GoTo L5 Else If a2 Then GoTo L2 Else GoTo L3 End If Exit Sub L5: Print a Mod5 Exit Sub L3: Print a Mod 3 Exit Sub L2: Print a Mod 2 End Sub （分数：2.00）33
15、.对窗体编写如下两个事件过程： Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer) Print Chr (KeyCode) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) Print Chr (KeyAscii) End Sub 程序运行后，如果直接按键盘上的 a 键(即不按住 shift 键)，则在窗体上输出的字符分别为 1 和 2 。 （分数：2.00）34.在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分
16、别输入 321 和 456，则输出结果为 _ 1_ 。 Private Sub Command1_Click() a=InputBox(“请输入一个整数“) b=InputBox(“请再输入一个整数“) Print a+b End Sub （分数：1.00）35.运行下列程序： Dim t As Integer Private Sub Form_C1ick 1 t=2 x=Val(InputBox(“输入一个整数 5“) Print funl(x)；t End Sub Private Function funl(v) If y0 Then fun1=1:t=10 Else If y=0 The
17、n fun1=0:t=20 Else fun1=-1:t=30 End If End Function 从键盘为变量 x 输入数据 5，输出的结果是 2。 （分数：2.00）36.数据库设计分为以下 6 个设计阶段：需求分析阶段、 1、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。 （分数：2.00）二级 VISUAL+BASIC-9-1 答案解析(总分：76.50，做题时间：90 分钟)一、选择题(总题数：25，分数：44.50)1.下列叙述中正确的是_。（分数：2.00）A.数据的逻辑结构与存储结构是一一对应的B.算法的时间复杂度与空间复杂度一定相关C.算法的效率只与问题的规模有关
18、，而与数据的存储结构无关D.算法的时间复杂度是指执行算法所需要的计算工作量 解析：解析 根据时间复杂度和空间复杂度的定义可知，算法的时间复杂度与空间复杂度并不相关。数据的逻辑结构就是数据元素之间的逻辑关系，它是从逻辑上描述数据元素之间关系的，是独立于计算机的；数据的存储结构是研究数据元素和数据元素之间的关系如何在计算机中表示的，它们并非一一对应。算法的执行效率不仅与问题的规模有关，还与数据的存储结构有关。2.在使用打印直接输出信息时，下列哪个属性或方法实现了使文件结束打印 _ 。（分数：2.00）A.Print 方法B.Page 属性C.NewPage 方法D.EndDoc 方法 解析：解析
19、每次应用程序结束时，它们会自动使用 EndDoc 方法，将打印机对象中任何未确定的信息送到打印机， 即通过“Printer.EndDoc”方法用来结束文件打印。3.软件测试的目的是_。（分数：3.00）A.评估软件可靠性B.发现并改正程序中的错误C.改正程序中的错误D.发现程序中的错误 解析：解析 软件测试是为了发现错误而执行程序的过程，测试要以查找错误为中心，而不是为了演示软件的正确功能。不是为了评估软件或改正错误。4.下列叙述中正确的是 _ 。（分数：2.00）A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试 D.程序经调试改错后不必进行再测试
20、解析：5.在窗体上添加“控件”的正确的操作方式是（分数：2.50）A.先单击工具箱中的控件图标，再单击窗体上适当位置B.先单击工具箱中的控件图标，再双击窗体上适当位置C.直接双击工具箱中的控件图标，该控件将出现在窗体上 D.直接将工具箱中的控件图标拖动到窗体上适当位置解析：6.滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_。（分数：2.00）A.MaxB.ValueC.LargeChangeD.SmallChange 解析：解析 滚动条控件(HScroll 或者 VScroll)的属性和事件： 属性 Value 属性 Value 属性对应于滚动框在滚动条中的位置，其值介于
21、Min 和 Max 属性值之间。当 Value 属性值等于 Min属性值时，滚动框位于滚动条的最左端(水平滚动条)或最顶端(垂直滚动条)；当 Value 属性值等于 Max 属性值时，滚动框位于滚动条的最右端(水平滚动条)或最底端(垂直滚动条)。 Min 和 Max 属性 Min 属性设置滚动框位于滚动条最左端或者最顶端时 Value 属性的值。Max 属性设置滚动框位于滚动条最右端或者最底端时 Value 属性的值。 SmallChange 属性 设置鼠标单击滚动箭头时滚动框移动的大小。 LargeChange 属性 设置鼠标单击滚动箭头和滚动框之间的区域时，滚动框的移动大小。 事件 Scr
22、oll 事件 拖动滚动框时，Scroll 事件被触发。 Change 事件 释放滚动框或者单击滚动条或滚动箭头时，Change 事件被触发。7.确定图片框 Picture1 在窗体上位置的属性是_。（分数：1.00）A.Width 和 HeightB.Left 和 Top C.Width 和 TopD.Height 和 Left解析：解析 确定图片框在窗体上位置的属性是 Left 和 Top，它们使用的是相对坐标，以窗体为参考点。8.过程语句中，使用的参数表可以是下列哪种 _ 。（分数：2.00）A.常量或变量名B.表达式或变量名C.数组元素或变量名D.变量名或数组名 解析：解析 参数表含有在
23、调用时传送给过程的简单变量或数组名，如果是数组，则要在数组名后加上一对括号。参数过程中不允许有常量、表达式和数组元素出现。9.假定程序中有如下语句： answer = MsgBox(“第一个字符串“，vbAbortRetryIgnore Or vbCritical _Or vbDefaultButton3，“第二个字符串“) 执行该语句后，将显示一个信息框，此时如果按回车键，则 answer 的值为_。（分数：2.00）A.“第二个字符串“B.5 C.3D.7解析：10.在窗体上添加一个命令按钮，名为 Command1，事件过程如下，则执行结果是_。 （分数：2.00）A.2 4 6 8 B.
24、1 3 5 7C.3 6 6 12D.4 8 12 16解析：解析 本题的难点是子过程调用和形参与实参结合的对应关系。数组 a()先被赋初值，再用子过程名调用子过程，在子过程内数组 a()又被重新赋值，通过按值传值将 a()的数据带回。11.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End Sub 程序运行后，输出的结果是（分数：1.00）A.2 3B.2 56 C.5 12D
25、.10 20解析：12.假定有以下循环结构： Do Until 条件表达式 循环体 Loop 则以下正确的描述是_。（分数：1.00）A.如果“条件表达式”的值是 0，则一次循环体也不执行B.如果“条件表达式”的值不为 0，则至少执行一次循环体C.不论“条件表达式”的值是否为“真”，至少要执行一次循环体D.如果“条件表达式”的值恒为 0，则无限次执行循环体 解析：解析 本题的 Do UntilLoop 循环结构是先判断，再执行的结构。 Do Until 循环语句执行的过程是，先判断条件表达式的值，如果条件表达式的值为 0 或 False 时，即条件不成立时，则执行循环体，否则当条件表达式的值为
26、非 0 或 True 时，即成立，则退出 DOLoop 循环。 本题中，选项 A 条件表达式的值是 0，说明条件不成立，执行循环体。故 A 错误。 选项 B 条件表达式的值不为 0，说明条件成立，退出循环。故 B 错误。 选项 C 中 Do UntilLoop 语句中条件表达式的值为“假”时，才至少执行一次循环体，故 C 错误。 选项 D 中条件表达式的值恒为 0，说明表达式总是不成立，所以可无限执行循环体，故 D 选项正确。13.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过过程，需要把该命令按钮的一个属性设置为 True,这个属性是（分数：1.00）A.ValueB.Def
27、aultC.Cancel D.Enabled解析：解析 设置 Default 属性为 True，表示该命令按钮为窗体的默认按钮。当用户按下 Enter 键时，执行该按钮的 Click 事件；设置 Cancel 属性为 False，表示该命令按钮为窗体的默认取消按钮，当用户按下 Esc 键时，执行该按钮的 Click 事件。Enabled 属性用于设置命令按钮是否能够响应用户的单击。14.软件调试的目的是_。（分数：2.00）A.发现错误B.改正错误 C.改善软件的性能D.挖掘软件的潜能解析：解析 由程序调试的概念可知：程序调试活动由两部分组成，其一是根据错误的迹象确定程序中错误的确切性质、原因
28、和位置。其二，对程序进行修改，排除这个错误。所以程序调试的目的就是诊断和改正程序中的错误。15.以下能判断是否到达文件尾的函数是 （分数：1.00）A.BOFB.LOCC.LOFD.EOF 解析：解析 文件操作的函数主要有 LOC、LOF、EOF 这几种。LOC 返回文件号指定的文件的当前读写位置；LOF 返回文件的长度；EOF 用来测试文件的结束状态，它可以判断是否到达文件尾。16.以下关于 MsgBox 的叙述中，错误的是_。（分数：2.00）A.MsgBox 函数返回一个整数B.通过 MsgBox 函数可以设置信息框中图标和按钮的类型C.MsgBox 语句没有返回值D.MsgBox 函数
29、的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量 解析：解析 MsgBox 函数的格式如下： MsgBox(msg, type, title, helpflle, context) 其中函数的第二个参数 type 是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的种类及数量。该数值分为 4 类，其作用如下。 数值 05：对话框内命令按钮的类型和数量。按钮共有 7 种。即确认、取消、终止、重试、忽略、是、否。每个数值表示一种组合方式。 数值 16、32、48、64：指定对话框所显示的图标。共有 4 种，其中 16 指定暂停；32 表示疑问(?)；48通常用于警告(!)；64
30、 用于忽略(1)。 数值 0、256、512、768：指定默认活动按钮。活动按钮中文字的周围有虚线，按回车键可执行该按钮的操作。 数值 0、4096：分别用于应用程序和系统强制返回。17.在 VisualBasic 中，下列优先级最高的运算符是_。（分数：2.00）A.* B./C.D.Not解析：18.下列关于队列的叙述中正确的是_。（分数：2.00）A.在队列中只能插入数据B.在队列中只能删除数据C.队列是先进先出的线性表 D.队列是先进后出的线性表解析：解析 队列是指允许在一端进行插入、而在另一端进行删除的线性表。它又称为“先进先出”或“后进后出”的线性表，体现了“先来先服务”的原则。1
31、9.对于长摩为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。 A.冒泡排序为 n/2 B.冒泡排序为 n C.快速排序为 n2 D.快速排序为 n(n-1)/2（分数：2.00）A.B.C. D.解析：解析 快速排序的最坏情况是对于排好序的线性表进行快速排序，由于不能通过交换减少逆序，所以要进行的比较次数是线性表元素的个数。20.下面对对象概念描述错误的是_。（分数：2.00）A.任何对象都必须有继承性 B.对象是属性和方法的封装体C.对象间的通讯靠消息传递D.操作是对象的动态性属性解析：解析 对象是由数据和容许的操作组成的封装体，与客观实体有直接的对应关系。对象之间
32、通过传递消息互相联系，以模拟现实世界中不同事物彼此之间的联系。21.在窗体上画一个名称为 Text1 的文本框，然后编写如下代码： Option Base 1 Private Sub Form Click() Dim arr Dim Start As Integer, Finish As Integer Dim Sum As Integer arr = Array(12, 4, 8, 16) Start = LBound (arr) Finish = UBound (arr) Sun = 0 For i = Start To Finish Sum = Sum + arr(i) Next i c
33、 = Sum/Finish Text1.Text = c End Sub 程序运行后，单击窗体，则在文本框中显示的内容是_ 。（分数：2.00）A.40B.10 C.12D.16解析：22.假定窗体上有一个标签，名称为 Lahel1，为了使该标签透明并且没有边框，则正确的属性设置为_。（分数：2.00）A.Label1. BackStyle=0Label1. BorderStyle=0 B.Label1. BackStyle=1Label1. BorderStyle=1C.Label1. BackStyle=TrueLabel1. BorderStyle=TrueD.Label1. BackS
34、tyle=FalseLabel1. BorderStyle=False解析：解析 因 BackStyle 属性和 BorderStyle 属性的值只能取 0 和 1，所以选项 C 和 D 是错误的。当BackStyle 值为 1 时，标签将覆盖背景；BackStyle 值为 0，则标签为“透明”的；BorderStyle 值为 0，标签无边框。根据题意，应选择 A。23.执行下列程序段后，输出的结果是 For k1=0 To 4 y=20 For k2=0 To 3 y=10 For k3=0 To 2 y=y+10 Next k3 Next k2 Next k1 Print y（分数：1.0
35、0）A.90B.60C.40 D.10解析：解析：这是一个三重循环嵌套的程序。多重 For 循环的执行过程是：外层循环的循环控制变量每取一个值，内循环的循环控制变量要取遍所有的值。这个程序中最外两层循环的最后一次循环执行时k1=4，k2=3，都要再执行一次 y=10，不管 y 以前取得何值，y 都要重新取得初值 10，这时再执行一次内循环。内层循环体要执行 3 次，即加 3 次 10。y 最终的值是 40。24.表示滚动条控件取值范围最大值的属性是 _ 。（分数：2.00）A.Max B.LargeChangeC.ValueD.Min解析：解析 LargeChange 设置单击滚动条框前面或后
36、面的部位时，Value 增加或减小的增量值；Value返回或设置滚动条控件当前的值；Max 设置滚动条的最大值；Min 设置滚动条的最小值。25.下面四个选项，不是事件的是（分数：1.00）A.LoadB.Enabled C.UnloadD.DblClick解析：解析 Enabled 是属性，它用于触发或禁止。每个对象都有一个 Enabled 属性，可以被设置为 True 或 False，分别用来触发或禁止该对象。对于窗体，该属性一般设置为 True，但为了避免鼠标或键盘事件发送到某个窗体，也可以设置为 False。二、填空题(总题数：13，分数：32.00)26.在最坏情况下，堆排序需要比较
37、的次数为 _ 1_ 。 （分数：1.00）解析：O(nlog 2 n) 解析 在最坏情况下，冒泡排序所需要的比较次数为 n(n-1)/2；简单插入排序所需要的比较次数为 n(n-1)/2；希尔排序所需要的比较次数为 O(n1.5)；堆排序所需要的比较次数为 O(nlog 2 n)。27.假定有如下程序代码，程序运行后，把鼠标光标移到窗体内，每单击一次，变换一种鼠标光标的形状，依次显示鼠标光标的 15 个属性。请在划线处将程序补充完整。 Private Sub Form_Click() Static x As Integer Cls Print“Mousepointer Property is
38、now“；x Form1. 1 2_ =x x=x+1 If x=15 Then x=0 End Sub （分数：1.00）解析：MousePointer 解析 MousePointer 属性可以通过代码设置，也可以通过属性窗口设置，在程序代码中设置MousePointer 属性的一般格式为： 对象.MousePointer=设置值 由于程序中使用 Static 关键字定义变量 x，每次单击窗体时 x 的值增加 1，并且下次单击窗体时，x 能保留上次的值，这样就能保证每次单击窗体时看到到鼠标光标都和上一次看到的不一样。28.一个栈的初始状态为空。首先将元素 1，2，3，4，5 依次入栈，然后退
39、栈一次，再将元素 A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序为 1。 （分数：2.00）解析：5DCBA4321解析 栈是限定只在一端进行插入与删除的线性表，栈按照“先进后出“或“后进先出“的原则组织数据。当 12345 入栈后，此时执行退栈操作，出栈的元素是 5，然后 ABCD 入栈，再将所有元素退栈，故退栈顺序为 5DCBA4321。窗体上有 List1、List2 两个列表框，程序运行时，在两个列表框中分别选中 1 个项目，如图 a 所示，单击名称为 Command1 的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图 b 所示。下
40、面的程序可实现这一功能，请填空。 （分数：4.00）解析：List2.Listlndex解析：List2.Addltem List1.Text解析 先将 LisC2 中选中的内容添加到 List1 中，同时删除 List2 中对应的项目，利用 Removeltem 方法，故第 11 空应该填入 List2.Listlndex。结合上面的思路，将 List1中的内容添加到 List2 中，同时删除 List1 中选中的内容。所以第 12 空应该填入 List2Addltem List1.Text。29.设在界面上放置了一个滚动条 Hscroll1 和一个标签控件 Label1，请补齐以下代码，要
41、求每次单击滚动条两端箭头，或滚动条滑块与两端箭头之间的空白区域时，滚动条的值能够反映在标签中。 Private Sub Hscroll1 1 Label1.Caption=Hscroll1 2 End Sub （分数：4.00）解析：_Change()；Value解析 本题考查滚动条的事件和属性。单击滚动条两端箭头或空白区域，触发滚动条的 Change 事件，标签中显示当前滚动条的值，也就是 Value 属性的值。30.执行下面的程序段后，S 的值为 _ 1_ 。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i （分数：2.00）解析：9 解析 以指定次数
42、来重复执行一组语句。 语法 For counter=start To endstep step statements Exit For statements Nextcounter 从起始值开始计算，循环体要执行四次，所以最终的 S 的值为 5+4=9。31.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是 _ 1_ 。 （分数：1.00）解析：下拉式列表框 解析 下拉式列表框：这种样式仅允许从下拉式列表中选择。 (缺省值)下拉式组合框：包括一个下拉式列表和一个文本框。可以从列表选择或在文本框中输入。 简单组合框：包括一个文本框和一个不能下拉的列表。可以从列表中选择或在文本框中输
43、入。简单组合框的大小包括编辑和列表部分。按缺省规定，简单组合框的大小调整在没有任何列表显示的状态。增加Height 属性值可显示列表的更多部分。完成下面的程序，使显示结果如下图所示。 Private Sub Form_Click() FontSize=18 Samples=“ 9 “ x=(ScaleWidth_TextWidth(Samples)/2 y=(ScaleHeight_TextHeight(Samples)/2 CurrentX=x CurrentY=y 10 Sample$ End Sub （分数：8.00）解析：Welcome to Beijing!解析：Print解析 该题
44、中主要是考查了赋值语句与显示语句。赋值语句是根据图示给出的信息，填写上字符串，然后，用 Print 命令，使字符串显示在窗体上。赋值语句为 Sample$ =“Welcome to Beijing!”；输出语句为：Print Sample$。32.执行下列程序，输入数字 3，则输出结果为 _ 1_ 。 Private Sub Command1_Click() a=InputBox(“Input a Number“) If a5 Then GoTo L5 Else If a2 Then GoTo L2 Else GoTo L3 End If Exit Sub L5: Print a Mod5 E
45、xit Sub L3: Print a Mod 3 Exit Sub L2: Print a Mod 2 End Sub （分数：2.00）解析：1解析 此题考查 If 多分支结构与 GoTo 语句。做此类题目只需一步一步顺序运行即可，不要去分析分段函数的整体数学意义。题设输入数字 3，则转到 L2，3 mod 2 为 1，即为结果。33.对窗体编写如下两个事件过程： Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer) Print Chr (KeyCode) End Sub Private Sub Form_ Key
46、Press (KeyAscii As Integer) Print Chr (KeyAscii) End Sub 程序运行后，如果直接按键盘上的 a 键(即不按住 shift 键)，则在窗体上输出的字符分别为 1 和 2 。 （分数：2.00）解析：A a34.在窗体上画一个命令按钮，然后编写如下事件过程。该程序运行后，单击命令按钮，在输入对话框中分别输入 321 和 456，则输出结果为 _ 1_ 。 Private Sub Command1_Click() a=InputBox(“请输入一个整数“) b=InputBox(“请再输入一个整数“) Print a+b End Sub （分数：
47、1.00）解析：321456解析 由于 Visual Basic 中的 InputBox 函数的返回值是字符串，那么 a 和 b 分别为字符串 321 和 456，所以 a+b 就只能将两个字符串连接为 321456，而不是可能想要得到的 321 和 456 的和777。35.运行下列程序： Dim t As Integer Private Sub Form_C1ick 1 t=2 x=Val(InputBox(“输入一个整数 5“) Print funl(x)；t End Sub Private Function funl(v) If y0 Then fun1=1:t=10 Else If y=0 Then fun1=0:t=20 Else fun1=-1:t=30 End If End Function 从键盘为变量 x 输入数据 5，输出的结果是 2。 （分数：2.00）解析：1 10解析 t 为模块级变量，在子函数中计算的结果 10 改变了主函数中的 t 值，fun1 函数名返回的值为 1。36.数据库设计分为以下 6 个设计阶段：需求分析阶段、 1、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。 （分数：2.00）解析：概念设计阶段解析 数据库设计分为以下 6 个设计阶段：需求分析阶段、概念设计阶段、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段。
