1、二级 VISUAL+BASIC-10-1 及答案解析(总分：68.00，做题时间：90 分钟)一、选择题(总题数：25，分数：39.50)1.在窗体上画两个标签和一个命令按钮，其名称分别为 Labell、Label2 和 Command1，然后编写如下程序：Private Sub func(L As Label，ByVal a As Integer) L.Caption=“1234“ a=a*a End Sub Private Sub Form_Load() Label1.Caption=“ABCD“ Label2.Caption=10 End Sub Private Sub Command1
2、_Click() a=Val(Label2.Caption) Call func(Labell，A) Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签 Label1 和 Label2 中显示的内容分别是 _。（分数：1.00）A.ABCD 和 10B.1234 和 100C.ABCD 和 100D.1234 和 102.有如下程序： Option Base 1 Private Sub Form Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr
3、(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：1.00）A.25B.26C.27D.283.在深度为 5 的满二叉树中，叶子结点的个数为 _。（分数：1.00）A.32B.31C.16D.154.Visual Basic 中的“启动对象”是指启动 Visual Basic 应用程序时，被自动加载并首先执行的对象。下列关于 Visual Basic“启动对象”的描述中，错误的是（分数：2.50）A.“启动对象”可以是指定的标准模块B.“启动对象”可以是指定的窗体C.
4、“启动对象”可以是 Sub Main 过程D.若没有经过设置，则默认的“启动对象”是第一个被创建的窗体5.在窗体上画一个命令按钮，名称为 Commandl。然后编写如下程序： Private Sub Command1_Ctick() For I=1 TO 2 For J=1 TO I Print String(I，“Hello“)； Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.HHHHHB.HHHHHC.HHHHHD.HHHHHHH6.在计算机中，算法是指 _。（分数：2.00）A.查询方法B.加工方法C.解
5、题方案的准确而完整的描述D.排序方法7.有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是 （分数：2.00）A.Private Sub Form_Click()PopupMenu cutEnd SubB.Private Sub Command1 Click()PopupMenu editEnd SubC.Private Sub Form_Click()PopupMenu editEnd SubEnd SubD.Private Sub Form_lick()PopupMenu cutPopupMenu paste8.窗体上有一个名称为
6、Text1 的文本框，一个名称为 Command1 的命令按钮。以下程序的功能是从顺序文件中读取数据： Private Sub Command1_Click() Dim s1 As String, s2 As String Open “c:/d4.dat“ For Append As #3 Line Input#3, s1 Line Input#3, s2 Text1.Text=s1+s2 Close End Sub 该程序运行时有错误，应该进行的修改是（分数：2.00）A.将 Open 语句中的 ForAppend 改为 ForInputB.将 LineInput 改为 LineC.将两条
7、Line Input 语句合并为 Line Input #3, s1, s2D.将 Close 语句改为 Close #39.在关系数据库中，实现主码标识元组的作用是通过_。（分数：1.00）A.实体完整性规则B.参照完整性规则C.用户自定义的完整性D.属性的值域10.下面子过程语句说明合法的是_。（分数：2.00）A.Sub f1(sl As String*8)B.Sub f1(nAs Integer)As IntegerC.Function f1(f1 As Integer)As IntegerD.Function f1(ByVal n As Integer)11.设有语句： Temp=M
8、sgBox(“继续执行吗“,vbYesNo,“退出提示框“) 程序运行时，在对话框的标题栏将显示 _ 。（分数：1.00）A.继续执行吗B.vbYesNoC.退出提示框D.Temp12.确定个控件在窗体上的位置的属性是（分数：1.00）A.Width 和 fteightB.Width 或 IteightC.Top 和 LeftD.Top 或 Left13.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1. AddItem“Item1“ List1AddItem“Item2“ L
9、ist1. AddItem“Item3“ End Sub Private Sub Command1_Click() List1. List(List1. ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添到列表框的最后(即“Item3”的后面)C.把列表框之中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)14.如果要改变窗体的标题，需要设置窗体对象的 _ 属性。（分数：1.00）A.NameB.Capti
10、onC.BackColorD.BorderStyle15.下列关于 Sub 过程的叙述正确的是 _ 。（分数：2.00）A.一个 Sub 过程必须有一个 Exit Sub 语句B.一个 Sub 过程必须有一个 End Sub 语句C.在 Sub 过程中可以定义一个 Function 过程D.可以用 Goto 语句退出 Sub 过程16.下列程序段的执行结果为 _。 X=5 Y=-20 If Not X0 Then X=Y-3 Else Y=X+3 Print X-Y; Y-X（分数：1.00）A.-3 3B.5 -8C.3 -3D.25 -2517.Visual Basic 中的数值可以用十六
11、进制或八进制表示，十六进制数的开头符号是H，八进制数的开头符号是 _ 。（分数：2.00）A.$OB.OC.$ED.E18.下列对变量的定义中，不能定义 a 为变体变量的是（分数：2.00）A.Dim a As DoubleB.Dim a As VariantC.Dim aD.a=2419.如果要将窗体中的某个命令按钮设置成不可见状态，应该设置命令按钮的什么属性（分数：2.00）A.ValueB.VisibleC.EnabledD.Default20.假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是_。（分数：1.00）A.单击窗体上没有控件的地
12、方B.单击任意一个控件C.双击任意一个控件D.单击属性窗口的标题栏21.在窗体上画 4 个文本框，并用这 4 个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，自左至右顺序增大)，然后编写下列事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4 个文本框中显示的内容分别为 _ 。（分数：2.00）A.0 1 2 3B.1 2 3 4C.0 1 3 2D.出错信息22.下列关于结构化设计方法的特点描述
13、中，不正确的是 _ 。（分数：1.00）A.采用逐步求精的方法进行详细设计，由于相邻步之间变化小，易于验证其等效性和设计正确性B.程序清晰和模块化使得修改和重新设计一个软件时使用的代码量不大C.在进行程序设计时不能使用 goto 语句D.良好清晰的控制结构使设计容易阅读和理解23.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Comandl_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For
14、 j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.15B.14C.13D.1224.在下列叙述中，不正确的一条是 _。（分数：1.00）A.数据库设计包括结构设计和行为设计两方面的内容B.数据库设计的关键是结构特征的设计C.数据库设计是数据库应用系统设计的核心部分D.数据库的物理设计和具体的 DBMS 的类型无关25.下面语句中能够打开随机文件的是（分数：2.00）A.Open“file.txt“Fo
15、r Random As #1B.Open“file.txt“ For Input As #1C.Open“file.txt“ For Output As #1D.Open“file.txt“ For Append As #1二、填空题(总题数：14，分数：28.50)26.设一棵完全二叉树共有 500 个结点，则在该二叉树中有 _ 1_ 个叶子结点。 （分数：1.00）27.数据结构包括数据的逻辑结构、数据的 _ 1_ 以及对数据的操作运算。 （分数：2.00）28.数据模型按不同应用层次分成 3 种类型，它们是概念数据模型、 1 和物理数据模型。 （分数：2.00）29.通用对话框控件可通过
16、调整其 Action 属性而改变成各种实用的对话框，但它不能改变成 1 对话框。 （分数：2.00）30.假设线性表的长度为 n，则在最坏情况下，冒泡排序需要的比较次数为 _ 1_ 。 （分数：1.00）31.单击命令按钮后，下列程序代码的执行结果是 1 。 Public Sub fun (Byval a () As Integer) Static n As Integer Do a(n) = a (n) + a(n + 1) n = n + 1 Loop While n 3 End Sub Private Sub command1_ click() Dim m As Integer, n A
17、s Integer, a(10) As Integer For n = 0 To 2: a(n) = n + 1: Next n For n = 1 To 2: Call fun(a): Next n For n = 0 To 3: Print a(n): Next n End Sub （分数：2.00）在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Command1)，然后编写如下事件过程： Private Sub Command1 Click( ) Text1.Text = InputBox(“请输入数据 1“) Text2.Text = InputB
18、ox(“请输入数据 2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入 123 和abc，则两个文本框中显示的内容分别为 7 和 8 。（分数：4.00）32.要使一个文本框具有水平和垂直滚动条，应先将其 MultiLine 属性设置为 True，然后再将 ScrollBar属性设置为 1。 （分数：2.00）33.下列程序弹出对话框中按钮的个数为 1。 MsgBox“确认!“,vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,“提示“ （分数：2.00）34.在窗体上面画一个命令按钮，然后编
19、写如下程序： Function M(x As Integer, y As Integer) As Integer M = IIf(xy, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2 b = 5 Print M(a, b) End Sub 程序运行后，单击命令按钮，输出结果为 _ 1_ 。 （分数：2.50）35.在程序设计阶段应该采取 1 和逐步求精的方法，把一个模块的功能逐步分解，细化为一系列具体的步骤，继而用某种程序设计语言写成程序。 （分数：2.00）36.栈的基
20、本运算有三种：入栈、退栈和 _ 1_ 。 （分数：2.00）37.软件测试可分为白盒测试和黑盒测试。基本路径测试属于 1 测试。 （分数：2.00）38.数据库系统的三级模式分别为 _ 1_ 模式、内部级模式与外部级模式。 （分数：2.00）二级 VISUAL+BASIC-10-1 答案解析(总分：68.00，做题时间：90 分钟)一、选择题(总题数：25，分数：39.50)1.在窗体上画两个标签和一个命令按钮，其名称分别为 Labell、Label2 和 Command1，然后编写如下程序：Private Sub func(L As Label，ByVal a As Integer) L.C
21、aption=“1234“ a=a*a End Sub Private Sub Form_Load() Label1.Caption=“ABCD“ Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Labell，A) Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签 Label1 和 Label2 中显示的内容分别是 _。（分数：1.00）A.ABCD 和 10B.1234 和 100C.ABCD 和 100D.1234 和 10 解
22、析：解析 单击命令按钮后变量 a 赋初值 a=10，通过 Call 调用函数后，Labell.Caption=“1234“，而由于参数 a 是按值传递的，所以调用完函数后变量 a 的值在单击事件中并没有改变，所以执行语句Label2Caption=a 后， Label2 中显示的值仍为 10。2.有如下程序： Option Base 1 Private Sub Form Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr
23、(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：1.00）A.25B.26C.27 D.28解析：解析 Option Base 1 表示数组的下标是从 1 开始的。本题中先定义arr=Array(1,3,5,7,9,11,13,15,17,19)，即 a(1)=1,a(2)=3,a(3)=5,a(4)=7,a(5)=9,a(6)=11,a(7)=13,a(8)=15,a(9)-17,a(10)=19，而在循环语句中就是要求把能被 3 整除的数加起来，即 4(2)+a(5)+a(8)=3+9+15=27。3.在深度为 5 的满二
24、叉树中，叶子结点的个数为 _。（分数：1.00）A.32B.31C.16 D.15解析：解析 所谓满二叉树是指这样的一种二叉树：除最后一层外，每层上的所有结点都有两个子结点。这就是说，在满二叉树中，每一层上的结点数都达到最大值，即在满二叉树的第 K 层上有 2 k-1 个结点，且深度为 m 的满二叉树有 2 m 个结点。在满二叉树中，最后一层的结点个数就是叶子结点的个数，本题中深度为 5，故叶子结点数为 2 5-1 =2 4 =16。4.Visual Basic 中的“启动对象”是指启动 Visual Basic 应用程序时，被自动加载并首先执行的对象。下列关于 Visual Basic“启动
25、对象”的描述中，错误的是（分数：2.50）A.“启动对象”可以是指定的标准模块 B.“启动对象”可以是指定的窗体C.“启动对象”可以是 Sub Main 过程D.若没有经过设置，则默认的“启动对象”是第一个被创建的窗体解析：解析 对于多重窗体程序，必须指定其中某一个窗体为启动窗体，如果未指定，设计时的第一个窗体默认为启动窗体。只有启动窗体才能在运行程序时自动显示出来，其他窗体必须通过 Load 及 Show 方法才能看到。在一个应用程序中，有时候需要在显示多个窗体之前对一些条件进行初始化，这就需要在启动程序时执行一个特定启动过程，并命名为 Sub Main，它类似于 C 语言中的 Main 函
26、数。一个工程可以含有多个标准模块，但 Sub Main 过程只能有一个，并且通常被用作启动过程。5.在窗体上画一个命令按钮，名称为 Commandl。然后编写如下程序： Private Sub Command1_Ctick() For I=1 TO 2 For J=1 TO I Print String(I，“Hello“)； Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.HHHHHB.HHHHH C.HHHHHD.HHHHHHH解析：解析 Click 事件是在按钮控件上按下然后释放一个鼠标按钮时发生。Prin
27、t 函数用于在指定窗口显示文本。String 函数返回包含指定长度重复字符的字符串。题中嵌套 For 循环，第一次“i=1“，故“for j=1 to 1“，输出“H“，内层 J 循环结束，输出空行。第二次“i=2“，故“for j=1 to 2“，内层 J 循环 2 次，输出“HHHH“，内层 J 循环结束，输出空行，I 循环结束。6.在计算机中，算法是指 _。（分数：2.00）A.查询方法B.加工方法C.解题方案的准确而完整的描述 D.排序方法解析：解析 计算机算法是指解题方案的准确而完整的描述，它有以下几个基本特征：可行性、确定性、有穷性和拥有足够的情报。7.有弹出式菜单的结构如下表，程
28、序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是 （分数：2.00）A.Private Sub Form_Click()PopupMenu cutEnd SubB.Private Sub Command1 Click()PopupMenu editEnd SubC.Private Sub Form_Click()PopupMenu editEnd SubEnd Sub D.Private Sub Form_lick()PopupMenu cutPopupMenu paste解析：8.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按
29、钮。以下程序的功能是从顺序文件中读取数据： Private Sub Command1_Click() Dim s1 As String, s2 As String Open “c:/d4.dat“ For Append As #3 Line Input#3, s1 Line Input#3, s2 Text1.Text=s1+s2 Close End Sub 该程序运行时有错误，应该进行的修改是（分数：2.00）A.将 Open 语句中的 ForAppend 改为 ForInput B.将 LineInput 改为 LineC.将两条 Line Input 语句合并为 Line Input #
30、3, s1, s2D.将 Close 语句改为 Close #3解析：解析 Visual Basic 程序中关于文件的操作，主要是先打开一个文件，然后对这个文件进行读或写的操作，操作完成后，关闭这个文件。打开文件的基本格式为：Open FileName For Mode As #FileNumber。打开方式主要有 Output、Append、Input、Random 等几种方式。Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的，其中 Output、Append 打开的文件主要用来输出数据，与 Print#、Write#等方法配合使用；以 Input 方式
31、打开的文件主要用来读入数据，它与Input#、Line Input#语句配合使用。9.在关系数据库中，实现主码标识元组的作用是通过_。（分数：1.00）A.实体完整性规则 B.参照完整性规则C.用户自定义的完整性D.属性的值域解析：10.下面子过程语句说明合法的是_。（分数：2.00）A.Sub f1(sl As String*8)B.Sub f1(nAs Integer)As IntegerC.Function f1(f1 As Integer)As IntegerD.Function f1(ByVal n As Integer) 解析：解析 在选项 A 中，在定义 Sub 过程时，形参不能
32、用定长字符串变量或定长字符串数组作为形式参数；在选项 B 中，过程名不能被指定其数据类型；在选项 C 中，函数名与形参名不能同名。只有选项 D是正确的。11.设有语句： Temp=MsgBox(“继续执行吗“,vbYesNo,“退出提示框“) 程序运行时，在对话框的标题栏将显示 _ 。（分数：1.00）A.继续执行吗B.vbYesNoC.退出提示框 D.Temp解析：解析 MsgBox 函数用于向用户发布提示信息，并要求用户作出必要的响应。该函数的前三个参数的含义如下：第一个参数是消息框中的提示文字：第二个参数的用来指示消息框中显示的按钮、图标和默认按钮等：第三个参数是对话框的标题。12.确定
33、个控件在窗体上的位置的属性是（分数：1.00）A.Width 和 fteightB.Width 或 IteightC.Top 和 Left D.Top 或 Left解析：解析 确定一个控件在窗体中的位置，用 Top 与 Left 属性，前者确定控件与窗体上端的距离，后者确定控件与窗体左端的距离。确定一个控件在窗体上的位置要由这两个属性共同决定。A、B 项是 Width与 HeisLt 属性确定控件本身的高度与长度。13.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1. Add
34、Item“Item1“ List1AddItem“Item2“ List1. AddItem“Item3“ End Sub Private Sub Command1_Click() List1. List(List1. ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添到列表框的最后(即“Item3”的后面) C.把列表框之中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)解析：解析 列表框的 List 属
35、性用来列出表项的内容，也可以改变数组中已有的值。列表框中表项的排列是从 0 开始，最后一项的序号为 ListCount-1。本程序的功能是：把字符串“AAAA”添加到列表框的最后，但不改变 Item3 的值。14.如果要改变窗体的标题，需要设置窗体对象的 _ 属性。（分数：1.00）A.NameB.Caption C.BackColorD.BorderStyle解析：解析 窗体的 Caption 属性决定了窗体对象在显示时的标题。15.下列关于 Sub 过程的叙述正确的是 _ 。（分数：2.00）A.一个 Sub 过程必须有一个 Exit Sub 语句B.一个 Sub 过程必须有一个 End
36、Sub 语句 C.在 Sub 过程中可以定义一个 Function 过程D.可以用 Goto 语句退出 Sub 过程解析：解析 每个 Sub 过程必须以 Sub 开始，以 End Sub 结束；Exit Sub 语句使程序立即从一个 Sub 过程中退出，在 Sub 过程中可以使用一个或多个 Exit Sub 语句，也可以没有 Exit Sub 语句，因此选项 A)错误，选项 B)正确。在 Sub 过程中不能嵌套定义 Sub 过程或者 Function 过程，不能使用 Goto 语句进入或转出一个 Sub 过程，因此选项 C)、选项 D)说法是错误的。16.下列程序段的执行结果为 _。 X=5
37、Y=-20 If Not X0 Then X=Y-3 Else Y=X+3 Print X-Y; Y-X（分数：1.00）A.-3 3 B.5 -8C.3 -3D.25 -25解析：解析 IFElse 语句 跟踪程序：在 IP 语句中，因为 x=50，所以 Not X0 为假，执行 Else 分支，即 y=5+3=8 所以打印的结果应当为： X-Y=5-8=-3 y-X=8-5=3。17.Visual Basic 中的数值可以用十六进制或八进制表示，十六进制数的开头符号是H，八进制数的开头符号是 _ 。（分数：2.00）A.$OB.O C.$ED.E解析：解析 本题考查 Visual Basi
38、c-中的数值表示规则。十六进制以H 开头；八进制以O 开头。18.下列对变量的定义中，不能定义 a 为变体变量的是（分数：2.00）A.Dim a As Double B.Dim a As VariantC.Dim aD.a=24解析：解析 本题的难点是变体类型变量的概念。任何未经说明的变量，Visual Basic 都将自动设置为变体类型变量。19.如果要将窗体中的某个命令按钮设置成不可见状态，应该设置命令按钮的什么属性（分数：2.00）A.ValueB.Visible C.EnabledD.Default解析：解析 Visible 属性是命令按钮的状态属性，如果将该属性设为 True，则命
39、令按钮可见；如果设置成 Flase，则命令按钮不可见。20.假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是_。（分数：1.00）A.单击窗体上没有控件的地方 B.单击任意一个控件C.双击任意一个控件D.单击属性窗口的标题栏解析：解析 单击窗体上没有控件的地方，在属性窗口就会出现窗体的各属性，这样就可对窗体的属性进行设置，故 A 选项正确。 单击任意一个控件，在属性窗口中出现的是该控件的属性，放 B 选项错误；双击任意一个控件，打开的是“代码窗口”，故 C 选项错误；单击属性窗口的标题栏，属性窗口成为活动窗口，故 D 选项错误。21.在窗体上画
40、4 个文本框，并用这 4 个文本框建立一个控件数组，名称为 Text1(下标从 0 开始，自左至右顺序增大)，然后编写下列事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i)=Text1(i).Index i=i+1 Next End Sub 程序运行后，单击命令按钮，4 个文本框中显示的内容分别为 _ 。（分数：2.00）A.0 1 2 3 B.1 2 3 4C.0 1 3 2D.出错信息解析：解析 数组控件的 Index 属性默认从 0 开始，因此这 4 个文本框的 Index 值分别为 0、1、2、3。
41、题中通过 For Each 循环，依次将每个文本框的 Index 属性值赋给它自己的 Text 属性，因此，运行程序后，文本框显示的内容为 0、1、2、3。22.下列关于结构化设计方法的特点描述中，不正确的是 _ 。（分数：1.00）A.采用逐步求精的方法进行详细设计，由于相邻步之间变化小，易于验证其等效性和设计正确性B.程序清晰和模块化使得修改和重新设计一个软件时使用的代码量不大C.在进行程序设计时不能使用 goto 语句 D.良好清晰的控制结构使设计容易阅读和理解解析：解析 题中选项 A、B、D 所述均为结构化设计方法的特点。在进行程序设计时可以使用 goto 语句，但要严格控制。因此选项
42、 C 的叙述是错误的。23.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Comandl_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.15B.
43、14C.13D.12 解析：解析 数组 Arrayl 的部分元素在双重循环中被初值，其规律为：数组元素的值是两个下标值的之和，所以 Arrayrl(2，3)=5，Arrayl(3，4)=7。表达式“Arrayl(2，3)+Arrayl(3，4)”的计算结果为12。24.在下列叙述中，不正确的一条是 _。（分数：1.00）A.数据库设计包括结构设计和行为设计两方面的内容B.数据库设计的关键是结构特征的设计C.数据库设计是数据库应用系统设计的核心部分D.数据库的物理设计和具体的 DBMS 的类型无关 解析：解析 数据库设计包括结构设计和行为设计两方面的内容，其中结构设计是确定数据库的数据模型，行为
44、设计是应用程序的设计。结构设计是数据库设计的关键和核心，因此，选项 A、B 和 C 都是正确的。数据库的物理设计依赖于给定的计算机，不同类型的 DBMS 所提供的物理环境不同，物理结构有很大差别。25.下面语句中能够打开随机文件的是（分数：2.00）A.Open“file.txt“For Random As #1 B.Open“file.txt“ For Input As #1C.Open“file.txt“ For Output As #1D.Open“file.txt“ For Append As #1解析：解析 Visual Basic 程序中关于文件的操作，主要是先打开一个文件，然后对
45、这个文件进行读或写的操作，操作完成后，关闭这个文件。打开文件的基本格式为：Operi FileName For Mode As#FileNumber。打开方式主要有 Output、Append、Input、Random 等几种方式，其中打开随机文件使用Random 方式打开。二、填空题(总题数：14，分数：28.50)26.设一棵完全二叉树共有 500 个结点，则在该二叉树中有 _ 1_ 个叶子结点。 （分数：1.00）解析：250 解析 所谓完全二叉树是指除最后一层外，每一层上的结点数均达到最大值；在最后一层上只缺少右边的若干结点。 具有 n 个结点的完全二叉树，其父结点数为 int(n/2
46、)，而叶子结点数等于总结点数减去父结点数。本题n=500，故父结点数等于 int(500/2)=250，叶子结点数等于 500-250=250027.数据结构包括数据的逻辑结构、数据的 _ 1_ 以及对数据的操作运算。 （分数：2.00）解析：存储结构解析 数据结构包括 3 个方面，即数据的逻辑结构、数据的存储结构及对数据的操作运算。28.数据模型按不同应用层次分成 3 种类型，它们是概念数据模型、 1 和物理数据模型。 （分数：2.00）解析：逻辑数据模型29.通用对话框控件可通过调整其 Action 属性而改变成各种实用的对话框，但它不能改变成 1 对话框。 （分数：2.00）解析：设詈3
47、0.假设线性表的长度为 n，则在最坏情况下，冒泡排序需要的比较次数为 _ 1_ 。 （分数：1.00）解析：n(n-1)/2解析 假设线性表的长度为 n，则在最坏的情况下，冒泡排序要经过 n/2 遍的从前往后的扫描和 n/2 遍的从后往前的扫描，需要比较次数为 n(n-1)/2。31.单击命令按钮后，下列程序代码的执行结果是 1 。 Public Sub fun (Byval a () As Integer) Static n As Integer Do a(n) = a (n) + a(n + 1) n = n + 1 Loop While n 3 End Sub Private Sub c
48、ommand1_ click() Dim m As Integer, n As Integer, a(10) As Integer For n = 0 To 2: a(n) = n + 1: Next n For n = 1 To 2: Call fun(a): Next n For n = 0 To 3: Print a(n): Next n End Sub （分数：2.00）解析：编译错误在窗体上画两个文本框(名称分别为 Text1 和 Text2)和一个命令按钮(名称为 Command1)，然后编写如下事件过程： Private Sub Command1 Click( ) Text1.T
49、ext = InputBox(“请输入数据 1“) Text2.Text = InputBox(“请输入数据 2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分别输入 123 和abc，则两个文本框中显示的内容分别为 7 和 8 。（分数：4.00）解析：123解析：abc32.要使一个文本框具有水平和垂直滚动条，应先将其 MultiLine 属性设置为 True，然后再将 ScrollBar属性设置为 1。 （分数：2.00）解析：333.下列程序弹出对话框中按钮的个数为 1。 MsgBox“确认!“,vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,“提示“
