1、二级 VISUAL+BASIC 笔试-224 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.数据库系统与文件系统的主要区别是_。（分数：2.00）A.文件系统不能解决数据冗余和数据独立性问题，而数据库系统可解决这类问题B.文件系统只能管理少量数据，而数据库系统则能管理大量数据C.文件系统只能管理程序文件，而数据库系统则能管理各种类型的文件D.文件系统简单，而数据库系统复杂2.窗体上有一个命令按钮 Command1 和一个列表框 List1，其中 List1 有 0、1、2、3、4 内容，有下列程序：Private Sub Command1
2、_Click( )Dim i，sFor i=0 To List1.ListCounts=s+List1.List(i)Next iPrint sEnd Sub程序运行后，单击命令按钮，则窗体上显示的是_。（分数：2.00）A.0B.10C.01234D.程序出错3.如果 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 Prin
3、t “OK“ Else Print “Error“C.If Int(x)=x And(x=100，x=-i00)Then Print “OK“ Else Print “Errort“D.If Fix(x)=x And x=100 And x=-100 Then Print “OK“ Else Print “Error“4.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应在程序中使用的语句是_。（分数：2.00）A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1.Visible=TrueD.menu1.Visible=
4、False5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/26.InputBox 函数返回值的类型是_。（分数：2.00）A.数值B.字符串C.变体D.数值或字母串(视输入的数据而定)7.阅渎下面的程序：Private Sub Form_Click( )Dim Check，CounterCheck=TrueCounter=0DoDo While Counter20Counter=Counter+1If Counter=10 ThenCheck=Fals
5、eExit DoEnd IfLoopLoop Until Check=FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为_。（分数：2.00）A.15 0B.20 -1C.10 TrueD.10 False8.软件工程方法的产生源于软件危机，_是产生软件危机的内在原因。软件复杂性 软件维护困难软件成本太高 软件质量难保证（分数：2.00）A.B.C.和D.和9.设一棵完全二叉树共有 699 个结点，则在该二叉树中的叶子结点数为_。（分数：2.00）A.349B.350C.255D.35110.如果要在程序代码中为图片框动态加载和清除图像，可以利用的
6、函数是_。（分数：2.00）A.InputBoxB.InputC.LoadPictureD.PaintPicture11.在 VisualBasic 中，下列优先级最高的运算符是_。（分数：2.00）A.*B./C.D.Not12.确定一个窗体或控件的大小的属性是_。（分数：2.00）A.Width 或 HeightB.Width 和 HeightC.Top 或 LeftD.Top 和 Left13.使用白盒测试方法时，确定测试数据应根据_和指定的覆盖标准。（分数：2.00）A.程序的内部逻辑B.程序的复杂结构C.使用说明书D.程序的功能14.已知一个有序表为(13，18，24，3547，50
7、，62，83，90，115，134)，当使用二分法查找值为 90 的元素时，查找成功的比较次数为_。（分数：2.00）A.1B.2C.3D.915.VB6 共有三个版本，按功能从弱到强的顺序排列应是_。（分数：2.00）A.学习版、专业版和工程版B.学习版、工程版和专业版C.学习版、专业版和企业版D.学习版、企业版和专业版16.数据的存储结构是指_。（分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示17.用二维表结构表示实体以及实体间联系的数据模型称为_。（分数：2.00）A.网状模型B.层次模型C.关系模型D.面
8、向对象模型18.用来设置窗体背景图片的属性是_。（分数：2.00）A.MoveableB.PictureC.ForeColorD.WindowState19.在窗体中添加一个命令按钮，名称为 Command1，两个文本框名称分别为 Text1、Text2，然后编写如下程序：Private Sub Command1_Click( )Dim x As String，y As String，c As String，d As Stringx=Text1.Text : y=Text2.Textc=LCase(x) : d=UCase(y)Print c; dEnd Sub程序运行后，在文本框 Text1
9、、Text2 中分别输入 AbC 和 efG，结果是_。（分数：2.00）A.abeEFGB.abcefgC.ABCefgD.ABCEFG20.在窗体上画一个文本框，然后编写如下程序：Option Base 1Private Sub Form Click( )Dim Arr(10)As IntegerFor i=6 T0 10Arr(i)=i-3Next iText1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)End Sub程序运行后，单击窗体，在文本框中显示的内容是_。（分数：2.00）A.1B.3C.6D.1021.下述说法不正确的是_。（分数：2.00）A.栈是
10、一种运算受限的线性结构B.栈是一种后进先出的线性结构C.栈可以是线性结构也可以是非线性结构D.栈可以用数组或链表来实现22.为了防止用户随意将光标置于控件上，应该_。（分数：2.00）A.将控件的 TabIndex 属性设置为 0B.将控件的 TabStop 属性设置为 TrueC.将控件的 TabStop 属性设置为 FalseD.将控件的 Enabled 属性设置为 False23.下面概念中，不属于面向对象方法的是_。（分数：2.00）A.对象、消息B.继承、多态C.类、封装D.过程调用24.若想使时钟控制每隔 0.25s 触发一次 Timer( )事件，则可将 Interval 属性值
11、设为_。（分数：2.00）A.Interval=0.25B.Interval=25C.Interval=250D.Interval=250025.以下语句的输出结果是_。Print Format $ (1234.5，“00, 000. 00“)（分数：2.00）A.1234.5B.01, 234.50C.01, 234. 5D.1, 234.5026.下面数组说明语句正确的是_。（分数：2.00）A.Dim g(0，-5) As SingleB.Dim h(100 To 100，100)As StringC.Dim x(5)As IntegerReDim x(10)As IntegerD.Di
12、m y( )ReDim y27.设有如下程序：Private Sub search(a( )As Variant，ByVal key As Variant，index%)Dim I%For I=LBound(（分数：2.00）A.To UBound(a)br28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim x(5)As StringDim n As IntegerFor n=4 To 0 Step-ix(n)=n+1Print x(n)；Next nEnd Sub程序运行后，单击命令按钮，则窗体上显
13、示的内容是_。（分数：2.00）A.54321B.4C.5 4 3 2 1D.029.阅读下面的程序：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.2130.编写如下事件过程：Private Sub Form_MouseDown(Button As Integer，Shift As Integer, X As Single，Y As Single)If
14、 Shift=6 And Button=2 ThenPrint “BBBB“End IfEnd Sub程序运行后，为了在窗体上输出“BBBB”，应执行的操作为_。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Ctrl、Alt 键和鼠标右键C.同时按下 Shift 键和鼠标右键D.同时按下 Ctrl、Alt 键和鼠标左键31.设 x=7，y=9，则以下表达式值为真的是_。（分数：2.00）A.x=y And y10B.xy Or y0C.x0 Eqv y0D.-2+4x And y032.给出下面程序：Private Sub Command1_Click( )Dim x，
15、y，zX=FalseFor Each y In zIf y. Text=“Hell“ Thenx=TrueExit ForEnd IfNext yEnd Sub下面描述正确的是_。（分数：2.00）A.退出 For Each.Next 循环的条件是 x=TrueB.退出 For Each.Next 循环的条件是 x=FalseC.程序检查 y 对象的 Text 属性，等于“Hello”时退出 ForEach.Next 循环D.程序逐一查找在 z 中的对象，不确切并判断其 Text 属性，文本框中的内容等于“Hello”时退出ForEach.Next 循环33.以下叙述中错误的是_。（分数：2.
16、00）A.一个工程可以包括多种类型的文件B.Visual Basic 应用程序既能以编译方式执行，也能以解释方式执行C.程序运行后，在内存中只能驻留一个窗体D.对于事件驱动型应用程序，每次运行时的执行顺序可以不一样34.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Sum=0For x=1 To 5Call sub1(x，s)Sum=Sun+sNext xPrint SunEnd SubPrivate Sub subl(y，w)w=1For i=1 To yw=w*iNext iEnd Sub程序运行后，单击
17、命令按钮，则窗体上显示的内容是_。（分数：2.00）A.5B.120C.153D.16035.为了在按下 Esc 键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是_。（分数：2.00）A.ValueB.DefauhC.CanceID.Enabled二、填空题(总题数：11，分数：30.00)36.若长度为 n 的线性表采用顺序存储结构，在等概率假设的情况下，删除一个的数据元素，需要先依次移动_个数据元素。（分数：2.00）填空项 1:_37.具有 n 个结点的完全二叉树的深度为 1。（分数：2.00）填空项 1:_38.在程序设计语言中，重复结构对应两类循
18、环语句，对先执行循环体后判断的称为 1 循环结构。（分数：2.00）填空项 1:_39.Jackson 结构化程序设计方法是英国的 M.Jackson 提出的，它是一种面向 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_
19、C1ick( )t=2x=Val(InputBox(“输入一个整数 5“)Print funl(x)；tEnd SubPrivate Function funl(v)If y0 Thenfun1=1:t=10Else If y=0 Thenfun1=0:t=20Elsefun1=-1:t=30End IfEnd Function从键盘为变量 x 输入数据 5，输出的结果是_。（分数：2.00）填空项 1:_在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Command1)，然后编写如下事件过程：Private Sub Command1 Click( )Te
20、xt1.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.Text=
21、“Text1.SetFocusEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer，Shift AsInteger)Text2.Text=_End Sub（分数：2.00）填空项 1:_43.要想在文本框中显示垂直滚动条，必须把 ScrollBars 属性设置为 2，同时还应把 1 属性设置为True。（分数：2.00）填空项 1:_有下列程序，运行后变量 x1、y1 和 z1 的结果分别是 (13) 、 (14) 和 (15) 。Private Sub funl(s，m，n)s=m+1m=n+2n=s+3End SubPrivate Sub
22、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 笔试-224 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.数据库系统与文件系统的主要区别是_。（分数：2.00）A.文件系统不能解决数据冗余和数据独立性问题，而数据库系统可解决这类问题 B.文件系统只能管理少量数据，而数据库系统则能管理大量数据C.文件系统只能管理程序文件，而数据库
23、系统则能管理各种类型的文件D.文件系统简单，而数据库系统复杂解析：解析 在文件系统中，相互独立的记录其内部结构的最简单形式是等长同格式记录的集合，易造成存储空间大量浪费，不方便使用。而在数据库系统中，数据是结构化的，这种结构化要求在描述数据时不仅描述数据本身，还要描述数据间的关系，这正是通过采用特定的数据模型来实现的。2.窗体上有一个命令按钮 Command1 和一个列表框 List1，其中 List1 有 0、1、2、3、4 内容，有下列程序：Private Sub Command1_Click( )Dim i，sFor i=0 To List1.ListCounts=s+List1.Lis
24、t(i)Next iPrint sEnd Sub程序运行后，单击命令按钮，则窗体上显示的是_。（分数：2.00）A.0B.10C.01234 D.程序出错解析：解析 ListCount 属性返回控件的列表部分项目的个数。要对列表框中的每个项目都能进行处理，必须要用到 List(Index)属性，而该属性的下标值是从 0 开始的。变量 s 为变体型变量，List 属性内的内容字符型的，所以加号(+)起到连接作用。上述程序运行的结果只是把列表框中的内容连接起来的内容。选项 C 是正确的。3.如果 x 为整数且|x|=100，则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句
25、是_。（分数：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=-i00)Then Print “OK“ Else Print “Errort“D.If Fix(x)=x And x=100 And x=-100 Then Print “OK“ Else Print “Error“解析：解析 绝对值函数为 Abs，而取整函数为 Fi
26、x 或者 Int。本题中，选项 A 使用了平方根函数；选项C 书写错误；选项 D 的条件语句错误，x=100And x=-100 这个条件永远不成立，应该为(x=100or x=-100)。正确答案为选项 B。4.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应在程序中使用的语句是_。（分数：2.00）A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1.Visible=TrueD.menu1.Visible=False 解析：解析 为了在运行时隐藏和显示菜单项，可用 Visible 属性来设置，当该属性为 True
27、时，菜单项可见；为 False 时，菜单项不可见。5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是_。（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/2 解析：解析 在最坏情况下，冒泡排序和快速排序的比较次数都是(n-1)/2。6.InputBox 函数返回值的类型是_。（分数：2.00）A.数值B.字符串 C.变体D.数值或字母串(视输入的数据而定)解析：解析 InputBox 函数返回值的类型是字符型。7.阅渎下面的程序：Private Sub Form_Click( )Dim Check，Coun
28、terCheck=TrueCounter=0DoDo While Counter20Counter=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 解析：解析 这是一个二重循环，内层和外层都是 Do 循环。在内层循环中，执行循环体的条件是Counter 小于 20，由于 Counter 的初值为 0，因此执行循环体。在
29、循环体中，每次循环 Counter 增 1，达到 10 后，把 Check 变量设置为 False，同时执行 Exit Do，退出内层循环。外层循环执行的条件是，变量Check 的值是 True。如果 Check 为 False，则退出外层循环，输出结果，结束程序。由于在退出内层循环时，Check 已被设置为 False，因此退出内层循环后立即就可以退出外层循环。退出两层循环后，Counter和 Check 的值没有发生任何改变，与退出内层循环时相同，分别为 10 和 False。8.软件工程方法的产生源于软件危机，_是产生软件危机的内在原因。软件复杂性 软件维护困难软件成本太高 软件质量难保
30、证（分数：2.00）A.B.C.和D.和 解析：解析 软件危机主要表现在：(1)软件需求的增长得不到满足；(2)软件开发成本和进度无法控制；(3)软件质量难以保证；(4)软件不可维护或维护程度非常低；(5)软件成本不断提高；(6)软件开发生产效率的提高赶不上硬件的发展和应用需求的增长。总之，可以将软件危机归结为成本、质量和生产率等问题。9.设一棵完全二叉树共有 699 个结点，则在该二叉树中的叶子结点数为_。（分数：2.00）A.349B.350 C.255D.351解析：解析 根据完全二叉树性质 6，按从上到下，从左至右给结点编号，若 k1，则父结点编号为INT(k/2)，所以第 699 号
31、结点的父结点的编号是 349 号。因为第 699 号结点是完全二叉树中最后的一个叶子结点，因此，其父结点即 349 号结点也一定是最一个非叶子结点。那么从第 350 号至 699 号结点都是叶子结点。因此叶子结点数为 699-349=350。10.如果要在程序代码中为图片框动态加载和清除图像，可以利用的函数是_。（分数：2.00）A.InputBoxB.InputC.LoadPicture D.PaintPicture解析：解析 在运行期间可以用 LoadPicture 函数把图形文件装入窗体、图片框或图像框中。LoadPicture 函数的功能与 Picture 属性基本相同，即用来把图形文
32、件装入窗体、图片或图像框，其一般格式为：对象Picture=LoadPicture(“文件名“)这里的“文件名”指的是前面提到的图形文件。LoadPicture 函数与 Picture 属性功能相同，但使用的时间不一样，前者在运行期间装入图形文件，而后者在设计时装入。11.在 VisualBasic 中，下列优先级最高的运算符是_。（分数：2.00）A.* B./C.D.Not解析：解析 Visual Basic 提供了 3 类运算符，即算术运算符、关系运算符和逻辑运算符。在 3 类运算符中，算术运算的优先级最高，其次是关系运算，最后是逻辑运算。在本题中，C 和 D 分别为关系运算符和逻辑运算
33、符，A 和 B 是算术运算符，A 和 B 的优先级比 C 和 D 高。而对于 A 和 B 来说，乘法(*)的优先级比整除(/)的优先级高。因此，优先级最高的应当是乘法运算符(*)。12.确定一个窗体或控件的大小的属性是_。（分数：2.00）A.Width 或 HeightB.Width 和 Height C.Top 或 LeftD.Top 和 Left解析：解析 Height 和 Width 这两个属性用来指定窗体或窗体的高度和宽度，其单位为 twip。13.使用白盒测试方法时，确定测试数据应根据_和指定的覆盖标准。（分数：2.00）A.程序的内部逻辑 B.程序的复杂结构C.使用说明书D.程序
34、的功能解析：解析 白盒测试是把测试对象看做一个打开的盒子，测试人员须了解程序的内部结构和处理过程，由于白盒测试是一种结构测试，所以被测对象基本上是源程序，以程序的内部逻辑和指定的覆盖标准确定测试数据。14.已知一个有序表为(13，18，24，3547，50，62，83，90，115，134)，当使用二分法查找值为 90 的元素时，查找成功的比较次数为_。（分数：2.00）A.1B.2 C.3D.9解析：解析 根据二分法查找的查找过程，首先将 90 与表中间的元素 50 进行比较，由于 90 大于 50，所以线性表的后半部分查找。第二次与比较的元素是后半部分的中间元素，即 90，这时两者相等，即
35、查找成功。15.VB6 共有三个版本，按功能从弱到强的顺序排列应是_。（分数：2.00）A.学习版、专业版和工程版B.学习版、工程版和专业版C.学习版、专业版和企业版 D.学习版、企业版和专业版解析：解析 学习版使编程人员轻松开发 Windows 和 WindowsNT(R)的应用程序。专业版为专业编程人员提供了一整套功能完备的开发工具。企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。16.数据的存储结构是指_。（分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示 解析：解析 数据的逻辑结构在计算机存储空
36、间中的存放形式称为数据的存储结构(也称数据的物理结构)。一种数据结构可根据需要采用不同的存储结构。常用的存储结构有顺序、链接、索引等存储方式。17.用二维表结构表示实体以及实体间联系的数据模型称为_。（分数：2.00）A.网状模型B.层次模型C.关系模型 D.面向对象模型解析：解析 用二维表结构表示实体以及实体间联系的数据模型称为关系模型。18.用来设置窗体背景图片的属性是_。（分数：2.00）A.MoveableB.Picture C.ForeColorD.WindowState解析：解析 窗体对象具有 Picture 属性，通过设置它可直接在窗体背景上显示图片。19.在窗体中添加一个命令按
37、钮，名称为 Command1，两个文本框名称分别为 Text1、Text2，然后编写如下程序：Private Sub Command1_Click( )Dim x As String，y As String，c As String，d As Stringx=Text1.Text : y=Text2.Textc=LCase(x) : d=UCase(y)Print c; dEnd Sub程序运行后，在文本框 Text1、Text2 中分别输入 AbC 和 efG，结果是_。（分数：2.00）A.abeEFG B.abcefgC.ABCefgD.ABCEFG解析：解析 Ucase 函数和 Lcas
38、e 函数用来对大小写字母进行转换。其中 Ucase 把“字符串”中的小写字母转换为大写字母，而 Lcase 函数把“字符串”中的大写字母转换为小写字母。20.在窗体上画一个文本框，然后编写如下程序：Option Base 1Private Sub Form Click( )Dim Arr(10)As IntegerFor i=6 T0 10Arr(i)=i-3Next iText1.Text=Str(Arr(6)+Arr(Arr(6)+Arr(10)End Sub程序运行后，单击窗体，在文本框中显示的内容是_。（分数：2.00）A.1B.3C.6D.10 解析：解析 在本题中，定义了一个一维数
39、组 Arr，并为其开辟了 10 个元素的空间，然后通过 For 循环为该数组的后 5 个元素赋值。不难看出，数组 Arr 后 5 个元素的值分别为 3、4、5、6、7。最后一个语句是为文本框的 Text 属性赋值，这个值是 Arr 数组的两个元素的和，其中第一个元素是 Arr(6)，即 3；第二个元素的下标是数组 Arr 第六个元素(3)和第十个元素(7)的和，即 Arr(3+7)=Arr(10)，而该元素的值为 7。因此，Arr(6)+Arr(Arr(6)+Arr(10)=3+Arr(10)=3+7=1021.下述说法不正确的是_。（分数：2.00）A.栈是一种运算受限的线性结构B.栈是一种
40、后进先出的线性结构C.栈可以是线性结构也可以是非线性结构 D.栈可以用数组或链表来实现解析：解析 栈是限定只能在表的一端进行插入和删除操作的线性表。这种线性表只能在固定的一端进行插入和删除操作，允许插入和删除的一端称为栈顶，另一端称为栈底。一个新元素只能从栈顶一端进入，删除时，只能删除栈顶的元素，即刚刚被插入的元素。所以栈也被称为“先进后出”表或“后进先出”。栈可以通过顺序存储(数组)和链式存储(链表)两种实现方法。22.为了防止用户随意将光标置于控件上，应该_。（分数：2.00）A.将控件的 TabIndex 属性设置为 0B.将控件的 TabStop 属性设置为 TrueC.将控件的 Ta
41、bStop 属性设置为 FalseD.将控件的 Enabled 属性设置为 False 解析：解析 设置 Tab 类的属性并不能影响光标的移动和设置，而只有当控件不可用时(Enable 为 False)，它才不会获得焦点，即光标不能置于其上。23.下面概念中，不属于面向对象方法的是_。（分数：2.00）A.对象、消息B.继承、多态C.类、封装D.过程调用 解析：解析 面向对象方法是一种运用对象、类、封装、继承、多态和消息等概念来构造、测试、重构软件的方法。面向对象方法从对象出发，发展出对象、类、消息、继承等概念。过程调用是面向过程的程序设计方法的概念。24.若想使时钟控制每隔 0.25s 触发
42、一次 Timer( )事件，则可将 Interval 属性值设为_。（分数：2.00）A.Interval=0.25B.Interval=25C.Interval=250 D.Interval=2500解析：解析 计时器重要的属性是 Interval，该属性用来设置计时器事件之间的间隔，以毫秒为单位，取值范围为 065535，因此其最大时间间隔不能超过 65s。60000ms 为 1min如果把 Interval 属性设置为 250，则表明每 0.25s 触发一个计时器 Timer( )事件。25.以下语句的输出结果是_。Print Format $ (1234.5，“00, 000. 00“
43、)（分数：2.00）A.1234.5B.01, 234.50 C.01, 234. 5D.1, 234.50解析：解析 本题用 Format 函数对数值进行格式化输出，函数的第一个参数是数值 1234.5，函数的第二个参数是格式说明符，使用的说明符有“0”和“,”，保留两位小数，该函数的返回值为01，234.50。26.下面数组说明语句正确的是_。（分数：2.00）A.Dim g(0，-5) As SingleB.Dim h(100 To 100，100)As String C.Dim x(5)As IntegerReDim x(10)As IntegerD.Dim y( )ReDim y解析
44、：解析 选项 A 不为 0 时不能这样定义，要用关键字 To 显式地指明下标范围；选项 B 二维数组 h 的数组元素个数是 101，类型是字符串型；选项 C 可调数组的说明应不带下标参数，x(5)应改成 x( )就对了；选项 D 重定义语句。ReDim 应带下标参数。27.设有如下程序：Private Sub search(a( )As Variant，ByVal key As Variant，index%)Dim I%For I=LBound(（分数：2.00）A.To UBound(a)br解析：解析 本程序的功能是：用查询给定数字“45”从数组 b 中所在的位置 n。用 Array 函数
45、给数组b 的各元素赋初值，其中数组变量名 a 应是 Variant 型的。用数组作为过程的形参时，应在数组名的后面加上一对圆括号(如数组 a( )；用数组作为调用过程的实参时，数组名的后面去掉一对圆括号(如数组 b)。用类型说明符%来标识 index 和 I 为整型变量。LBound(a)和 UBound(a)函数分别返回数组的下界和上界，下界值为 0。在子程序 search 中，当 Key=a(I)条件(即 45=a(6)成立时，变量 index 记录数组下标值 6，然后中断循环，退出子程序 search，index 反传送给变量 n，最后打印 6。28.在窗体上画一个名称为 Command
46、1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim x(5)As StringDim n As IntegerFor n=4 To 0 Step-ix(n)=n+1Print x(n)；Next nEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.54321 B.4C.5 4 3 2 1D.0解析：解析 本题是针对输出格式的问题。因字符串没有正负号，所以输出的字符之间就没有空格；而数字有正负号，输出的字符之间应有空格。数组 x 被定义为字符串型变量，n+1 的计算结果自动转换成字符串赋给 x(n)，所以输出
47、的字符之间是没有空格的。29.阅读下面的程序：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.14 D.21解析：解析 本题应用三重嵌套循环，1)i=1 时，j=1，k 执行三次循环得到 x 的值 3；2)i=2，j=1 时 k执行三次循环得到 x 的值加 3 并覆盖原值，j=2 时，k 执行两次循环值加 2；3)依次，i=3 时，j 执行 3 次，其中 k 分别执行 3，2，1 次，x 的值分别加 3，2，1；4)最后得到 x 的值为 14。30.编写如下事件过程：Private Sub Form_MouseDown(Button As Integer，Shift As Integer, X As Single，Y As Single)If Shift=6 And B
