【计算机类职业资格】二级VISUAL+BASIC笔试-20及答案解析.doc

《【计算机类职业资格】二级VISUAL+BASIC笔试-20及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-20及答案解析.doc（24页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC 笔试-20 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.对线性表进行二分法查找，其前提条件是 _ 。（分数：2.00）A.线性表以顺序方式存储，并已按关键码值排好序B.线性表以顺序方式存储，并已按关键码值的查找频率排好序C.线性表以链接方式存储，并已按关键码值排好序D.线性表以链接方式存储，并已按关键码值的查找频率排好序2.数据库三级模式体系结构的划分，有利于保持数据库的 _ 。（分数：2.00）A.数据独立性B.数据安全性C.结构规范化D.操作可行性3.以下程序的输出结果是 _。Dim n(2,2),

2、i, j As IntegerFor i = 0 To 2For j = 0 To 2n(i,j) = i + jNext jNext iFor i = 0 To 1For j = 0 To 1n(i+ 1 ,j + 1) = n(i + 1,j + 1) + n(i, j)Next jNext iPrint n(i, j)（分数：2.00）A.14B.0C.6D.值不确定4.设在菜单编辑器中定义了一个菜单项，名为 menul。为了在运行时隐藏该菜单项，应使用的语句是 _ 。（分数：2.00）A.menul. Enabled=TrueB.menul.EnabledFalseC.menul.Vi

3、sible=TrueD.menul.VisibleFalse5.假设在窗体 Form1 上加一个通用对话框控件 CommonDialog1，用语句 CommonDialog1.ShowOpen 建立打开文件对话框，那么从该对话框中单击“确定”按钮退出对话框时，为了得到用户所选择的文件的路径以及文件名，应该使用 CommonDialog1 的属性是 _ 。（分数：2.00）A.DefaultEXTB.DialogTitleC.FileNameD.FileTitle6.队列适用于下列哪一种应用? _（分数：2.00）A.表达式求值B.堆排序算法的实现C.树的层次次序周游算法的实现D.二叉树对称序周

4、游算法的实现7.在设计应用程序时，通过 _ 窗口可以查看到应用程序工程中的所有组成部分。（分数：2.00）A.属性窗口B.工程资源管理器窗口C.代码窗口D.窗体设计窗口8.菜单编辑器窗口的编辑区中共有 7 个按钮，其中向右的箭头表示 _ 。（分数：2.00）A.产生内缩符号B.取消内缩符号C.向前移动菜单项D.向后移动菜单项9.在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()0pen “d：/vb/test.txt “For Input As #1Print LOF(1)Close #1End Sub假设文件 d:/vb/test.txt 的内

5、容为 I am a student，那么程序运行后，单击命令按钮，其输出结果为_.（分数：2.00）A.13B.14C.15D.1610.执行下面的程序，输出的结果是 _ 。Private Sub Command1_Click()ch $ = “Welcome to China!“n = Len(ch $ )For i =1 To n-1s$ =Mid(ch$ ,i,1)If s$ =“o“ Then m=m + 1Next iPrint mEnd Sub（分数：2.00）A.1B.2C.8D.011.有一排好序的线性表，长度大于 2，对给定的 k 值，分别用顺序查找和二分查找查找一个与 k

6、值相等的元素，比较的次数分别为 x 和 y。在查找不成功的情况下，正确的 x 和 y 的关系是 _。（分数：2.00）A.xyB.总是 xyC.xyD.与 k 值的大小有关12.下面关于文本框的说法中，错误的说法是 _。（分数：2.00）A.Text1.Caption=“Hello“，是将在文本框 Text1 中显示 HelloB.Text1.LockedTrue，设置该文本框 Text1 不能编辑C.Text1.PasswordChar“#“，设置文本框 Text1 输入的字符都显示为#，但实际接收的还是输入的内容D.Text1.Visible=False，设置该文本框 Text1 不可见1

7、3.在面向对象的程序设计中，下列叙述错误的是 _ 。（分数：2.00）A.任何一个对象构成一个独立的模块B.一个对象不是独立存在的实体，各个对象之间有关联，相互依赖C.下一层次的对象可以继承上一层次对象的某些属性D.上述三种说法都正确14.以下程序运行时，输出的结果是a $ = “China“b $ =Right$ (a$ ,3) : c$ =Strings (3,b$)Print c $（分数：2.00）A.ChiB.aaaC.iiiD.ina15.设 x 和 y 均为整形变量，则执行程序中的循环后，y 的值为x=1y=1Do While y = 50If x=10 ThenExit DoE

8、nd IfIf (x Mod 2) = 1 Thenx=x+5End IfIf x Mod 2 1 Thenx=x-3End Ify=y+1Loop（分数：2.00）A.2B.4C.6D.816.一般在数据流程图中，圆圈用来表示 _ 。（分数：2.00）A.外部实体B.变换/加功C.数据存储D.数据流17.下面的 4 个数组中，语句语法正确的是 _ 。（分数：2.00）A.Dim a10B.Def fn(10)C.Dim a(10)D.Dimension a(10)18.有如下程序，运行输出的结果是 _ 。s=0Dos=(s+1)*(s+2)n=n+1Loop Until s=30Print

9、n; s（分数：2.00）A.0 1B.30 30C.4 30D.3 18219.编写如下事件过程，当程序运行后，为了在窗体上输出 BBBB，应执行的操作为 _ 。Private Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)If Shift = 6 And Button = 2 ThenPrint “BBBB“EndIfEnd Sub（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Shift 键和鼠标右键C.同时按下 Ctrl、Alt 键和鼠标左键D.同时按下

10、 Ctrl, Alt 键和鼠标右键20.下列关于菜单的叙述中，错误的一条是 _ 。（分数：2.00）A.菜单项的索引号可以不连续B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件C.菜单项的索引号必须从 1 开始D.除了 Click 事件之外，菜单项不可以响应其他事件21.当运行程序时，系统会自动执行启动窗体的某个事件过程，该事件过程是 _ 。（分数：2.00）A.UnloadB.LoadC.GotFocusD.Click22.以下对 Visual Basic 的 Sub 过程的有关描述中，正确的是 _ 。（分数：2.00）A.调用于过程时，只能把实参的值传送给形参，形参的值不能传送给

11、实参B.子过程既可以嵌套定义，又可以递归调用C.子过程没有返回值D.具有调用关系的所有过程必须放在同一个模块中23.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1. Flags=cdlOFNHideReadOntyCommonDialog1.Filter=“All Files(*)| *.*|Text Files“ s（分数：2.00）A.0 1B.30 30C.4 30D.3 182 解析：解析 此循环的功能是不断根据表达式修改变量 s 的值，直到其值大

12、于等于 30 才退出循环。变量n 用于记录循环的次数。第一次循环时，s1*22；第二次循环时，s3*412；第三次循环时，s=13*14182，随即退出循环，因此共循环了 3 次，即 n3。19.编写如下事件过程，当程序运行后，为了在窗体上输出 BBBB，应执行的操作为 _ 。Private Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)If Shift = 6 And Button = 2 ThenPrint “BBBB“EndIfEnd Sub（分数：2.00）A.同时按下 Sh

13、ift 键和鼠标左键B.同时按下 Shift 键和鼠标右键C.同时按下 Ctrl、Alt 键和鼠标左键D.同时按下 Ctrl, Alt 键和鼠标右键 解析：解析 分析程序可以发现：要在窗体上输出 BBBB，必须满足两个条件，即参数 Shift6 同时参数 Button 2，关于这两个参数，Shift 表示 Shift、Ctrl 和 Alt 的状态，Button 指示被按下的鼠标键。Shift 的值 6 表示成二进制数得到低三位数 110，其中最低位对应 Shift 键，因为最低位为。所以不需要按下 Shift 键，而倒数第 2 位(值为 1)对应 Ctrl 键(该键应该呈按下状态)，接下来从最

14、低位开始的倒数第 3 位(值为 1)对应 Alt 键(该键应该呈按下状态)，因此可以排除答案 A 和 B，接下来 Button 的值 2 表示成二进制数得到最低三位为 010，该三位分别对应鼠标的中间键、右键及左键的状态，因此此时应该是按下鼠标右键，所以可以得到正确答案是选项 D。20.下列关于菜单的叙述中，错误的一条是 _ 。（分数：2.00）A.菜单项的索引号可以不连续B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件C.菜单项的索引号必须从 1 开始 D.除了 Click 事件之外，菜单项不可以响应其他事件解析：解析 当使用菜单编辑器来创建菜单控件数组时，菜单项的索引号可指定一个

15、数字值来确定控件在控件数组中的位置。菜单项的索引号的开始值可以是任意的。21.当运行程序时，系统会自动执行启动窗体的某个事件过程，该事件过程是 _ 。（分数：2.00）A.UnloadB.Load C.GotFocusD.Click解析：解析 Load 事件是在一个窗体被装载时发生的。当运行程序时，系统首先装入某个窗体，同时也自动执行了 Load 事件。而 Unload 事件则是在一个窗体被卸载时发生的；GotFocus 事件是当窗体获得焦点时产生的；Click 事件是当用鼠标单击窗体时触发的事件。22.以下对 Visual Basic 的 Sub 过程的有关描述中，正确的是 _ 。（分数：2

16、.00）A.调用于过程时，只能把实参的值传送给形参，形参的值不能传送给实参B.子过程既可以嵌套定义，又可以递归调用C.子过程没有返回值 D.具有调用关系的所有过程必须放在同一个模块中解析：解析 过程调用时，如果没有用 ByVal 指定参数按传值过程传递，一般是传地址方式，实参的值传送给形参，形参的值如果发生改变，同样会传递给实参，使实参的值也发生变化，故选项 A 错误。而子过程不能嵌套定义，即在一个子过程中定义另一个子过程，选项 B 错误。具有调用关系的所有过程不一定必须放在同一个模块中，比如公用过程就可以被其他模块所调用，故选项 D 错误。子过程不需要返回值，所以选项 C 正确。23.在窗体

17、上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1. Flags=cdlOFNHideReadOntyCommonDialog1.Filter=“All Files(*)| *.*|Text Files“&_“(*.txt)| *.txt|Batch Files (*.bat)|*.bat“CommonDialogl.FilterIndex=2CommonDialog1. ShowOpenMsgBox CommonDialogl.FileNameEnd Sub程序运

18、行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 _ 。（分数：2.00）A.All Files(*.*)B.Text Files(*.txt) C.Batch Files(*.bat)D.不确定解析：解析 通用对话框控件的 CommonDialogl 的：Filter 属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择Filter 的属性值由一对或多对文本字符串组成，每对字符串用管道符“尸隔开，在“尸前面的部分称为描述符，后面的部分一般为通配符和文件扩展名，称为“过滤器”，如“txt”等，各对字符串之

19、间也用管道符隔开。其格式如下：窗体.对话框名Filter=描述符 1|过滤器 1|描述符 2|过滤器 2如果省略窗体，则为当前窗体。例如：CommonDialogl.Filter=Word Files|(*.DOC)执行该语句后，在文件列表栏内将只显示扩展名为.DOC 的文件。再如：CommonDialogl.Filter=All Files|(*.*)|Word Files|(*.DOC)|Text Files|(*.TXT)执行该语句后，可以在“文件类型”栏内通过下拉列表选择要显示的文件类型，而最初默认显示的文件类型 (过滤器)可以由 FiherIndex 属性来指定，该属性值为一整数。用

20、 Filte，属性设置多个过滤器后，每个过滤器都有一个值，例如，第一个过滤器的值为 1，第二个过滤器的值为 2。用 FilterIndex 属性可以指定作为默认显示的过滤器。24.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 _ 。（分数：2.00）A.如果工程中含有 SubMain 过程，则程序一定首先执行该过程 B.不能把标准模块设置为启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体解析：解析 如果过程中含有 Sub Main 过程，必须在工程属性中设置为“启动对象”后才可以首先执行该过程；启动对象为 Form 或者

21、Sub Main，不能是标准模块，Hide 只是将载入内存中的窗体隐藏起来，Unload 方法才能真正从内存中清除该窗体；任何时候只有一个窗体是活动窗体。25.对于建立良好的程序设计风格，下面描述正确的是 _。（分数：2.00）A.程序应简单、清晰、可读性好 B.符号名的命名只要符合语法即可C.充分考虑程序的执行效率D.程序的注释可有可无解析：解析 选项 B 错误：符号名的命名除了要符合语法之外，还应具有一定的实际含义，以便理解程序功能；选项 C 错误：程序设计风格强调清晰第一，效率第二；选项 D 错误：程序注释能帮助读者理解程序，是提高程序可读性的重要手段。所以选项 A 正确。26.表达式

22、Sgn(-2)-3.5 的值是 _ 。（分数：2.00）A.-1.5B.-2.5C.-3.5D.-4.5 解析：解析 函数 Sgn 的功能是、当其中参数的值大于 0 时，返回 1；当其中参数的值小于 0 时，返回-1 当其中参数的值等于 0 时，返回 0。因此该表达式的值为-4.5。27.阅读下面的程序段，执行上面的三重循环后，a 的值为 _ 。For i=1 To 3For j=1 To iFor k=j To 4a=a+1Next kNext jNext i（分数：2.00）A.9B.24C.14D.20 解析：解析 a 的默认值为 0。每进行一次最内层的循环，a 的值要加 1，因此要得出

23、 a 的值，主要要分析总的循环次数。第一层循环要执行 3 次：第一次循环 i=1 时，第二层循环执行 1 次，其中第三层循环执行 4 次，共循环 4 次。第二次循环 i=2 时，第二层循环执行 2 次：其中第一次执行中，第三层循环执行 4 次；第二次扭行中，第三层循环执行 3 次；共循环 7 次。第三次循环 i3 时，第二层循环执行 3 次：第一次执行中，第三层循环执行 4 次；第二次执行中，第三层循环执行 3 次；第三次执行中，第三层循环执行 2 次；共循环 9 次。因此，一共执行 4+(4+3)+(4+3+2)20 次循环，a 的值等于 20。28.有如下程序，运行时输出的结果是 _。Op

24、tion Base 1Private Sub Command1_Click()Dim a(3,3) As IntegerFor m=1 To 3For n=1 To 3a(m-1，n-1)=m+n+1Next nNext mFor m=0 To 2For n=0 To 2Print a(n,m)；Next nPrintNext mEnd Sub（分数：2.00）_解析：解析 第一组双重循环语句对二维数组的 9 个元素赋值，注意数组下标的默认起点值为 0，实际根据行列下标与其值的关系 a(m-1，n-1)=m+n+1，元素值等于其行列下标号加 3，因此，9 个元素的值分别是3，4，5 4，5，6

25、5，6，729.在数据管理技术发展过程中，文件系统与数据库系统的本质区别是：数据库系统具有 _ 。（分数：2.00）A.数据结构化 B.数据无冗余C.数据共享D.数据独立性解析：解析 文件系统中记录有结构，但整体没有结构。数据库实现整体数据的结构化。数据的结构化是文件系统与数据库系统的本质区别。30.在结构化设计方法中生成的结构图(SC) 中，带有箭头的连线表示 _ 。（分数：2.00）A.模块之间的调用关系 B.程序的组成成份C.控制程序的执行顺序D.数据的流向解析：解析 结构图中用带有箭头的连线表示模块之间的调用关系。31.在窗体上画一个命令按钮 Command1 和两个文本框，名称分别为

26、 Text 1 和 Text 2 Text 2。编写如下两个事件过程：Dim str As String, strl As StringPrivate Sub form_load()Text1. Text = “ “Text2. Text = “ “Text1. Enabled = FalseText2. Enabled = FalseEnd SubPrivate Sub Form KeyPress(KeyAscii As Integer)str= str&Chr(KeyAscii)End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shif

27、t As Integer)str1 = strl&Chr(KeyCode)End SubPrivate Sub Command1_Click()Text1. Text =strText2. Text = str1str= “ “str1= “ “End Sub当在设计阶段把窗体 KeyPreview 属性设置为 True 时，程序运行过程中，在键盘上输入小写字母 abc，然后单击命令按钮，则文本框 Text1 中显示的内容为 _ 。（分数：2.00）A.abc B.不显示任何信息C.ABCD.出错解析：解析 在 Command1 的 Click 事件中将字符串变量 str 赋给 Text1，s

28、tr 变量是在 KeyPress 事件中被赋值的，语句 strstr&Chr(KeyAscii)将输入的字符存储并连接起来，在此处是通过参数 KeyAscii 来得到输入字符的(因此要区分字母的大小写)，又因为在 Form 的 Load 事件中将 Text1 和 Text2 的 Enabled属性设置成了 False，所以当前拥有输入焦点的对象是窗体，为了使窗体能接收键盘事件，已经将窗体的KeyPreview 属性设置为了 True，所以在输入小写字母 abc 后，单击 Command1，触发其 Click 事件，使得Text1 文本控件的值等于 str 字符中的值，即 abc。32.下面关于

29、 InputBox 函数的说法中，不正确的是 _ 。（分数：2.00）A.InputBox 函数的第一个参数是 Prompt，表示在对话框中显示的信息，主要用来提示用户输入B.InputBox 函数的第二个参数是 Title，表示对话框的标题，显示在对话框窗口顶部的标题栏区C.InputBox 函数必须有 Prompt 参数D.InputBox 函数必须有 Title 参数 解析：解析 InputBox 函数的格式如下。InputBox(prompt，title，default，xpos，ypos，helpfile，context)InputBox 函数的功能是显示一个对话框，用于接收用户输入

30、的数据。InputBox 函数中的各参数及其作用如下表所示。其中的 Title、Default 等参数可以省略。参数 含 义Prompt 提示用户输入的字符串，在对话框内显示，不超过1024 个字符Title 对话框的标题，显示在对话框的顶部Default 显示在输入区的默认值，如果用户没有输入，以此值作为输入值Xpos,ypos 确定对话框位置，分别表示对话框到屏幕左边界和右边界的距离，必须成对出现Helpfile 字符串表达式，用于指明帮助文件的名字Context 数值表达式，表示相关的帮助主题或目录号33.多重窗体程序设计中，将窗体装入内存进行操作而不显示出来的语句为 _ 。（分数：2.

31、00）A.Form1.showB.Form1.closeC.Load Form1 D.Close Form1解析：解析 load 语句和 show 方法都可以实现将窗体装入内存的操作，但是 load 语句只实现将窗体装入内存而不会使窗体显示出来，为了将窗体装入内存并显示出来就要使用 show 方法；而选项 D 中的close 语句，它不适用于窗体对象。34.有如下程序；Private SubForm_Click()Dim check As Boolean，n As Integercheck=Falsen=0DoDo While n10n=n+1If n=5 Thencheck=TrueExit

32、 DoEnd ifPrint n；LoopLoop Until check = TrueEnd Sub程序运行后，输出的结果是 _ 。（分数：2.00）A.1 2 3B.1 2 3 4 C.1 2 3 4 5D.1 2 3 4 5 6解析：解析 本题给出的程序由两层循环组成，外层循环使用的语句是 DoUntil，内层循环使用的语句是 Do While。Print 语句在内层循环的 End if 语句的下面，内层循环共循环了 4 次，Print 语句输出的值分别为 1、2、 3、4；当内层循环到第 5 次时，将标志值 check 设置为 True，并用 Exit Do 语句强制退出内层循环。外层

33、循环则在检测到标志值 check 为 True 时，立即退出循环，而不会打印输出 5。35.软件测试过程是软件开发过程的逆过程，其最基础性的测试应是 _ 。（分数：2.00）A.集成测试B.单元测试 C.有效性测试D.系统测试解析：解析 本题的考查点是软件测试的组成。单元是程序中：最小和有意义的部分，单元测试是通过测试发现该模块单元的子程序或过程的实际功能与该模块的功能和接口的描述是否相符，以及是否有编码错误存在，所以它是最基础性的测试。二、填空题(总题数：10，分数：30.00)36.在一个容量为 25 的循环队列中，若头指针 front=16，尾指针 rear=9，则该循环队列中共有 【1

34、】 个元素。（分数：2.00）填空项 1:_ （正确答案：18）解析：解析 设循环队列的容量为 n。若 rearfront，则循环队列中的元素个数为 rear-front；若rearfront，则循环队列中的元素个数为 n+(rear-front)。题中，front16，rear9，即rearfront，所以，循环队列中的元素个数为 m+(rear-front)=25+(9-16)=1837.在长度为 n 的线性表中查找一个表中不存在的元素，需要的比较次数为 【2】 。（分数：2.00）填空项 1:_ （正确答案：n）解析：解析 在长度为 n 的线性表中查找一个表中不存在的元素，需要的比较次数

35、为 n。38.白盒测试方法重视 【3】 的度量。（分数：2.00）填空项 1:_ （正确答案：测试覆盖率）解析：解析 白盒测试又称为结构测试，它是根据被测程序的逻辑结构设计测试用例的。白盒测试作为对结构的测试，必然要求对被测程序的各种结构特性进行测试。我们把这种情况称为覆盖，故白盒测试又称为“基于覆盖的测试”，白盒测试方法重视测试覆盖率的度量。白盒测试力求提高覆盖率，从而找出被测程序的错误。39.在面向对象方法中，允许作用于某个对象上的操作称为 【4】 。（分数：2.00）填空项 1:_ （正确答案：4方法）解析：解析 在面向对象方法中，方法是指允许作用于某个对象上的各种操作。40.数据模型是

36、数据库系统中用于提供信息表示和操作手段的结构形式。实际数据库系统中斯支持的数据模型主要有层次模型、网状模型和 【5】 3 种。（分数：2.00）填空项 1:_ （正确答案：关系模型）解析：解析 数据模型是数据库系统中用于提供信息表示和操作手段的结构形式。数据模型指的是数据库的组织形式，它决定了数据库中数据之间联系的表达方式。在数据库中正是用数据模型来对现实世界进行抽象并表示成为能被计算机存取的数据，在数据库系统设计时，首先要确定系统支持的数据模型的类型，从而根据实际情况建立适合某种数据模型的数据库。数据库管理系统所支持的 3 种主要传统数据模型是：层次模型、网状模型和关系模型。其中层次模型和网

37、状模型又统称为格式化模型(或非关系模型)，早期的数据库系统都是按照格式化模型建立的。41.如果在菜单标题的某个字母前面输入一个字符“ 【6】 ”，就会使该字母成为热键字母；如果建立菜单时，在标题文本框中输入一个字符“ 【7】 ”，那么菜单显示时就会形成一行分隔符。（分数：4.00）填空项 1:_ （正确答案：6& 7一）解析：解析 在菜单标题的某个字母前面输入一个字符“&”，就会使该字母成为热键字母，在建立菜单时，在标题文本框中输入一个折线字符“一”(也可以输入一段所需长度的下划线“_”)，那么菜单显示时就会形成一行分隔符。42.如果要在文本框中显示垂直滚动条，则必须把 【8】 属性设置为 2

38、，同时还应把 Multiline 属性设置为 True。（分数：2.00）填空项 1:_ （正确答案：Scrollbars）解析：解析 滚动条分为水平滚动条(Hscroll)和垂直滚动条(Vscroll)。滚动条是 Visual Basic 的标准控件，可以直接通过工具箱中的水平滚动条和垂直滚动条工具来建立。要得到垂直滚动条，把Scrollbars 属性设置为 2，并且应当设置为多行显示状态。43.有如下过程，将两次调用过程 proc 的结果分别填于空 【9】 和 【10】 处。Private Sub Command1_Click( )Dim a As IntegerDim b As Inte

39、gera=2b=5Call proc(a, b) 【9】 Call proc(a) 【10】 End SubPrivate Sub proc(x As Integer,Optional y)Dim z As IntegerIf IsMissing(y) ThenMsgBox (“没有提供可选参数“)Elsez=x*yMsgBox (“乘积=“ + Str(z)End IfEnd Sub（分数：4.00）填空项 1:_ （正确答案：9乘积：10 10没有提供可选参数）解析：解析 本题中出现了可选参数，注意函数 IsMissing()的使用。空9处的调用语句的结果是显示“乘积 10”空10处调用的

40、结果是显示“没有提供可选参数”。显然，第二次调用中，由于第二个可选参数默认，使 IsMissing()函数的值为 True，才使程序流程进入 Then 子句的分支。在没有指定可选参数的默认值时，可选参数的默认值被默认为变体类型的 Empty 值。当然，用户也可以提供可选参数的默认值，指定方式是在用 Optional 声明的形式参数后面用“”号赋默认值。指定默认值后，即使没有提供可选参数，函数 IsMissing()的值均为 False，因为程序把指定的默认值默认为可选参数的值，因而没有丢失。将上例稍加修改，在可选参数 y 后为其指定默认值 1。Private Sub proc(x As Int

41、eger，Optional y1)空10处调用的结果变为显示“乘积=2”。显然，第二次调用中，虽然第二个可选参数默认，但将默认值1 作为形式参数 y 的初值。从 If 语句分支的进入情况可以看出，该次调用中 IsMissing()函数的值为False，才使程序流程进入 Else 子句的分支。44.在窗体上加上一个富文本控件 Rich TextBox，画一个命令按钮，当单击命令按钮的时候，将显示“打开文件”对话框，设置该对话框只用于找开文本文件，然后在富文本控件中显示打开的文件内容。Private Sub Command1_Click ( )CommonDialog1. Filter = 【11

42、】 CommonDialog1. ShowOpenRichTextBox1. FileName = 【12】 End Sub（分数：4.00）填空项 1:_ （正确答案：11“Text Files(*.txt)|*.txt“ 12CommonDialogl.FileName）解析：解析 要设置通用对话框只用于打开文本文件，需要设置通用对话框控件的 Filter 属性值，在这里应该是“Text Files(*，txt)|*.txt“，在使用了对话框控件的 ShowOpen 后，出现的打开文件对话框中的文件类型只有 Text Files(*.txt)，选择了需要打开的文本文件后，应该让文件的内容显

43、示在富文本框中，因此需要将通用(打开文件)对话框中选择的文件(包括文件路径和文件名，即 FileName 的值)赋给富文本控件。45.在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name 属性值为 mnuMenu),然后为其设计一个子菜单项“增加菜单”(Name 属性值为 mnuAdd) 另外设置一个标题为空的菜单项(控件数组)，其 Name 属性值为 mnuDyn,Index 值为 0，Visible 属性值为 False；然后编写以下程序来实现增加菜单项的功能。Dim IndexId As IntegerPrivate Sub mnuAdd_Click( )Dim mnuCapti

44、on As StringmnuCaption = InputBox(“请输入菜单项的标题“)IndexId = 【13】 【14】 mnuDyn(IndexId) mnuDyn(IndexId) . Caption = mnucaptionmnuDyn(IndexId) . 【15】 = TrueEnd Sub（分数：6.00）填空项 1:_ （正确答案：13Indexld+1 14Load 15Visible）解析：解析 单击 mnuAdd 菜单项后，首先弹出输入对话框，要求输入新增加的菜单项的标题，接下来是给变量 Indexld 赋值，菜单控件数组 mnuDyn 最初其数组下标 Index 为 0，每增加一个菜单项，则该控件数组的下标应该加 1，以指向下一个数组中的下一个控件(菜单)。在解决了下标问题之后，就可将菜单项装载进内存(用于装载控件的语句是 Load)，然后将输入的新菜单项的标题赋给该菜单项，最后使得该菜单项可见，即将其 Visible 属性设置为 True。