1、二级 VISUAL+BASIC-33-2 及答案解析(总分：65.50，做题时间：90 分钟)一、选择题(总题数：25，分数：42.50)1.软件开发的结构化设计方法，全面指导模块划分的最重要的原则应该是_。（分数：2.00）A.模块高内聚B.模块低耦合C.模块独立性D.程序模块化2.下列描述中，不是线性表顺序存储结构特征的是 _ 。（分数：2.00）A.不便于插入和删除B.需要连续的存储空间C.可随机访问D.需另外开辟空间来保存元素之间的关系3.单击命令按钮，并在对话框内依次输入 99，73，84，88，-1，下列程序段的执行结果为_。 Private Sub Command1_Click(
2、) Dim S As Single, max As Single, min As Single n=0 S=InputBox(“Please enter a score“) max=S min=S Do While S=0 If Smax Then max=S End If If S min Then min=S End If S=InputBox(“Please enter a score“) n=n+1 Loop Print n; “:“; max, min End Sub（分数：2.00）A.4:99,88B.4;99,73C.4:99,73D.4;99,884.窗体上有两个名称分别为
3、Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是_。（分数：1.00）AABaCCDc5.工程中有两个普通窗体 From1 和 From2，其中 From1 中有一个按钮，启动程序后，单击 From1 中的按钮，输出结果为_。 P
4、rivate Sub Command1_Click() Print “A“ Form2.Show vbModal Print“B“ End Sub（分数：2.00）A.From1 中显示 A，From2 中显示 BB.From1 中显示 A，From2 中无显示C.From1 中无显示，From2 中显示 ABD.From1 中无显示，From2 中显示 B6.以下关于图片框控件的说法中，错误的是 _ 。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框
5、中图形的大小7.滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是 _。（分数：1.00）A.MaxB.ValueC.LargeChangeD.SmallChange8.在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是 _。（分数：1.00）A.概要设计B.详细设计C.可行性分析D.需求分析9.以下可以构成语句的一项是_。（分数：2.00）A.对象名，属性B.对象名，方法名C.对象名.事件名D.对象名，函数名10.窗体上有一个名称为 Label1 的标签和一个名称为 Command1 的命令按钮。命令按钮的单击事件过程如下： Private Sub Co
6、mmand1_Click() x= InputBox(“输入 x:“,0) y= InputBox(“输入 y:“,0) Label1. Caption=x+y End Sub 运行程序，单击命令按钮，在输入对话框中分别输入 2、3，运行的结果是_。（分数：2.00）A.程序运行有错误，数据类型不匹配B.程序运行有错误，InputBox 函数的格式不对C.在 Label1 中显示 5D.在 Label1 中显示 2311.单击命令按钮执行下列程序，其输出结果是 _ 。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c
7、As Integer a=3 b=4 c=5 Print SecProc(c, b, a) End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer, y As Integer, z As Integer) SecProc=FirProc(z, x, y)+x End Function（分数：2.00）A.20B.22C.28D.3012.通过 InputBox 函数可以产生输入对话框。若执行下列语
8、句： st$=InputBox(“请输入字符串“，“字符串对话框“，“字符串“) 则运行程序，用户输入完毕并单击“确定”按钮后，st$变量的内容为 _ 。（分数：2.00）A.字符串B.请输入字符中C.字符串对话框D.用户输入内容13.窗体上有一个列表框和一个文本框，编写如下两个事件过程： Private Sub Form_Load() List1.Addltem“Beijing“ List1.Addltem“Tianjin“ List1.Addltem“Shanghai“， Text1.Text=“ End Sub Private Sub Listl_Dbl Click() x=Listl.
9、Text Printx+Textl.Text End Sub 程序运行后，在文本框中输入“China“，然后双击列表框中的“Shanghai“，则输出结果为 _ 。（分数：2.00）A.China BeejingB.China TianjinC.China ShanghaiD.Shanghai China14.在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1 和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change 事件过程中应使用的语句是 _。（分数：1.00）A.Dirvel.Drive
10、=Dir1.PathB.Dir1.Path=Drive1.DriveC.Dir1.Path=File1.PathD.File1.Path=Dir1.Path15.由系统触发的事件有_。（分数：2.00）A.Hscrollbox、Click、DtbClickB.Mousedown、Mouseup、MousemoveC.Initialize、Load、TimerD.Keypress、Keydown、Keyup16.窗体上有一个名称为 Combo1 的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是（分数：2.50）A.Private Sub Comb
11、o1_KeyDown(KeyCode_As Integer, Shift As Integer)If KeyCode=13 ThenCombo1.AddItemCombo1.TextEnd IfEnd SubB.Private Sub Combo1_KeyDown(KeyCode_As Integer, Shift As integer)If KeyCode=13 ThenCombo1.AddItemText1.TextEnd IfEnd SubC.Private Sub Combo1_Click()Combo1.AddItem Combo1.TextEnd SubD.Private Sub
12、Combo1_Click()Combo1.AddItem Text1.TextEnd Sub17.若在某窗体模块中有如下事件过程： Private Sub Command1_Click(Index As Integer) End Sub 则以下叙述中正确的是_。（分数：2.00）A.此事件过程与不带参数的事件过程没有区别B.有一个名称为 Command1 的窗体，单击此窗体则执行此事件过程C.有一个名称为 Command1 的控件数组，数组中有多个不同类型控件D.有一个名称为 Command1 的控件数组，数组中有多个相同类型控件18.在表达式 2+3*45-Sin(x+1)/2 中，首先进行
13、的运算是 _ 。（分数：2.00）A.45B.3*4C.x+1D.Sin()19.标签控件能够显示文本信息，文本内容只能用什么属性来设置?（分数：1.00）A.AlignmentB.CaptionC.VisibleD.BorderStyle20.鼠标拖放控件要触发两个事件，这两个事件是_。（分数：1.00）A.DragOver 事件和 DragDrop 事件B.Drag 事件和 DragDrop 事件C.MouseDown 事件和 KeyDown 事件D.MouseUp 事件和 KeyUp 事件21.命令按钮不能响应的事件是（分数：1.00）A.DblClickB.ClickC.MouseDo
14、wnD.MouseUp22.下列程序执行后，变量 S 的值为_ 。 Dim s As Long，X As Integer s=0 X=1 Do While x10 s= s+ x x=x+2 Loop Print s（分数：2.00）A.10B.25C.50D.10023.将 E-R 图转换为关系模式时，实体和联系都可以表示为_。（分数：2.00）A.属性B键C.关系D域24.在关系数据库中，用来表示实体间联系的是_。（分数：1.00）A.属性B.二维表C.网状结构D.树状结构25.数据流程图(DFD 图)是（分数：2.00）A.软件概要设计的工具B.软件详细设计的工具C.结构化方法的需求分析
15、工具D.面向对象方法的需求分析工具二、填空题(总题数：14，分数：23.00)26.阅读程序： Private Sub Form_Click() msg 1$“继续吗?“ msg 2$=“操作对话框“ rMsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按 Enter 键，则相当于用鼠标单击信息框中的 _ 1_ 按钮。 （分数：1.00）27.表达式(7/3+1)*(18/-1)的值是 1。 （分数：2.00）28.在窗体上有一个名为 Image1 的图像框，现在要把“D：”盘根目
16、录下的图片文件“Foxbmp”在其中显示出来，使用的语句是 1。 （分数：1.00）29.在菜单编辑器中，菜单-项前面的 4 个小点的含义是 _ 1_ 符号。 （分数：1.00）30.对数据元素之间的逻辑关系的描述是 1。 （分数：2.00）31.下列程序为比较排序法排序程序，请补充完该程序(该程序对 10 个数值数据进行排序处理)。 Dim a(1 To 10)AS Integer Private Sub Form _Click() Randomize p=“” For i = 1 To 10 Do x = Int (Rnd * 90) + 10 yes = 0 For j = 1 To _
17、 1_ If x = a(j) Then yes = 1: Exit For Next Loop While yes = 1 a(i) = x Next i For i = 1 To 9 For _ 2_ To 10 If a(i) a(j) Then t = a(i) _ 3_ a(j) = t End If Next j Next i p = Str(a(1) For i = 2 To 10 p = p “:“; max, min End Sub（分数：2.00）A.4:99,88B.4;99,73C.4:99,73 D.4;99,88解析：4.窗体上有两个名称分别为 Text1、Text
18、2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是_。（分数：1.00）AABaCC Dc解析：解析 KeyDown 和 KeyUp 事件的 KeyCode 参数返回的是“键”，即按字母“A”和“a”时得到的KeyCode 的值是相同的，都是&H41。
19、因此程序中对输入“a”时得到的 KeyCode，经 Chr 函数转为字符后为“A”，经 Ucase 函数转换仍为“A”，所以变量 c 中的字符为“A”。Asc(c)将返回变量 c 中的第一个字符的 ASCII，加 2 后，再由 Chr 函数转为字符即为“A”后面的第 2 个字符，即“C”。所以答案应为选项C。5.工程中有两个普通窗体 From1 和 From2，其中 From1 中有一个按钮，启动程序后，单击 From1 中的按钮，输出结果为_。 Private Sub Command1_Click() Print “A“ Form2.Show vbModal Print“B“ End Sub
20、（分数：2.00）A.From1 中显示 A，From2 中显示 BB.From1 中显示 A，From2 中无显示 C.From1 中无显示，From2 中显示 ABD.From1 中无显示，From2 中显示 B解析：6.以下关于图片框控件的说法中，错误的是 _ 。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小 解析：7.滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是 _。（分数：1.00）A.MaxB.ValueC
21、.LargeChangeD.SmallChange 解析：解析 滚动条控件(HScroll 或者 VScroll)的属性和事件： 属性 Value 属性 Value 属性对应于滚动框在滚动条中的位置，其值介于 Min 和 Max 属性值之间。当 Value 属性值等于 Min 属性值时，滚动框位于滚动条的最左端(水平滚动条)或最顶端(垂直滚动条)：当 Value 属性值等于 Max 属性值时，滚动框位于滚动条的最右端(水平滚动条)或最底端(垂直滚动条)。 Min 和 Max 属性 Min 属性设置滚动框位于滚动条最左端或者最顶端时 Value 属性的值。Max 属性设置滚动框位于滚动条最右端或
22、者最底端时 Value 属性的值。 SmallChange 属性 设置鼠标单击滚动箭头时滚动框移动的大小。 LargeChange 属性 设置鼠标单击滚动箭头和滚动框之间的区域时，滚动框的移动大小。 事件 Scroll 事件 拖动滚动框时，Scroll 事件被触发。 Change 事件 释放滚动框或者单击滚动条或滚动箭头时，Change 事件被触发。8.在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是 _。（分数：1.00）A.概要设计B.详细设计C.可行性分析D.需求分析 解析：解析 通常，将软件产品从提出、实现、使用维护到停止使用退役的过程称为软件生命周期。也就是
23、说，软件产品从考虑其概念开始，到该软件产品不能使用为止的整个时期都属于软件生命周期。 软件生命周期的主要活动阶段为： 可行性研究和计划制定。确定待开发软件系统的开发目标和总的要求，给出它的功能、性能、可靠性以及接口等方面的可行方案，制定完成开发任务的实施计划。 需求分析。对待开发软件提出的需求进行分析并给出详细定义，即准确地确定软件系统的功能。编写软件规格说明书及初步的用户手册，提交评审。 软件设计。系统设计人员和程序设计人员应该在反复理解软件需求的基础上，给出软件的结构、模块的划分、功能的分配以及处理流程。 软件实现。把软件设计转换成计算机可以接受的程序代码。即完成源程序的编码，编写用户手册
24、、操作手册等面向用户的文档，编写单元测试计划。 软件测试。在设计测试用例的基础上，检验软件的各个组成部分。编写测试分析报告。 运行和维护。将已交付的软件投入运行，并在运行使用中不断地维护，根据新提出的需求进行必要而且可能的扩充和删改。9.以下可以构成语句的一项是_。（分数：2.00）A.对象名，属性B.对象名，方法名 C.对象名.事件名D.对象名，函数名解析：10.窗体上有一个名称为 Label1 的标签和一个名称为 Command1 的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() x= InputBox(“输入 x:“,0) y= Inpu
25、tBox(“输入 y:“,0) Label1. Caption=x+y End Sub 运行程序，单击命令按钮，在输入对话框中分别输入 2、3，运行的结果是_。（分数：2.00）A.程序运行有错误，数据类型不匹配B.程序运行有错误，InputBox 函数的格式不对C.在 Label1 中显示 5D.在 Label1 中显示 23 解析：解析 InputBox 函数输入的数据是字符串格式的，当两个字符串用+号连在一起时，即为字符串连接，本题答案为 D。11.单击命令按钮执行下列程序，其输出结果是 _ 。 Private Sub Command1_Click() Dim a As Integer,
26、 b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c, b, a) End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer, y As Integer, z As Integer) SecProc=FirProc(z, x, y)+x End Function（分数：2.00）A.20B.22C.28 D.30解析：解析 本题是在 Conn
27、nand1 过程中调用 SecProc 函数，而在 SecProc 函数中又调用了 FirProc 函数。函数调用时，实参和形参要一一对应传递。程序运行过程如下：Print SecProc(c，b，a) Print SecProc(5，4，3)；SecProc=FirProc(z，x，y)+xSecPro= FirProc(3，5，4)+1；FirProc=2*x+y+3*zFirProc=2*3+5 +3*4=23：SeeProc=28Print SecProe(c，b，a)Print 28。形参是在被调用的 Sub、Function 过程中定义的参数名；实参则是在调用的 Sub 或 Fun
28、ction 过程中定义的参数名。12.通过 InputBox 函数可以产生输入对话框。若执行下列语句： st$=InputBox(“请输入字符串“，“字符串对话框“，“字符串“) 则运行程序，用户输入完毕并单击“确定”按钮后，st$变量的内容为 _ 。（分数：2.00）A.字符串B.请输入字符中C.字符串对话框D.用户输入内容 解析：解析 InputBox 函数用于产生一个输入对话框，在对话框中显示提示，等待用户在对话框的文本框中输入内容或按下按钮，然后返回包含文本框内容的字符串。13.窗体上有一个列表框和一个文本框，编写如下两个事件过程： Private Sub Form_Load() Li
29、st1.Addltem“Beijing“ List1.Addltem“Tianjin“ List1.Addltem“Shanghai“， Text1.Text=“ End Sub Private Sub Listl_Dbl Click() x=Listl.Text Printx+Textl.Text End Sub 程序运行后，在文本框中输入“China“，然后双击列表框中的“Shanghai“，则输出结果为 _ 。（分数：2.00）A.China BeejingB.China TianjinC.China ShanghaiD.Shanghai China 解析：14.在窗体上画一个驱动器列表
30、框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1 和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change 事件过程中应使用的语句是 _。（分数：1.00）A.Dirvel.Drive=Dir1.PathB.Dir1.Path=Drive1.DriveC.Dir1.Path=File1.PathD.File1.Path=Dir1.Path 解析：解析 由于要在文件列表框中显示当前选中的文件夹中的内容，所以应使用的语句是File1.Path=Dir1.Path。15.由系统触发的事件有_。（分数：2.00）A.Hsc
31、rollbox、Click、DtbClickB.Mousedown、Mouseup、MousemoveC.Initialize、Load、Timer D.Keypress、Keydown、Keyup解析：解析 与键盘事件有关的是 Keypress、Keydown、Keyup，与鼠标事件有关的事件是 Hscrollbox、 Click、DblClick、Mousedown、Mouseup、Mousemove。16.窗体上有一个名称为 Combo1 的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是（分数：2.50）A.Private Sub Com
32、bo1_KeyDown(KeyCode_As Integer, Shift As Integer)If KeyCode=13 ThenCombo1.AddItemCombo1.TextEnd IfEnd Sub B.Private Sub Combo1_KeyDown(KeyCode_As Integer, Shift As integer)If KeyCode=13 ThenCombo1.AddItemText1.TextEnd IfEnd SubC.Private Sub Combo1_Click()Combo1.AddItem Combo1.TextEnd SubD.Private Su
33、b Combo1_Click()Combo1.AddItem Text1.TextEnd Sub解析：解析 要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中，所以代码应该写在组合框的 KeyDown 方法中；组合框的编辑区中输入的文本通过组合框的 Text 属性返回。17.若在某窗体模块中有如下事件过程： Private Sub Command1_Click(Index As Integer) End Sub 则以下叙述中正确的是_。（分数：2.00）A.此事件过程与不带参数的事件过程没有区别B.有一个名称为 Command1 的窗体，单击此窗体则执行此事件过程C.有一个名称为
34、 Command1 的控件数组，数组中有多个不同类型控件D.有一个名称为 Command1 的控件数组，数组中有多个相同类型控件 解析：解析 根据题意，该段代码应为命令按钮数组的单击过程代码，它与单个命令按钮的事件过程是不同的，它根据索引值的不同来执行不同的代码，所以选项 A) 和选项 B) 都不正确；控件数组是由一组相同类型的控件组成，这些控件用一个相同的控件名称，具有相同的属性设置，因此选项 C) 错误，选项D) 正确。18.在表达式 2+3*45-Sin(x+1)/2 中，首先进行的运算是 _ 。（分数：2.00）A.45B.3*4C.x+1 D.Sin()解析：解析 本题考查表达式的优
35、先级。题目中表达式的优先级最高的是函数调用，先进行函数运算，接下来由高到低依次为算术运算符、字符运算符、关系运算符、逻辑运算符。算术运算符的优先级从高创低为：()-，*/，+-，因此首先进行的运算是(x+1)。19.标签控件能够显示文本信息，文本内容只能用什么属性来设置?（分数：1.00）A.AlignmentB.Caption C.VisibleD.BorderStyle解析：解析：标签(Label)主要用来显示一小段不需要用户修改的文本，被显示文本内容只能由 Caption属性来定义和修改，因此选项 B)是正确的；选项 A)确定标签标题的放置方式；选项 C)决定程序运行后，控件是否在屏幕上
36、显示出来；Borderstyle 属性返回或设置对象的边框样式。20.鼠标拖放控件要触发两个事件，这两个事件是_。（分数：1.00）A.DragOver 事件和 DragDrop 事件 B.Drag 事件和 DragDrop 事件C.MouseDown 事件和 KeyDown 事件D.MouseUp 事件和 KeyUp 事件解析：解析 当鼠标拖动控件到目标对象上，不松开鼠标时，触发目标对象的 DragOver 事件；松开鼠标时，就会触发目标对象的 DragDrop 事件。故选 A。21.命令按钮不能响应的事件是（分数：1.00）A.DblClick B.ClickC.MouseDownD.Mo
37、useUp解析：解析 命令按扭的常用事件有： Click 事件：当用户用鼠标单击一个对象时，所触发的事件称之为 Click 事件。Mouse Down 事件：鼠标位于按扭上并按下鼠标按扭时，所触发的事件称为 Mouse Down 事件。 Mouse Up 事件：释放鼠标时，所触发的事件称为 Mouse Up 事件。特别要注意的是：命令按扭不支持DblClick 事件。22.下列程序执行后，变量 S 的值为_ 。 Dim s As Long，X As Integer s=0 X=1 Do While x10 s= s+ x x=x+2 Loop Print s（分数：2.00）A.10B.25
38、C.50D.100解析：23.将 E-R 图转换为关系模式时，实体和联系都可以表示为_。（分数：2.00）A.属性B键C.关系 D域解析：解析 数据库的逻辑设计 评析 将 E-R 图转换为关系模式时。实体和联系都可以表示成关系，E-R 图中属性也可以转换成关系的属性。实体集也可以转换成关系。24.在关系数据库中，用来表示实体间联系的是_。（分数：1.00）A.属性B.二维表 C.网状结构D.树状结构解析：解析 关系模型实体间的联系采用二维表来表示，简称表。选项 C 为网状模型实体间的联系，选项 D 为层次模型实体间的联系，选项 A 属性刻画了实体25.数据流程图(DFD 图)是（分数：2.00
39、）A.软件概要设计的工具B.软件详细设计的工具C.结构化方法的需求分析工具 D.面向对象方法的需求分析工具解析：解析 数据流图是结构化分析方法中使用的工具，它以图形的方式描绘数据在系统中流动和处理的过程。软件结构图是软件概要设计的工具，而详细设计是对概要设计的每个模块进行细化，UML 是面向对象的需求分析的工具。二、填空题(总题数：14，分数：23.00)26.阅读程序： Private Sub Form_Click() msg 1$“继续吗?“ msg 2$=“操作对话框“ rMsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$) End Sub 程序
40、运行后，单击窗体，将产生一个信息框。此时如果直接按 Enter 键，则相当于用鼠标单击信息框中的 _ 1_ 按钮。 （分数：1.00）解析：“否”(or 第二个)解析 本题主要考查对 MsgBox 函数的理解。参数 vbYesNo Or vbDefaultButton2 表示消息对话框中显示“是”和“否”按扭，且第二个按扭(即“否”按扭)为默认按扭。如果直接按 Enter 键，则相当于确定默认按扭，即相当于用鼠标单击信息框中的“否”按扭。27.表达式(7/3+1)*(18/-1)的值是 1。 （分数：2.00）解析：-54 解析 小括号的优先级最高，整除/的优先级高于加，减运算的优先级。 表达
41、式(7/3+1)*(18/-1)运算过程如下： 先计算小括号内的整除/运算： (7/3+1)*(18/-1)=(2+1)*(-18)； 再计算小括号，(7/3+1)*(18/-1)=(2+1)*(-18)=3*-18； 最后计算乘法运算：(7/3+1)*(18/-1)=(2+1)*(-18)=3*-18=-54。28.在窗体上有一个名为 Image1 的图像框，现在要把“D：”盘根目录下的图片文件“Foxbmp”在其中显示出来，使用的语句是 1。 （分数：1.00）解析：ImagelPicture=LoadPicture(“D:/FoxBmp“)解析 给图像框的 Picture 属性装载一幅图
42、片，可使用 LoadPicture 函数。29.在菜单编辑器中，菜单-项前面的 4 个小点的含义是 _ 1_ 符号。 （分数：1.00）解析：内缩 解析 在菜单编辑器中，菜单项前面 4 个小点的含义是内缩符号。表明菜单项的层次。一个内缩符号(4个小点)表示一层，两个内缩符号(8 个点)表示两层最多为 20 个点，即 5 个内缩符号，它后面的菜单项为第六层。如果一个菜单项前面没有内缩符号，则该菜单为菜单名，即菜单的第一层。30.对数据元素之间的逻辑关系的描述是 1。 （分数：2.00）解析：数据的逻辑结构解析 数据的逻辑结构是对数据元素之间的逻辑关系的描述，它可以用一个数据元素的集合和定义在此集
43、台中的若干关系来表示。31.下列程序为比较排序法排序程序，请补充完该程序(该程序对 10 个数值数据进行排序处理)。 Dim a(1 To 10)AS Integer Private Sub Form _Click() Randomize p=“” For i = 1 To 10 Do x = Int (Rnd * 90) + 10 yes = 0 For j = 1 To _ 1_ If x = a(j) Then yes = 1: Exit For Next Loop While yes = 1 a(i) = x Next i For i = 1 To 9 For _ 2_ To 10 I
44、f a(i) a(j) Then t = a(i) _ 3_ a(j) = t End If Next j Next i p = Str(a(1) For i = 2 To 10 p = p & “,” & Str(a(i) Print p Next i End Sub （分数：2.00）解析：i-1 j=1 a(i)=a(j)32.DBMS 的数据控制功能包括完整性控制、并发控制、安全性控制和 _ 1_ 。 （分数：2.00）解析：故障恢复33.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1。程序运行后，如果单击某个
45、单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。 （分数：2.00）解析：Index Font 或 FontName 或 Font.Name 解析 本题考查对控件数组下标的理解。用于控件数组拥有相同的名称，所以必须用下标来访问控件数组中的不同元素。这个属性用 Index 来表示。本题建立了单选按钮的控件数组，要求选择不同的单选按钮，则文本框中的字体将根据所选的单选按钮切换，所以在 Select 分支控制语句的 Case 后填：Index，表示不同的控件。第二处应把字体值赋给 Text1 的 FontName 属性，该属性确定文本框中文字的显示格式。Name 属性为 Fo
46、nt 属性的子属性，故答案中的写法是等价写法。34.在窗体上加上一个文本控件 PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文 件名。请填空。 Private Sub Command1_Click() CommonDialog1Filter= _ 1_ CommonDialog1ShowOpen PCSTextBoxText= _ 2_ End Sub （分数：1.00）解析：“Text Files(*txt)|*txt“ CommonDialog1FileName 解析：要设置通用对话框只用于打
47、开文本文件，需要设置通用对话框的 Filter 属性值，在这里我们应该填写的是“Text Files(*txt)| *txt“；在使用了对话框控件的 ShowOpen 后出现的打开文件对话框中的文件类型只有 Text Files(*txt)|*.txt，选择了需要打开的文本文件后，应该让文件的文件名显示在文本框中，因此需要将通用对话框中选择的文件赋给文本控件，即将对话框的 FileName 属性值赋给文本框的 Text 属性。35.数据库三级模式体系结构的划分，有利于保持数据库的 _ 1_ 。 （分数：1.00）解析：数据独立性解析 数据库的三级模式体系结构将数据的组织管理工作进行了划分，将数
48、据的具体组织留给 DBMS 管理，使用户能逻辑地、抽象地处理数据，而不必关心数据在计算机中的具体表示方式与存储方式，保证了数据的独立性。36.下列表式有错误，正确的写法应该是 _ 1_ 。 (a+B) +c/80-5(d+e) （分数：1.00）解析：(a+b+c)/80-5/(d+e) 解析 在 Visual Basic 中： “+”不是合法的运算符。 括号不区分大、中、小括号，一律用小括号嵌套。 除号有两个：“/”，表示一般意义的除；“/”表示整除。37.下列程序段的执行结果为 _ 1_ 。 Dim A (10,10) For i = 2 To 4 For j =4 To 5 A(i,j) =i*j Next Next Print A (2,5) +A(3,4) +A(4,5) （分数：1.00）解析：42解析 该题定义了一个 2 组数组，用 A(i，j)：i*j 给数组赋值，则 A(2，5)+A(3，4)+A(4，5)=25+34+45=10+12+20=42。38.设有下列程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 1 Private Sub Command1Click() Dim arrl Dim Min As Integ
