1、二级 VISUAL+BASIC-92 及答案解析(总分：95.50，做题时间：90 分钟)一、选择题(总题数：35，分数：69.50)1.设有关键码序列(Q，G，M，Z，A，N，B，P，X，H，Y，S，T，L，K，E)，采用堆排序法进行排序，经过初始建堆后关键码值 B 在序列中的序号是_。（分数：2.50）A.1B.3C.7D.92.下面正确使用动态数组的是_。（分数：2.00）A.Dim arr()As lntegerReDim arr(3,5)Dim arr()As lntegerB.ReDim arr(50)As StringDim arr()C.ReDim arr(50)As Stri
2、ngDim arr(50)As StringD.ReDim arr(20)3.以下关于菜单的叙述中，错误的是（分数：1.00）A.在程序运行过程中可以增加或减少菜单项B.如果把一个菜单项的 Enabled 属性设置为 False，则可删除该菜单项C.弹出式菜单在菜单编辑器中设计D.利用控件数组可以实现菜单项的增加或减少4.确定图片框 Picture1 在窗体上位置的属性是_。（分数：2.50）A.Width 和 HeightB.Left 和 TopC.Width 和 TopD.Height 和 Left5.运行如下程序 Private Sub Command l_Click0 Dim a(5,
3、5) As Integer For i = 1 To 5 For j = 1 To 4 a(i,j) = i * 2 + j If a(i,j)/7=a(i, j)/7 Then n=n+l End If Next j Next Print n End Sub n 的值是_。（分数：2.50）A.2B.3C.4D.56.有下面程序代码： Private Sub Command1_Click() Dim a As String a=“COMPUTER“ n=search(a, “T“) Print IIf(n=0, “未找到“, n) End SUb Private Function searc
4、h(str As String, ch As String)As Integer For k=1 To Len(str) c=Mid(str, k, 1) If c=ch Then search=k Exit Function End If Next k search=0 End Function 程序运行后，单击命令按钮 Command1，输出结果是_。（分数：1.00）A.0B.8C.6D.未找到7.某二又树共有 7 个结点，其中叶子结点只有 1 个，则该二叉树的深度为(假设根结点在第 1 层)_。（分数：1.00）A.3B.4C.6D.78.下列排序方法中，最坏情况下比较次数最少的是_。
5、（分数：2.50）A.冒泡排序B.简单选择排序C.直接插入排序D.堆排序9.窗体上有 Command1、Command2 两个命令按钮。现编写以下程序： Option Base 0 Dim a()As Integer，m As Integer Private Sub Command1_Click() m=InputBox(“请输入一个正整数“) ReDim a(m) End Sub Private Sub Command2_Click() m=InputBox(“请输入一个正整数“) ReDim a(m) End Sub 运行程序时，单击 Command1 后输入整数 10，再单击 Comma
6、nd2 后输入整数 5，则数组 a 中元素的个数是_。（分数：1.00）A.5B.6C.10D.1110.以下关于菜单的叙述中，错误的是（分数：2.50）A.在程序运行过程中能够增加或减少菜单项B.使菜单项的 Enabled 属性为 False，则可删除该菜单项C.弹出式菜单在菜单编辑器中设计D.利用控件数组可以实现菜单项的增加或减少11.设窗体上有名称为 Option1 的单选按钮，且程序中有语句： If Option1.Value=True Then 下面语句中与该语句不等价的是_。（分数：2.00）A.If Option1.Value ThenB.If Option1=True Then
7、C.If Value=True ThenD.If Option1 Then12.面向对象方法中，继承是指_。（分数：1.00）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制13.设有如下的程序段： n=0 For j=1 To 3 For j=1 To i For k=j To 3 n=n+1 Next k Next j Next i 执行上面的程序段后，n 的值为_。（分数：1.00）A.3B.21C.9D.1414.以下程序运行后，输出结果是 _ 。 For i=1 To 3 Print Tab(3*j);2*(j-1)
8、Next j Print（分数：2.00）A.1325B.19 25C.024D.13515.运行下列语句后，在信息提示框内显示的内容是_。 t=MsgBox(“Hello“,64,“Come“)（分数：2.00）A.HelloB.64C.ComeD.没有内容16.程序运行时要使某一个窗体显示出来，应该使用_。（分数：2.50）A.Show 方法B.Hide 方法C.Load 语句D.Unload 方法17.窗体上有 1 个名称为 Command1 的命令按钮；1 个名称为 List1、没有列表项的列表框。编写如下程序：Private Sub Command1_Click() Dim x As
9、 String, s As String, temp As String Dim i As Integer x=InputBox(“输入字符串“，“输入“) Ifx“Then For i=Len(x) To 1 Step-1 s=Mid(x, i, 1) If s“Then temp=s+temp Else List1.AddItem temp s=“ temp=“ End If Next List1.AddItem temp Else MsgBOX“输入内容为空!“ End If End Sub 程序运行后，单击命令按钮 Command1，并输入“Happy new year”，则在 Lis
10、t1 中显示的内容为（分数：2.50）A.year new HappyB.Happy new yearC.raey wen yppaHD.yppaH wen raey18.下面有关标准模块的叙述中，错误的是_。（分数：2.00）A.标准模块不完全由代码组成，还可以有窗体B.标准模块中的 Private 过程不能被工程中的其他模块调用C.标准模块的文件扩展名为.basD.标准模块中的全局变量可以被工程中的任何模块引用19.假定窗体的名称(Name 属性)为 Form1，则把窗体的标题没置为“VB Test”的语句为（分数：2.50）A.Form1=“VB Test“B.Caption=“VB T
11、est“C.Form1.Text=“VB Test“D.Form1.Name=“VB Test“20.下列说法中，错误的是_。（分数：1.00）A.将焦点移至命令按钮上，按 Enter 键，则引发命令按钮的 Click 事件B.单击命令按钮，将引发命令按钮的 Click 事件C.命令按钮没有 Picture 属性D.命令按钮不支持 Db1Click 事件21.下列表述中不能判断 x 是否为偶数的是_。（分数：2.50）A.x/2=Int(x/2)B.x Mod 2=0C.Fix(x/2)=x/2D.x/2=022.窗体上有名称为 Option1 的单选按钮，且程序中有语句： IfOption1
12、.Value=True Then 下面语句中与该语句不等价的是_。（分数：2.50）A.If Option1.Value ThenB.If Option1=True ThenC.If Value=True ThenD.If Option1 Then23.在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) E
13、nd Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为_。（分数：3.00）A.1 和 0B.2 和 72C.3 和 50D.4 和 16824.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下： Private Type x a As Integer:b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox(“) If y.a/2=y.a/2 Then y.b=y.a*y.a Else y.b=Fix(y.a/2) End If Te
14、xt1.Text=y.b End Sub 对以上程序，下列叙述中错误的是（分数：2.50）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的是偶数，y.b 的值为该偶数的平方D.Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回25.假定有以下函数过程： Function fun(S As String) Dim S1 As String For i=1 To Len(S) S1=LCaes(Mid(S，i，1)+S1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private
15、Sub Command1_Click( ) Dim Str1 As String，str2 As String Str1=InputBox(“请输入一个字符串“) str2=Fun(str1) Print Str2 End SUb 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“AbCDefG，则单击“确定”按钮后在窗体上的输出结果为 _ 。（分数：2.00）A.ABCDEFGB.abcdefgC.GFEDCBAD.gfedcba26.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下事件过程： Private Sub Command1_C
16、lick() Dim arr(10) For i=6 To 10 arr(i)=i-5 Next i Label1.Caption=arr(0)+arr(arr(10)/arr(6) End Sub 运行程序，单击命令按钮，则在标签中显示的是_。（分数：2.50）A.0B.1C.2D.327.设窗体上有一个名称为 Listl 的列表框和一个名称为 Check1 的复选框数组(下标从 0 开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。 Private Sub Check1_Click(Index As In
17、teger) For k=0 To List1.ListCount-1 If Cheek1(Index).Caption=List1.List(k)Then Exit For End If Next k If kList1.ListCount Then List1.RemoveItem k Else List1.AddItem _ End If End Sub 为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是_。（分数：2.50）AkB.Check1.CaptionC.Check1(k)D.Check1(Index).Caption28.要使一个命令按钮成为图形命令按钮，则应设置的
18、属性是 _ 。（分数：2.00）A.PictureB.StyleC.LoadPictureD.DisabledPicture29.对下列二叉树进行前序遍历的结果为_。 （分数：2.50）A.ABCDEFGHB.ABDGEHCFC.GDBEHACFD.GDHEBFCA30.能够将 Picture 对象 Picl 加载当前目录中的 face.bmp 的语句是（分数：1.00）A.Pic1.Picture=LoadPicture(App.path 2*(j-1) Next j Print（分数：2.00）A.1325B.19 25C.024 D.135解析：解析 Tab()函数为输出若干个制表符，既
19、然 j 是递增的，所以制表符的数量也是递增的，由此即可得到 C)为正确答案。15.运行下列语句后，在信息提示框内显示的内容是_。 t=MsgBox(“Hello“,64,“Come“)（分数：2.00）A.Hello B.64C.ComeD.没有内容解析：16.程序运行时要使某一个窗体显示出来，应该使用_。（分数：2.50）A.Show 方法 B.Hide 方法C.Load 语句D.Unload 方法解析：17.窗体上有 1 个名称为 Command1 的命令按钮；1 个名称为 List1、没有列表项的列表框。编写如下程序：Private Sub Command1_Click() Dim x
20、As String, s As String, temp As String Dim i As Integer x=InputBox(“输入字符串“，“输入“) Ifx“Then For i=Len(x) To 1 Step-1 s=Mid(x, i, 1) If s“Then temp=s+temp Else List1.AddItem temp s=“ temp=“ End If Next List1.AddItem temp Else MsgBOX“输入内容为空!“ End If End Sub 程序运行后，单击命令按钮 Command1，并输入“Happy new year”，则在 L
21、ist1 中显示的内容为（分数：2.50）A.year new Happy B.Happy new yearC.raey wen yppaHD.yppaH wen raey解析：解析 本题的循环中倒序从字符串 s 中依次取出每一个字符，只要该字符不是空格就将其连接到temp 的前面，见到空格就把连接好的 temp 加入到列表框中，即先加入 year，然后是 new，最后是Happy。18.下面有关标准模块的叙述中，错误的是_。（分数：2.00）A.标准模块不完全由代码组成，还可以有窗体 B.标准模块中的 Private 过程不能被工程中的其他模块调用C.标准模块的文件扩展名为.basD.标准模
22、块中的全局变量可以被工程中的任何模块引用解析：解析 标准模块中只包含其他窗体模块中公用的一些变量、过程等代码，不包括窗体。故选项 A错误。 标准模块中用 Private 声明的过程属于私有过程，只能被它所在的模块中的其他过程调用，不能被工程中其他模块调用，用 Public 声明的全局变量属于公用变量，可以被工程中的任何模块引用。标准模块的文件扩展名是.bas。19.假定窗体的名称(Name 属性)为 Form1，则把窗体的标题没置为“VB Test”的语句为（分数：2.50）A.Form1=“VB Test“B.Caption=“VB Test“ C.Form1.Text=“VB Test“D
23、.Form1.Name=“VB Test“解析：20.下列说法中，错误的是_。（分数：1.00）A.将焦点移至命令按钮上，按 Enter 键，则引发命令按钮的 Click 事件B.单击命令按钮，将引发命令按钮的 Click 事件C.命令按钮没有 Picture 属性 D.命令按钮不支持 Db1Click 事件解析：解析 按钮的 Picture 属性可以给命令按钮指定一个图形，为了使用这个属性，必须把 Style 属性设置为 1。单击命令按钮或将焦点移至命令按钮上，按 Enter 键，都会引发命令按钮的 Click 事件。命令按钮不支持 DblClick 事件。21.下列表述中不能判断 x 是否
24、为偶数的是_。（分数：2.50）A.x/2=Int(x/2)B.x Mod 2=0C.Fix(x/2)=x/2D.x/2=0 解析：解析 当 x=0.5 时，0.5/2 的结果也是 0，而 0.5 不是偶数，则 D 是不能判断 x 是否为偶数，其他三个选项均是可以判断 x 是否为偶数，故选 D。22.窗体上有名称为 Option1 的单选按钮，且程序中有语句： IfOption1.Value=True Then 下面语句中与该语句不等价的是_。（分数：2.50）A.If Option1.Value ThenB.If Option1=True ThenC.If Value=True Then D
25、.If Option1 Then解析：解析 题中单选按钮的 Value 属性表示是否被选中，True 表示选中，False 是未选中。语句Ifoption1.Value=True Then 表示当单选按钮选中时执行 Then 语句。C 选项只是判断变量 Value 是否为True，不符题意。23.在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(
26、n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为_。（分数：3.00）A.1 和 0B.2 和 72 C.3 和 50D.4 和 168解析：24.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。窗体文件的程序如下： Private Type x a As Integer:b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox(“) If y.a/2=y.a/2 Then y.b=y.a*y.a Els
27、e y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是（分数：2.50）A.x 是用户定义的类型B.InputBox 函数弹出的对话框中没有提示信息C.若输入的是偶数，y.b 的值为该偶数的平方D.Fix(y.a/2)把 y.a/2 的小数部分四舍五入，转换为整数返回 解析：解析 本题考查的考点是有关自定义类型和 Fix 函数的。用户可以通过 Type 语句自定义类型，并可用自定义的类型声明变量。注意 Fix 函数是向下取整，Round 函数是四舍五入。25.假定有以下函数过程： Function fun(S As Stri
28、ng) Dim S1 As String For i=1 To Len(S) S1=LCaes(Mid(S，i，1)+S1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim Str1 As String，str2 As String Str1=InputBox(“请输入一个字符串“) str2=Fun(str1) Print Str2 End SUb 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“AbCDefG，则单击“确定”按钮后在窗体上的输出结果为 _ 。（分数
29、：2.00）A.ABCDEFGB.abcdefgC.GFEDCBAD.gfedcba 解析：解析 此题考查字符串函数，LCase 函数是把字符串转换为小写字母输出，Mid(X，n，m)表示读取字符串 X 中从第 n 个字符起到第 m 个字符的字符串，程序把 s1 连接在每取出的一个字符之后，实现了字符串的倒序输出，所以输出结果为 gfedcba，选项 D 为正确答案。26.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(10) For i=6 To 10 arr
30、(i)=i-5 Next i Label1.Caption=arr(0)+arr(arr(10)/arr(6) End Sub 运行程序，单击命令按钮，则在标签中显示的是_。（分数：2.50）A.0 B.1C.2D.3解析：解析 程序中使用 For 语句为数组中的部分元素赋值，没显示赋值的数组元素的值默认为 0，因此 arr(0)=0，arr(10)=10-5=5，arr(6)=6-5=1，arr(arr(10)/aH(6)即 arr(5/1)=arr(5)=0，arr(0)+arr(5)=0+0=0。因此标签中显示的是 0，A 选项正确。27.设窗体上有一个名称为 Listl 的列表框和一个
31、名称为 Check1 的复选框数组(下标从 0 开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。 Private Sub Check1_Click(Index As Integer) For k=0 To List1.ListCount-1 If Cheek1(Index).Caption=List1.List(k)Then Exit For End If Next k If kList1.ListCount Then List1.RemoveItem k Else List1.AddItem _ End
32、If End Sub 为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是_。（分数：2.50）AkB.Check1.CaptionC.Check1(k)D.Check1(Index).Caption 解析：解析 题干给出的是没有该复选框的标题时，把该复选榧的标题添加到列表框中。List1.AddItem可以为列表框添加新项，但需要添加的新项要根据索引添加。故选 D。28.要使一个命令按钮成为图形命令按钮，则应设置的属性是 _ 。（分数：2.00）A.PictureB.Style C.LoadPictureD.DisabledPicture解析：29.对下列二叉树进行前序遍历的结果为_
33、。 （分数：2.50）A.ABCDEFGHB.ABDGEHCF C.GDBEHACFD.GDHEBFCA解析：解析 遍历就是不重复地访问二叉树的所有结点。二叉树遍历的方法有 3 种：前序遍历、中序遍历和后序遍历。记住 3 种遍历的顺序：前序，访问根按前序遍历左子树按前序遍历右子树；中序，按中序遍历左子树访问根按中序遍历右子树；后序，按后序遍历左子树按后序遍历右子树访问根。 所以对该二叉树的中序遍历结果为 ABDGEHCF。30.能够将 Picture 对象 Picl 加载当前目录中的 face.bmp 的语句是（分数：1.00）A.Pic1.Picture=LoadPicture(App.pa
34、th &“face.bmp“) B.Pic1.LoadPicture(App.path 及&“face.bmp“)C.Picutrel.Picutre=LoadPicture(App.path&“face.bmp“)D.Picturel.LoadPicture(App.path &“face.bmp“)解析：解析 LoadPieture 是 Visual Basic 的函数，不是图片对象的方法，因此选项 B 和 D 是错误的。图片的 Picture 属性必须用 LoadPicture 函数才能加载图片。本题中图片对象的名称为 Pic1 而不是默认的 Picture 1，因此正确答案是选项 A。
35、31.在文本框中，要使键入的所有字符都显示“*”号，这时应该设置 _属性为“*”号。（分数：1.00）A.TextB.MultiLineC.ScrollBarsD.PasswordChar 解析：解析 PasswordChar 属性：返回或设置一个值，该值指示所键入的字符或占位符在 TextBox 控件中是否要显示出来；返回或设置用作占位符。 为了在对话框中创建一个密码域应使用此属性。虽然能够使用任何字符，但是大多数基于 Windows 的应用程序使用星号(*)。 注意：如果 MultiLine 属性被设为 True，那么设置 PasswordChar 属性将不起效果。32.以下叙述中错误的是
36、_。（分数：2.50）A.在 KeyPress 事件过程中不能识别键盘的按下与释放B.在 KeyPress 事件过程中不能识别回车键 C.在 KeyDown 和 KeyUp 事件过程中，将键盘输入的“A”和“a”视为相同的字母D.在 KeyDown 和 KeyUp 事件过程中，从大键盘上输出的“1”和从右侧小键盘上输入的“1”被视为不同的字符解析：33.执行以下程序段后，变量 c$的值为 a$=“Visual Basic Programing“ b$=“Quick“ c$=b$&UCase(Mid$(a$,7,6)&Right$(a$,11)（分数：2.50）A.Visual BASIC Pr
37、ogramingB.Quick Basic ProgramingC.QUICK Basic ProgramingD.Quick BASIC Programing 解析：34.在窗体上面一个名称为 Label1 的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10,10)As Integer Dim i As Integer,j As Integer For i=2 To 4 For j=2 To 4 arr(i,j)=i*j Next j Next i Label1.Caption=Str(arr(2,2)+arr(3,3) End Sub 程
38、序运行后，单击窗体，在标签中显示的内容是_。（分数：2.50）A.12B.13 C.14D.15解析：解析 经过双重循环运算后，数组 arr(2，2)和 arr(3，3)的值分别为 4 和 9，其相加的值为 13，函数 Str(13)返回字符串“13”。35.在窗体上画两个标签和一个命令按钮，其名称分别为 Label1、Label2 和 Command1，然后编写如下程序： Private Sub func(L As Label) L.Caption=“1234“ End Sub Private Sub Form_Load() Label1.Caption=“ABCDE“ Label2.Cap
39、tion=10 End Sub Private SUb Command1_Click() a=Val(Label2.Caption) Call func(Label1) Label2.Caption=a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为_。（分数：1.00）A.ABCD 和 10B.1234 和 100C.ABCD 和 100D.1234 和 10 解析：解析 程序运行，窗体加载时设置 Label1 显示为 ABCD，Label2 显示为 10。单击命令按钮，执行按钮的单击事件过程，过程中 Val 函数将 Label2 的标题字符串转换为数值赋给变量 a
40、，此时 a 的值为10，然后调用 func 过程传入 Label1 为参数，func 过程中设置 Label1 的标题为“1234”，回到按钮单击事件过程，设置 Label2 的标题为变量 a 的值，即 10。因此两个标签中显示的内容分别为 1234 和 10。二、填空题(总题数：14，分数：26.00)36.有如下 SUB 过程： Sub s(x As Single，y As Single) t =x x=t / y Y=t Mod y End Sub 在窗体上添加一个命令按纽，然后编写如下事件过程： Private Sub Form_ Click() Dim a As Single Dim
41、 b As Single a=5 b=4 s a，b Print a，b End Sub 则程序运行后，单击命令按纽，输出的结果为： _ 1_ 。 （分数：2.00）解析：1.25 137.符合结构化原则的三种基本控制结构是顺序结构、 1 和循环结构。 （分数：2.00）解析：选择结构解析 程序设计语言仅仅使用顺序、选择和重复(循环)三种基本控制结构就足以表达出各种其他形式结构的程序设计方法。遵循程序结构化的设计原则，按结构化程序设计方法设计出的程序易于理解、使用和维护；可以提高编程工作的效率，降低软件的开发成本。38.下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束
42、。 请填空。 Sub PrintOutO Dim aAs Integer a=MsgBox(“输出结果?“，vblnformation+vbYesNo，“提示：“) If a= 1Then Print “Myresult“ EndIf EndSub （分数：2.00）解析：vbYes 或 6解析 MsgBox 函数在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。返回值是一个整数，这个整数与选择的按钮有关。39.数据库三级模式体系结构的划分，有利于保持数据库的 _ 1_ 。 （分数：1.00）解析：数据独立性解析 数据库的三级模式体系结构将数据的组织管理
43、工作进行了划分，将数据的具体组织留给 DBMS 管理，使用户能逻辑地、抽象地处理数据，而不必关心数据在计算机中的具体表示方式与存储方式，保证了数据的独立性。40.执行下面的程序段后，S 的值为 _ 1_ 。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i （分数：2.00）解析：9 解析 以指定次数来重复执行一组语句。 语法 For counter=start To endstep step statements Exit For statements Nextcounter 从起始值开始计算，循环体要执行四次，所以最终的 S 的值为 5+4=9。41.函
44、数 Str$(256.36)的值是 1。 （分数：2.00）解析：256.36(“”表示空格)解析 Str 函数的作用是将数字转成字符中，并且能够识别第一个小数点。注意转换后数字前会保留一空位表示正负。窗体如图所示，其中汽车是名称为 Imagel 的图像框，命令按钮的名称为 Command1，计时器的名称为Timer1，直线的名称为 Line1。程序运行时，单击命令按钮，则汽车每 0.1 秒向左移动 100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。 （分数：4.00）解析：100解析：Image1.Left解析 Timer1 控件的 Interval 属
45、性用来控制计时器事件发生的时间间隔，本题中的时间间隔为 0.1 秒，Interval 属性是以毫秒为单位的，所以 Interval 属性应设置为 100。通过线条的 X坐标属性和图像框的 Left 属性的比较来判断车头是否到达左边直线，如果图像框的 Left 属性大于等于线条的 Left 属性，说明没有到达直线，则图像框通过 Left 属性的变化向左移动 100。42.Visual Basic 工程中有三种模块：窗体模块、标准模块和 1 。其中类模块主要用于定义类和建立 2 组件。 （分数：2.00）解析：类模块 ActiveX43.软件测试方法中，黑盒测试法和白盒测试法是常用的方法，其中黑盒
46、测试法主要是用于测试 _ 1_ 。 （分数：2.00）解析：软件外部功能解析 软件测试方法中，黑盒测试法和白盒测试法是常用的方法，其中黑盒测试法主要是用于测试软件外部功能。白盒测试法是用于测试程序的内部功能。44.在数据库的外模式、模式和内模式三级模式的体系结构中，存在两级映像：外模式到模式的映像定义了外模式与模式之间的对应关系；模式到内模式的映像定义了数据库的逻辑结构与 _ 1_ 之间的对应关系。 （分数：1.00）解析：物理结构解析 内模式定义的是数据的存储结构(物理结构)，所以模式到内模式的映像是指数据库的逻辑结构与物理结构之间的对应关系。45.假定有一个文本框，其名称为 Text1，为
47、了使该文本框具有焦点，应执行的语句是 1。 （分数：2.00）解析：Text1.SetFocus解析 SetFocus 方法可以把光标移到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框。46.设根结点的层次为 0，则高度为 k 的二叉树的最大结点数为 _ 1_ 。 （分数：1.00）解析：2 k+1 -1 解析 当每一层的结点数达到最大时，整个二叉树的结点数最大。第 i 层最大结点数为2 i (i=0k)，则 1+2+4+2 k =2 k+1 -1。47.在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下程序： Function a(x As
48、Integer, y As Integer) As Integer a = IIf(x y, x, y) End Function Private Sub Command1_Click() Dim n As Integer, m As Integer n = 10 m = 20 Print a(n, m) End Sub 程序运行后，单击命令按钮，输出结果是 1。 （分数：2.00）解析：2048.有下列程序： Private Sub Command1_Click() Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 arrZ(i)= “hello“ Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) Text2.Text=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框 Text1 和 Text2 中分别显示的内容是 _ 1_ 和 _ 2_ 。 （分数：1.00）解析：145
