1、二级 VISUAL+BASIC-19-2 及答案解析(总分：66.00，做题时间：90 分钟)一、选择题(总题数：25，分数：40.00)1.已知二叉树 BT 的后序遍历序列是 dabec，中序遍历序列是 debac，它的前序遍历序列是 _。（分数：1.00）A.cedbaB.acbedC.decabD.deabc2.设 a=5，b=4，c=3，d=2 下列表达式的值是 32*b Or a=c And bC Or cd（分数：1.00）A.1B.TrueC.FalseD.23.在窗体上画一个名称为 Label1、标题为“VisualBasci 考试“的标签，两个名称分别为 Command1 和
2、Command2、标题分别为“开始“和“停止“的命令按钮，然后画一个名称为 Timer1 的计时器控件，并将其Interval 属性设置为 500。界面如下图所示。 （分数：2.00）A.标签的移动方向为自右向左B.单击“停止“按钮后再单击“开始“按钮，标签从停止的位置继续移动C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动D.标签按指定的时间间隔移动4.在窗体上有一个文本框 Text1，Text 属性值为空，然后编写如下事件过程： Private Sub Text1_KeyPress(Key Ascii As Integer) Dim str As String, n As Inte
3、ger str=UCase(Chr(Key Ascii) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框 Text1 中显示的内容为 _ 。（分数：2.00）A.ppB.pPC.PPD.Pp5.以下关于控件数组的叙述中，正确的是 _ 。（分数：1.00）A.数组中各个控件具有相同的名称B.数组中可包含不同类型的控件C.数组中各个控件具有相同的 Index 属性值D.数组元素不同，可以响应的事件也不同6.下列程序执行后，变量 x 的值为 _ 。 Dim a,b,c,d As Single Dim x A
4、s Single a=10 b=30 c=400 If ba Then d=a:a=b:b=d End If If bc Then x=b Else If ac Then x=c Else x=a End If（分数：2.00）A.10B.30C.400D.4307.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是_。（分数：2.00）A.如果工程中含有 SubMain 过程，则程序一定首先执行该过程B.不能把标准模块设置为启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体8.在窗体上画一个通用对话框，其名称为 CommonDi
5、alog1，则下列与 CommonDialog1.ShowOpen 方法等效的语句是_。（分数：2.00）A.CommonDialog1.Action= 1B.CommonDialog1.Action=2C.CommonDialog1.Action = 3D.CommonDialog1.Action = 49.以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述正确的是_。（分数：2.00）A.KeyAscii 参数是所按键的 ASCII 码B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符10.下列对话
6、框有关属性中，用于设置初始的文件目录并返回用户选择的目录的属性是 _。（分数：1.00）A.InitDirB.DialogTitleC.FilterD.FileName11.数据库设计包括两个方面的设计内容，它们是_。（分数：2.00）A.概念设计和逻辑设计B.模式设计和内模式设计C.内模式设计和物理设计D.结构特性设计和行为特性设计12.下列关于顺序文件的描述中，正确的是（分数：2.00）A.文件的组织与数据写入的顺序无关B.主要的优点是占空间少，且容易实现记录的增减操作C.每条记录的长度是固定的D.不能像随机文件一样灵活地存取数据13.软件危机是软件产业化过程中出现的一种现象，下述现象中
7、_ 是其主要表现。 软件需求增长难以满足 软件开发成本提高 软件开发进度难以控制 软件质量不易保证（分数：1.00）A.、和B.和C.全部D.、和14.下列数据结构中，能够按照“先进后出”原则存取数据的是 _（分数：2.00）A.循环队列B栈C.队列D.二叉树15.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=InputBox(“请输入一个二进制数“) n=Len(a$) For i=1 To n Dec=Dec*2+_(a$，i，1) Next i Print Dec End Sub 程序的功能为：单击命令按钮，将产生一个输入
8、对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在“_”处填入的内容是_。（分数：1.00）A.LeftB.RightC.ValD.Mid16.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。 Function Fun1(b As Integer) if_Then Fun1=0 Else Fun1=1 End If End Function 使该功能完整，应在空行处填入以下哪条语句（分数：2.00）A.b Mod 2 # 0B.b Mod 2=0C.b/2=1D.b/2=017.单击一次
9、命令按钮，下列程序代码的执行结果为 _ 。 Private Sub Commandl_Click() Dima As Integer,b As Integer，CASInteger a=2：b=3：c=4 PrintP2(c，b，a) End Sub PrivateFunctionPl(X As Integer,y As Intege；z As Integer) P1=2*x+y+3*Z End Function PrivateFunctionP2(X As Integer,y As Integer,z As Integer) P2=P1(z,x,y)+x End Function（分数：2.
10、00）A.21B.19C.17D.3418.下列有关数据库的叙述，正确的是 _（分数：2.00）A.数据处理是将信息转化为数据的过程B.数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C.关系中的每一列称为元组，一个元组就是一个字段D.如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字。19.给出下面程序： Private Sub Command1_Click _ Dim x，y，z X=False For Each y In z If y. Text=“Hell“ Then x=True Exit For End If Next
11、y End 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 循环20.软件测试方法中的黑盒测试法和白盒测试法是常用的方法，其中黑盒测试法主要是用于测试_。（分数：1.00）A.结构合理性B.程序正确性C.软件功能D.程序内部逻辑21.在数据结构
12、中，根据各数据元素之间前后件关系的复杂程度，一般将数据结构分成两类，它们是（分数：1.00）A.动态结构和静态结构B.紧凑结构和非紧凑结构C.线性结构和非线性结构D.内部结构和外部结构22.树是结点的集合，它的根结点的数目是 _ 。（分数：2.00）A.有且只有 1 个B.1 或多于 1C.0 或 1D.至少有 2 个23.Visual Basic 中窗体文件的扩展名是_。（分数：2.00）A.VBPB.FRMC.VBWD.PDM24.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Cl
13、ick() Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j，i)； Next j Next i End Sub 程序运行后，单击命令按钮，其输出结果为 _ 。（分数：1.00）A.6 9 7 10B.7 10 8 11C.8 11 9 12D.9 12 10 1325.设 Label1、Command1、Text1、Check1 分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是（分数：1.00）A.L
14、abel1.BackStyle=2B.Command1.Style=1C.Text1.ScrollBars=4D.Check1.Value=2二、填空题(总题数：15，分数：26.00)26.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open“Num.txt“For Output As #1 For i=1 To 8 1 Next Close #1 End Sub （分数：2.00）27.下列程序功能是，产生 10 个 0100 的随机数，输出其中的最大值。请将程序补
15、充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer Randomize For i %=1 To 10 an(i%)= 1 Next max=an(1) For i%=2 to 10 ifan(i%)max then max=an(i%) End If Next Print max End Sub （分数：2.00）28.衡量软件的模块独立性使用耦合性和内聚性两个定性的度量标准，其中 1 是度量一个模块功能强度的一个相对指标。 （分数：2.00）29.窗体上有两个按钮，则执行程序后按键盘 Cancel 键的
16、输出结果是 _ 1_ 。 Private Sub Command1 _ Click( ) Print“北京“； End Sub Private Sub Command2 _ Click( ) Print“南京“； End Sub Private Sub Form _ Load( ) Command2CancelTrue Command1Cancel=True End Sub （分数：1.00）30.在数据库的外模式、模式和内模式三级模式的体系结构中，存在两级映像：外模式到模式的映像定义了外模式与模式之间的对应关系；模式到内模式的映像定义了数据库的逻辑结构与 _ 1_ 之间的对应关系。 （分数：
17、1.00）31.下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single) PaintStart=True End Sub Private Sub Form_
18、MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) End Sub Private Sub Form_DblClick() Cls End Sub （分数：2.00）32.下列程序运行时，若输入 123，输入对话框的提示信息是 1。 Private Su
19、b Command1_Click() X1=InputBox(“请输入“) MsgBox(X1) End Sub （分数：2.00）33.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open 1 Y=3.14159/1
20、80 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i * Y) Ksc.Cosx=Cos(i * Y) Put #2，i，KSC Next i Close #2 End Sub （分数：2.00）34.以下程序段的功能为，输入 8 个数给数组 a,然后采用插入排序算法，将数组 a 中的数按照升序排列存入数组 b 中。请填空。 Private Sub Command1_Click () Dim a(1 To 8), b(1 To 8) For i = 1 To 8 a(i) = InputBox(“请输入“) Print a(i) Next i Print For i
21、= 1 To 8 s = 1 For j = 1 To 8 If _ 1_ Then s = s + 1 End If Next j _ 2_ Next i End Sub 35.为了显示一个窗体，所使用的方法为 _ 1_ ；为了隐藏一个窗体，所使用的方法为 _ 2_ 。 （分数：2.00）36.在 Visual Basic 6.0 中，InputBox 函数用于产生一个 1 对话框。 （分数：2.00）37.Visual Basic 中的控件分为 3 类，它们是 1、 2 和 3。 （分数：1.00）38.能判断是否到达文件尾的函数是 _ 1_ 。 （分数：1.00）39.在窗体上有一个名称
22、为 Text1 的文本框，有 3 个单选按钮，这 3 个单选按钮构成一个控件数组，名称为 Option1。要求程序执行时，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮执行更改，如图所示。请填空。 （分数：4.00）40.在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块，其中的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。 （分数：2.00）二级 VISUAL+BASIC-19-2 答案解析(总分：66.00，做题时间：90 分钟)一、选择题(总题数：25，分数：40.00)1.已知二叉树 BT 的后序遍历序列是 dabec，中序遍历
23、序列是 debac，它的前序遍历序列是 _。（分数：1.00）A.cedba B.acbedC.decabD.deabc解析：解析 二叉树 BT 的后序遍历序列为 dabec，故 BT 的根结点为 c(后序遍历序列的最后一个结点为数的根结点)；而 BT 的中序遍历序列是 debac，即遍历序列中最后一个结点为跟结点，说明 BT 的右子树为空。由 BT 的的后序遍历序列和中序遍历序列可知 BT 的左子树(LST)的后序遍历序列和中序遍历序列分别为 dabe 和 deba(树是递归定义的)：故 LST 的根结点是 e，在由 LST 的中序遍历序列可知其左子树为 do因此 BT 的前序遍历序列为 c
24、edba。 2.设 a=5，b=4，c=3，d=2 下列表达式的值是 32*b Or a=c And bC Or cd（分数：1.00）A.1B.True C.FalseD.2解析：解析 本题考的是关系运算符和逻辑运算符的执行顺序。当运算符不只一种时，要先处理关系运算符，然后再处理逻辑运算符。关系运算符的优先顺序是相同的，而逻辑运算符的执行顺序是：Not，And，Ou Xor， Eqv，Imp。本题中先运行关系运算，32*b 为 False，a=c 为 False，bc 为True，cd 为 True；然后执行 And 运算，为 False，再执行第一个 Or，为 False，最后执行第二个
25、Or，即 False Or True 为 True。3.在窗体上画一个名称为 Label1、标题为“VisualBasci 考试“的标签，两个名称分别为 Command1 和Command2、标题分别为“开始“和“停止“的命令按钮，然后画一个名称为 Timer1 的计时器控件，并将其Interval 属性设置为 500。界面如下图所示。 （分数：2.00）A.标签的移动方向为自右向左 B.单击“停止“按钮后再单击“开始“按钮，标签从停止的位置继续移动C.当标签全部移出窗体后，将从窗体的另一端出现并重新移动D.标签按指定的时间间隔移动解析：解析 本题通过命令按钮的 Click 事件来对计时器的
26、Enabled 属性进行设置，从而达到停止和开始计时的功能。在计时器的 Timer 过程中，根据结果判断标签的位置属性 Left 是增加趋势的，从而会向右移动。4.在窗体上有一个文本框 Text1，Text 属性值为空，然后编写如下事件过程： Private Sub Text1_KeyPress(Key Ascii As Integer) Dim str As String, n As Integer str=UCase(Chr(Key Ascii) n=Len(str) Text1.Text=String(n,str) End Sub 程序运行后，若在文本框中输入单字母“p”，则在文本框 T
27、ext1 中显示的内容为 _ 。（分数：2.00）A.ppB.pP C.PPD.Pp解析：解析 解答本题的前提是了解以下几个函数的作用：UCase 函数的作用是将某字符串中的字符全部转成大写；string(n,str)函数的作用是返回 n 个重复字符的字符串；Len 函数的作用是返回字符串的长度。因为 KeyPress 事件中接收 KeyAscii 参数为输入键的 ASCII 码，输入小写字母“p”后，str 为大写字母“P”，n=1，String(n,str)为“P”，所以 Text1 中在按下键盘上的键时又添加了一个“P”。5.以下关于控件数组的叙述中，正确的是 _ 。（分数：1.00）A
28、.数组中各个控件具有相同的名称 B.数组中可包含不同类型的控件C.数组中各个控件具有相同的 Index 属性值D.数组元素不同，可以响应的事件也不同解析：解析 控件数组中各控件具有相同的名称，而且类型是相同的，但 Index 属性值不同。数组中各控件响应的事件是相同，用 Index 属性值来区分每个控件。故 A 选项正确，B、C、D 选项错误。6.下列程序执行后，变量 x 的值为 _ 。 Dim a,b,c,d As Single Dim x As Single a=10 b=30 c=400 If ba Then d=a:a=b:b=d End If If bc Then x=b Else
29、If ac Then x=c Else x=a End If（分数：2.00）A.10B.30 C.400D.430解析：解析 程序操作过程如下： 程序首先执行 If ba Theh 语句，条件为真执行 d=a:a=b:b=d 语句，执行后 d=10，a=30，b=10；然后执行 If bc Then 语句，条件不成立，因此执行 Else If ac Then 语句；条件不成立，因此执行 Else 后面的 x=a 语句，执行后 x=30。7.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是_。（分数：2.00）A.如果工程中含有 SubMain 过程，则程序一定首先执行该过程 B.不能
30、把标准模块设置为启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体解析：解析 工程中首先执行的部分可以由编程人员自己设置，并不一定要先执行 SubMain 过程。8.在窗体上画一个通用对话框，其名称为 CommonDialog1，则下列与 CommonDialog1.ShowOpen 方法等效的语句是_。（分数：2.00）A.CommonDialog1.Action= 1 B.CommonDialog1.Action=2C.CommonDialog1.Action = 3D.CommonDialog1.Action = 4解析：9.以下
31、关于 KeyPress 事件过程中参数 KeyAscii 的叙述正确的是_。（分数：2.00）A.KeyAscii 参数是所按键的 ASCII 码 B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符解析：解析 KeyPress 事件有一个参数，这个参数有两种形式，一种是 Index As Integer，只用于控件数组，第二种是 KeyAsciiAs Integer，用于单个控件。KeyPress 事件用来识别按键的 ASCII 码，所以选项 A 是正确的；从参数定义来看，KeyAscii 类型为整型，所以选项 B 和选
32、项 D 错误；在应用中参数不能省略，所以选项 C 错误。10.下列对话框有关属性中，用于设置初始的文件目录并返回用户选择的目录的属性是 _。（分数：1.00）A.InitDir B.DialogTitleC.FilterD.FileName解析：解析 InitDir 属性用于设置初始的文件目录并返回用户选择的目录；DialogTitle 属性用于设置标题文本，默认为“打开”，Filter 属性用于设置文件过滤器；FileName 属性用于设置初始的文件名并返回用户所选择文件的名称。11.数据库设计包括两个方面的设计内容，它们是_。（分数：2.00）A.概念设计和逻辑设计 B.模式设计和内模式设
33、计C.内模式设计和物理设计D.结构特性设计和行为特性设计解析：12.下列关于顺序文件的描述中，正确的是（分数：2.00）A.文件的组织与数据写入的顺序无关B.主要的优点是占空间少，且容易实现记录的增减操作C.每条记录的长度是固定的D.不能像随机文件一样灵活地存取数据 解析：解析 顺序文件结构比较简单，文件中的记录一条接一条按写入顺序存放。在该类文件中，只知道第一条记录的存放位置，当要查找某个数据时，只能从文件头开始，逐步按顺序读取，直至找到要查找的记录为止。顺序文件的缺点是不能灵活地存取和维护数据，为了修改文件中的某个记录，必须把整个文件读入内存，适用于有一定规律且不经常修改的数据；优点是结构
34、简单，占空间少。13.软件危机是软件产业化过程中出现的一种现象，下述现象中 _ 是其主要表现。 软件需求增长难以满足 软件开发成本提高 软件开发进度难以控制 软件质量不易保证（分数：1.00）A.、和B.和C.全部 D.、和解析：解析 软件危机的具体表现为：供求关系失调、开发费用失控、可靠性差、难以维护、易移植性差。14.下列数据结构中，能够按照“先进后出”原则存取数据的是 _（分数：2.00）A.循环队列B栈 C.队列D.二叉树解析：解析 栈是一种特殊的线性表，其插入和删除运算都只在线性表的一端进行，而另一端是封闭的。可以进行插入和删除运算的一端称为栈顶，封闭的一端称为栈底。栈顶元素是最后被
35、插入的元素，而栈底元素是最后被删除的。因此，栈是按照先进后出的原则组织数据的。15.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=InputBox(“请输入一个二进制数“) n=Len(a$) For i=1 To n Dec=Dec*2+_(a$，i，1) Next i Print Dec End Sub 程序的功能为：单击命令按钮，将产生一个输入对话框，此时如果在对话框中输入一个二进制数，并单击“确定”按钮，则把该二进制数转换为等值的十进制数。这个程序不完整，应在“_”处填入的内容是_。（分数：1.00）A.LeftB.Ri
36、ghtC.ValD.Mid 解析：解析 将二进制数转换为十进制数需要将二进制数的每一位取出来进行运算，从一个数值字符串中截取一位数字字符要使用 Mid 函数，因此在程序空缺处该填入 Mid。16.函数过程 Fun1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。 Function Fun1(b As Integer) if_Then Fun1=0 Else Fun1=1 End If End Function 使该功能完整，应在空行处填入以下哪条语句（分数：2.00）A.b Mod 2 # 0B.b Mod 2=0 C.b/2=1D.b/2=0解析：解析 本题考查的是函数过
37、程的定义。b 是偶数的条件是“b Mod 2=0”，当 6 为偶数时返回 0，应将 0 赋给“Fun1”；当 b 为奇数时返回 1，即将 1 赋给“Fun1”。所以本题的正确答案是选项 B) 。17.单击一次命令按钮，下列程序代码的执行结果为 _ 。 Private Sub Commandl_Click() Dima As Integer,b As Integer，CASInteger a=2：b=3：c=4 PrintP2(c，b，a) End Sub PrivateFunctionPl(X As Integer,y As Intege；z As Integer) P1=2*x+y+3*Z
38、End Function PrivateFunctionP2(X As Integer,y As Integer,z As Integer) P2=P1(z,x,y)+x End Function（分数：2.00）A.21 B.19C.17D.34解析：18.下列有关数据库的叙述，正确的是 _（分数：2.00）A.数据处理是将信息转化为数据的过程B.数据的物理独立性是指当数据的逻辑结构改变时，数据的存储结构不变C.关系中的每一列称为元组，一个元组就是一个字段D.如果一个关系中的属性或属性组并非该关系的关键字，但它是另一个关系的关键字，则称其为本关系的外关键字。 解析：解析 数据处理是指将数据转
39、换成信息的过程，故选项 A 叙述错误；数据的物理独立性是指数据的物理结构的改变不会影响数据库的逻辑结构，故选项 B 叙述错误；关系中的行称为元组，对应存储文件中的记录，关系中的列称为属性，对应存储文件中的字段，故选项 C 叙述错误。19.给出下面程序： Private Sub Command1_Click _ Dim x，y，z X=False For Each y In z If y. Text=“Hell“ Then x=True Exit For End If Next y End Sub 下面描述正确的是_。（分数：2.00）A.退出 For Each.Next 循环的条件是 x=Tr
40、ueB.退出 For Each.Next 循环的条件是 x=FalseC.程序检查 y 对象的 Text 属性，等于“Hello”时退出 ForEach.Next 循环D.程序逐一查找在 z 中的对象，不确切并判断其 Text 属性，文本框中的内容等于“Hello”时退出ForEach.Next 循环 解析：解析 For EachNext 的语法为： For Each element In group statements ExitFor statement|s Rextelement 其中 element 用来反复装载 group 对象集合数组中的对象，直到遍历 group 数组中的所有对象
41、。20.软件测试方法中的黑盒测试法和白盒测试法是常用的方法，其中黑盒测试法主要是用于测试_。（分数：1.00）A.结构合理性B.程序正确性C.软件功能 D.程序内部逻辑解析：21.在数据结构中，根据各数据元素之间前后件关系的复杂程度，一般将数据结构分成两类，它们是（分数：1.00）A.动态结构和静态结构B.紧凑结构和非紧凑结构C.线性结构和非线性结构 D.内部结构和外部结构解析：解析 数据的逻辑结构抽象地反映数据元素之间的逻辑关系，即数据元素之间的前后件关系，而不管它在计算机中的存储表示形式。根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分为两大类型：线性结构和非线性结构。2
42、2.树是结点的集合，它的根结点的数目是 _ 。（分数：2.00）A.有且只有 1 个B.1 或多于 1C.0 或 1 D.至少有 2 个解析：解析 树具有明显的层次关系，即树是一种层次结构。在树结构中，根结点在第一层上。当树为非空时，树中有且只有一个根结点，当树为空时，树中根结点的数目为 0。23.Visual Basic 中窗体文件的扩展名是_。（分数：2.00）A.VBPB.FRM C.VBWD.PDM解析：解析 VB 中窗体文件的扩展名为 FRM，即 Form。24.在窗体上画一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Priv
43、ate Sub Command1_Click() Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j=3 To 4 Print a(j，i)； Next j Next i End Sub 程序运行后，单击命令按钮，其输出结果为 _ 。（分数：1.00）A.6 9 7 10B.7 10 8 11C.8 11 9 12D.9 12 10 13 解析：解析 第 1 个输出为 a(3,3)=(3-1)*3+3=9。第 2 个输出为 a(4,3)=(4-1)*3+3=12。第 3 个
44、输出为 a(3,4)=(3-1)*3+4=10。第 4 个输出为 a(4,4)=(4-1)*3+4=1325.设 Label1、Command1、Text1、Check1 分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是（分数：1.00）A.Label1.BackStyle=2B.Command1.Style=1C.Text1.ScrollBars=4D.Check1.Value=2 解析：解析 标签的 BackStyle 属性用于设置是否让标签覆盖背景，可以取 0(标签不覆盖背景，以透明方式显示)和 1(默认值，标签覆盖背景)；按钮的 Style 属性用来
45、设置命令按钮的外观，可设置成Standard，按钮以标准的形式显示，即文字形式，为默认值，值为 Graphical，按钮将以图形的方式显示；文本框的 ScrollBars 属性用于设置文本框是否有水平或垂直滚动条，可设置成 4 种值，0-None，表示没有滚动条(默认值)；1-Horizontal，表示只有水平滚动条；2-Vertical：表示只有垂直滚动条：3-Both：表示有水平和垂直滚动条；复选框的 Value 属性可设置为以下 3 种值：值 0-Unchecked 表示未选(默认值)，“”消失；值 1-checked 表示选中，复选框将显示“”；值 2-Grayed 表示以灰色呈现。二
46、、填空题(总题数：15，分数：26.00)26.下列程序的功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。 Private Sub Form_Click() Dim i As Integer Open“Num.txt“For Output As #1 For i=1 To 8 1 Next Close #1 End Sub （分数：2.00）解析：Print #1，i解析 使用 Print 语句可以将数据写入顺序文件中。27.下列程序功能是，产生 10 个 0100 的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Di
47、m an(10)As Integer Dim max As Integer Randomize For i %=1 To 10 an(i%)= 1 Next max=an(1) For i%=2 to 10 ifan(i%)max then max=an(i%) End If Next Print max End Sub （分数：2.00）解析：Int(Rnd*1000)解析 Rnd(x)产生一个 01 之间的单精度随机数。28.衡量软件的模块独立性使用耦合性和内聚性两个定性的度量标准，其中 1 是度量一个模块功能强度的一个相对指标。 （分数：2.00）解析：内聚性解析 模块的独立程度是评价设
48、计好坏的重要度量标准。衡量软件的模块独立性使用耦合性和内聚性两个定性的度量标准。内聚性是度量一个模块功能强度的一个相对指标，耦合性则用来度量模块之间的相互联系程度。29.窗体上有两个按钮，则执行程序后按键盘 Cancel 键的输出结果是 _ 1_ 。 Private Sub Command1 _ Click( ) Print“北京“； End Sub Private Sub Command2 _ Click( ) Print“南京“； End Sub Private Sub Form _ Load( ) Command2CancelTrue Command1Cancel=True End Sub （分数：1.00）解析：北京解析：窗体中只能有一个 CommandButton 控件为取消按钮。当一个 CommandButton 控件的Cancel 属性被设置为 True 时，窗体中其他 CommandButton 控件的 Cancel 属性自动地被设置为 False。当CommandBuuon 控件的 Cancel 属性被设置为 True，而且当前窗体处于活动状态时，按 Cancel 键可以触发该按钮 Click 事件，而不管该控件是否获得焦点。本题
