【计算机类职业资格】国家二级VB机试（选择题）-试卷39及答案解析.doc

1、国家二级 VB 机试（选择题）-试卷 39 及答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列叙述中正确的是（分数：2.00）A.一个算法的空间复杂度大，则其时间复杂度也必定大B.一个算法的空间复杂度大，则其时间复杂度必定小C.一个算法的时间复杂度大，则其空间复杂度必定小D.算法的时间复杂度与空间复杂度没有直接关系2.下列叙述中正确的是（分数：2.00）A.循环队列中的元素个数随队头指针与队尾指针的变化而动态变化B.循环队列中的元素个数随队头指针的变化而动态变化C.循环队列中的元素个数随队尾指针的变化而动态变化D.以上说法都不对3.一棵二叉

2、树中共有 80 个叶子结点与 70 个度为 1 的结点，则该二叉树中的总结点数为（分数：2.00）A.219B.229C.230D.2314.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为（分数：2.00）A.9B.10C.45D.905.构成计算机软件的是（分数：2.00）A.源代码B.程序和数据C.程序和文档D.程序、数据及相关文档6.软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是（分数：2.00）A.测试B.设计C.可行性研究D.实现7.下面不能作为结构化方法软件需求分析工具的是（分数：2.00）A.系统结构图B.数据字典(DD)C.数据流程

3、图(DFD 图)D.判定表8.在关系模型中，每一个二维表称为一个（分数：2.00）A.关系B.属性C.元组D.主码（键）9.若实体 A 和 B 是一对多的联系，实体 B 和 C 是一对一的联系，则实体 A 和 C 的联系是（分数：2.00）A.一对一B.一对多C.多对一D.多对多10. （分数：2.00）A.选择B.投影C.交D.并11.以下合法的 VB 变量名是( )。（分数：2.00）A._xB.2yC.a#bD.x_1_x12.以下关于 VB 特点的叙述中，错误的是( )。（分数：2.00）A.VB 中一个对象可有多个事件过程B.VB 应用程序能以编译方式运行C.VB 应用程序从 For

4、m_Load 事件过程开始执行D.在 VB 应用程序中往往通过引发某个事件导致对对象的操作13.Print Format(1234.56， “#.#“)语句的输出结果是( )。（分数：2.00）A.123.4B.1234.6C.1234.5D.1234.5614.Print Right(“VB Programming“， 2)语句的输出结果是( )。（分数：2.00）A.VBB.ProgrammingC.ngD.215.假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是( )。（分数：2.00）A.单击窗体上没有控件的地方B.单击任意一个控件C.双

5、击任意一个控件D.单击属性窗口的标题栏16.下列操作中不能向工程添加窗体的是( )。（分数：2.00）A.执行“工程“菜单中的“添加窗体“命令B.单击工具栏上的“添加窗体“按钮C.右击窗体，在弹出的菜单中选择“添加窗体“命令D.右击工程资源管理器，在弹出的菜单中选择“添加“命令，然后在下一级菜单中选择“添加窗体“命令17.下列关于顺序文件的描述中，正确的是( )。（分数：2.00）A.文件的组织与数据写入的顺序无关B.主要的优点是占空间少，且容易实现记录的增减操作C.每条记录的长度是固定的D.不能像随机文件一样灵活地存取数据18.下列操作说明中，错误的是( )。（分数：2.00）A.在具有焦点

6、的对象上进行一次按下字母键操作，会引发 KeyPress 事件B.可以通过 MousePointer 属性设置鼠标光标的形状C.不可以在属性窗口设置 MousePointer 属性D.可以在程序代码中设置 MousePointer 属性19.以下关于变量作用域的叙述中错误的是( )。（分数：2.00）A.在窗体模块的声明部分声明的 Private 变量，其作用域是窗体内的所有过程B.在标准模块的声明部分声明的 Private 变量，其作用域是模块内的所有过程C.在窗体模块的声明部分声明的 Pubilc 变量，其作用域是本窗体的所有过程D.在标准模块的声明部分声明的 Pubilc 变量，其作用域

7、是应用程序的所有过程20.下面关于文件叙述中错误的是( )。（分数：2.00）A.VB 数据文件需要先打开，再进行处理B.随机文件每个记录的长度是固定的C.不论是顺序文件还是随机文件，都是数据文件D.顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录21.要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是( )。（分数：2.00）A.AutoSize 值为 TrueB.AutoRedraw 值为 TrueC.Stretch 值为 TrueD.BorderStyle 值为 022.如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是( )。 （分数：2.00）A

8、.B.C.D.23.列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是( )。（分数：2.00）A.ListB.ListIndexC.TextD.ListCount24.为了使一个复选框被禁用(灰色显示)，应把它的 Value 属性设置为( )。（分数：2.00）A.0B.1C.2D.False25.下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( )。（分数：2.00）A.InitDir 属性用于设置对话框中显示的起始目录B.Filter 属性用于设置对话框默认的过滤器C.DefaultExt 属性用于设置对话框中默认的文件类型D.FileTitle 属性用于存

9、放对话框中所选择的文件名26.下列事件的事件过程中，参数是输入字符 ASCII 码的是( )。（分数：2.00）A.KeyDown 事件B.KeyUp 事件C.KeyPress 事件D.Change 事件27.以下关于单选按钮和复选框的叙述中，正确的是( )。（分数：2.00）A.单选按钮和复选框都能从多个选项中选择一项B.单选按钮和复选框被选中时，选中控件的 Value 属性值为 TrueC.是否使用框架控件将单选按钮分组，对选项没有影响D.是否使用框架控件将复选框分组，对选项没有影响28.窗体的 MouseUp 事件过程如下：Private Sub Form_MouseUp(Button

10、As Integer， Shift As Integer， X As Single， Y As Single) End Sub 关于以上定义，以下叙述中错误的是( )。（分数：2.00）A.根据 Shift 参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.Button 参数的值是在 MouseUp 事件发生时，系统自动产生的D.MouseUp 是鼠标向上移动时触发的事件29.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程：Private Sub Form_Load() HScroll1.Min0 HScrol

11、l1.Max100End SubPrivate Sub Command1_Click() HScroll1.Value70End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的图示是( )。（分数：2.00）A.B.C.D.30.窗体上有一个名称为 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 Inp

12、ut #3， s2 Text1.Texts1s2 Close End Sub 该程序运行时有错误，应该进行的修改是( )。（分数：2.00）A.将 Open 语句中的 For Append 改为 For InputB.将 Line Input 改为 LineC.将两条 Line Input 语句合并为 Line Input #3， s1，s2D.将 Close 语句改为 Close #331.有如下程序：Private Sub Form_Click() Dim i As Integer， n As Integer For i1 To 20 ii4 nni If i10 Then Exit Fo

13、r Next Print nEnd Sub 程序运行后，单击窗体，则输出结果是( )。（分数：2.00）A.14B.15C.29D.3032.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下：Private Sub Command1_Click() Dim num As Integer， x As Integer numVal(InputBox(“请输入一个正整数“) Select Case num Case Is100 xxnum Case IsA.0 0 0B.0 0 60C.0 90 0D.100 0 6033.编写如下程序：Private Sub Command1_C

14、lick() Dim m As Integer， n As Integer m1： n0 Do While mA.40 18B.40 19C.20 64D.21 6434.下列循环中，可以正常结束的是( )。（分数：2.00）A.i10 Do ii1 Loop Until i1D.i10 Do ii2 Loop Until i135.现有程序如下：Option Base 1Private Sub Form_Click() Dim x(5， 6)As Integer， y(5)As Integer For i1 To 5 For j1 To 6 x(i， j)Int(Rnd * 91) Next

15、 j Next i Call f(5， 6， x， y) For i1 To 5 Print y(i)； Next iEnd SubSub f(m As Integer， n As Integer， a()As Integer， b()As Integer) For i1 To m b(i)0 For j1 To n b(i)b(i)a(i， j) Next j Next iEnd Sub 关于上述程序，以下叙述中正确的是( )。（分数：2.00）A.调用过程语句有错，参数不匹配B.程序有错，数组下标越界C.y 数组中保存的是 x 数组每行数据之和D.x 数组中数据的取值范围是 11036.窗

16、体上有一个名称为 Label1 的标签；一个名称为 Timer1 的计时器，其 Enabled 和 Interval 属性分别为 True 和 1000。编写如下程序：Dim n As IntegerPrivate Sub Timer1_Timer() chChr(nAsc(“A“) Label1.Captionch nn1 nn Mod 4End Sub 运行程序，将在标签中( )。（分数：2.00）A.不停地依次显示字符“A“、“B“、“C“、“D“，直至窗体被关闭B.依次显示字符“A“、“B“、“C“、“D“各一次C.每隔 1 秒显示字符“A“一次D.每隔 1 秒依次显示 26 个英文字

17、母中的一个37.要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为 Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是( )。（分数：2.00）A.Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button1 Then Label1“X“ & X & “ Y“ & Y End If End SubB.Private Sub Form_MouseUp(Button As In

18、teger， Shift As Integer， X As Single， Y As Single) If Button1 Then Label1“X“ & X & “ Y“ & Y End If End SubC.Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single， Y As Single) If Button1 Then Label1“X“ & X & “ Y“ & Y End If End SubD.Private Sub Form_MouseMove(Button As Integer，

19、 Shift As Integer， X As Single， Y As Single) Label1“X“ & X & “ Y“ & Y End Sub38.窗体上有一个名为 List1 的列表框和一个名为 Command1 的命令按钮，并有下面的事件过程：Private Sub Command1_Click() n%List1.ListIndex If n0 Then ch$List1.List(n) List1.List(n)List1.List(n1) List1.List(n1)ch End IfEnd Sub 程序运行时，选中 1 个列表项，然后单击 Command1 按钮，则产生

20、的结果是( )。（分数：2.00）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置B.选中的列表项与它前面的列表项互换位置C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位置39.在窗体上画一个名称为 Text1 的文本框，并编写如下程序：Option Base 1Private Sub Form_Click() Dim arr Dim Start As Integer， Finish As Integer Dim Sum As Integer arrArray(12， 4， 8， 16) StartLBound(

21、arr) FinishUBound(arr) Sum0 For iStart To Finish SumSumarr(i) Next i cSum / Finish Text1.TextcEnd Sub 运行程序，单击窗体，则在文本框中显示的是( )。（分数：2.00）A.40B.10C.12D.1640.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，然后编写如下事件过程：Private Sub Command1_Click() Dim arr(10) For i6 To 10 arr(i)i5 Next i Label1.Captionarr(0)arr

22、(arr(10)/ arr(6)End Sub 运行程序，单击命令按钮，则在标签中显示的是( )。（分数：2.00）A.0B.1C.2D.3国家二级 VB 机试（选择题）-试卷 39 答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列叙述中正确的是（分数：2.00）A.一个算法的空间复杂度大，则其时间复杂度也必定大B.一个算法的空间复杂度大，则其时间复杂度必定小C.一个算法的时间复杂度大，则其空间复杂度必定小D.算法的时间复杂度与空间复杂度没有直接关系 解析：解析：算法的空间复杂度是指算法在执行过程中所需要的内存空间，算法的时间复杂度，是指执

23、行算法所需要的计算工作量，两者之间并没有直接关系，答案为 D。2.下列叙述中正确的是（分数：2.00）A.循环队列中的元素个数随队头指针与队尾指针的变化而动态变化 B.循环队列中的元素个数随队头指针的变化而动态变化C.循环队列中的元素个数随队尾指针的变化而动态变化D.以上说法都不对解析：解析：在循环队列中，用队尾指针 rear 指向队列中的队尾元素，用排头指针 front 指向排头元素的前一个位置。因此，从排头指针 front 指向的后一个位置直到队尾指针 rear 指向的位置之间所有的元素均为队列中的元素。所以循环队列中的元素个数与队头指针和队尾指针的变化而变化，A 正确。3.一棵二叉树中共

24、有 80 个叶子结点与 70 个度为 1 的结点，则该二叉树中的总结点数为（分数：2.00）A.219B.229 C.230D.231解析：解析：二叉树中，度为 0 的节点数等于度为 2 的节点数加 1，即 n2=n0-1，叶子节点即度为 0，则n2=79，总结点数为 n0+n1+n2=80+70+79=229，答案为 B。4.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为（分数：2.00）A.9B.10C.45 D.90解析：解析：冒泡法是在扫描过程中逐次比较相邻两个元素的大小，最坏的情况是每次比较都要将相邻的两个元素互换，需要互换的次数为 9+8+7+6+5+4+3+2+

25、1=45，选 C。5.构成计算机软件的是（分数：2.00）A.源代码B.程序和数据C.程序和文档D.程序、数据及相关文档 解析：解析：软件指的是计算机系统中与硬件相互依赖的另一部分，包括程序、数据和有关的文档，选D。6.软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是（分数：2.00）A.测试B.设计C.可行性研究 D.实现解析：解析：开发阶段包括分析、设计和实施两类任务。其中分析、设计包括需求分析、总体设计和详细设计 3 个阶段，实施则包括编码和测试两个阶段，C 不属于开发阶段。7.下面不能作为结构化方法软件需求分析工具的是（分数：2.00）A.系统结构图 B.数据

26、字典(DD)C.数据流程图(DFD 图)D.判定表解析：解析：结构化方法软件需求分析工具主要有数据流图、数据字典、判定树和判定表。8.在关系模型中，每一个二维表称为一个（分数：2.00）A.关系 B.属性C.元组D.主码（键）解析：解析：关系模型采用二维表来表示，即每个二维表称为一个关系。9.若实体 A 和 B 是一对多的联系，实体 B 和 C 是一对一的联系，则实体 A 和 C 的联系是（分数：2.00）A.一对一B.一对多 C.多对一D.多对多解析：解析：A 和 B 为一对多的联系，则对于 A 中的每一个实体，B 中有多个实体与之联系，而 B 与 C 为一对一联系，则对于 B 中的每一个实

27、体，C 中之多有一个实体与之联系，则可推出对于 A 中的每一个实体，C 中有多个实体与联系，所以为一对多联系。10. （分数：2.00）A.选择B.投影C.交D.并 解析：解析：关系 T 中的元素与关系 R 和关系 S 中不同元素的总和，因此为并操作。11.以下合法的 VB 变量名是( )。（分数：2.00）A._xB.2yC.a#bD.x_1_x 解析：解析：VB 中变量的命名规则为：必须以字母或汉字开头由字母、汉字、数字或下划线组成不能使用 VB 的保留字。_x 不能以_下划线开头，不合法；2y 不能以数字开头，不合法；a#b 中有#，不合法；D 选项符合命名规则，故 D 选项正确。12.

28、以下关于 VB 特点的叙述中，错误的是( )。（分数：2.00）A.VB 中一个对象可有多个事件过程B.VB 应用程序能以编译方式运行C.VB 应用程序从 Form_Load 事件过程开始执行 D.在 VB 应用程序中往往通过引发某个事件导致对对象的操作解析：解析：VB 应用程序不一定从 From_Load 事件开始执行，它是由工程中启动对象决定先从哪儿开始执行。故 C 选项错误。13.Print Format(1234.56， “#.#“)语句的输出结果是( )。（分数：2.00）A.123.4B.1234.6 C.1234.5D.1234.56解析：解析：Format 是格式输出函数，数据

29、要按照“输出格式字符串“指定格式输出。“输出格式字符串“中#表示显示一数字，若此位置没有数字则不显示。本题中“输出格式字符串“整数部分#长度小于 1234时，1234 按原样输出，小数部分#长度为 1，则小数部分保留一位，四舍五入取 6，故选 B。14.Print Right(“VB Programming“， 2)语句的输出结果是( )。（分数：2.00）A.VBB.ProgrammingC.ng D.2解析：解析：Right 是字符串的右部截取函数，本题中是从字符串“VB Programming“右边向左截取 2 个字符，即为“ng“，故选 C。15.假定已在窗体上画了多个控件，其中有一个

30、被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是( )。（分数：2.00）A.单击窗体上没有控件的地方 B.单击任意一个控件C.双击任意一个控件D.单击属性窗口的标题栏解析：解析：单击窗体上没有控件的地方，在属性窗口就会出现窗体的各属性，这样就可对窗体的属性进行设置，故 A 选项正确。单击任意一个控件，在属性窗口中出现的是该控件的属性，故 B 选项错误；双击任意一个控件，打开的是“代码窗口“，故 C 选项错误；单击属性窗口的标题栏，属性窗口成为活动窗口，故 D 选项错误。16.下列操作中不能向工程添加窗体的是( )。（分数：2.00）A.执行“工程“菜单中的“添加窗体“命令B.单击工

31、具栏上的“添加窗体“按钮C.右击窗体，在弹出的菜单中选择“添加窗体“命令 D.右击工程资源管理器，在弹出的菜单中选择“添加“命令，然后在下一级菜单中选择“添加窗体“命令解析：解析：右击窗体，弹出的菜单中没有“添加窗体“命令，故 C 选项错误。17.下列关于顺序文件的描述中，正确的是( )。（分数：2.00）A.文件的组织与数据写入的顺序无关B.主要的优点是占空间少，且容易实现记录的增减操作C.每条记录的长度是固定的D.不能像随机文件一样灵活地存取数据 解析：解析：顺序文件的特点是：文件中各记录写入、存放和读取的顺序是一致的，即最先写入的记录放在文件的最前面，后面写入的依次往后面存放，最后写入的

32、记录存放在文件的最后。读取时也是，先读取完前面的记录，才能读取后面的记录。所以文件的组织与数据写入的顺序有关，而且读取文件时效率低，不灵活。故 A 选项错误，D 选项正确。根据顺序文件的特点，文件实现记录的增减不容易。故 B 选项错误。顺序文件的每条记录中各数据项个数不固定，所以记录的长度也不固定。故 C 选项错误。18.下列操作说明中，错误的是( )。（分数：2.00）A.在具有焦点的对象上进行一次按下字母键操作，会引发 KeyPress 事件B.可以通过 MousePointer 属性设置鼠标光标的形状C.不可以在属性窗口设置 MousePointer 属性 D.可以在程序代码中设置 Mo

33、usePointer 属性解析：解析：可以在属性窗口中给 MousePointer 属性设置属性值。故 C 选项错误。19.以下关于变量作用域的叙述中错误的是( )。（分数：2.00）A.在窗体模块的声明部分声明的 Private 变量，其作用域是窗体内的所有过程B.在标准模块的声明部分声明的 Private 变量，其作用域是模块内的所有过程C.在窗体模块的声明部分声明的 Pubilc 变量，其作用域是本窗体的所有过程 D.在标准模块的声明部分声明的 Pubilc 变量，其作用域是应用程序的所有过程解析：解析：在窗体模块中声明的 Public 变量，其作用域是应用程序的所有过程，故 C 选项错

34、误。 但用时注意：变量名前要加窗体名，否则不能被其他模块的过程引用，只能被本模块内的所有过程引用。20.下面关于文件叙述中错误的是( )。（分数：2.00）A.VB 数据文件需要先打开，再进行处理B.随机文件每个记录的长度是固定的C.不论是顺序文件还是随机文件，都是数据文件D.顺序文件的记录是顺序存放的，可以按记录号直接访问某个记录 解析：解析：顺序文件的记录是顺序存放的，先写入的记录存放在文件的最前面，后写入的依次往后面存放，最后写入的记录放在文件的最后面。如果访问某条记录，要先访问前面的记录，才能访问后面的记录，不能按记录号直接访问。故 D 选项错误。21.要使图像框(Image)中的图像

35、能随着图像框的大小伸缩，应该设置的属性及值是( )。（分数：2.00）A.AutoSize 值为 TrueB.AutoRedraw 值为 TrueC.Stretch 值为 True D.BorderStyle 值为 0解析：解析：图像框控件的 Stretch 属性用来调整图像框中图形内容的大小。它既可以通过属性窗口设置，也可通过程序设置。该属性的取值为 True 或 Flase。当其属性值为 False 时，将自动放大或缩小图像框中的图形以与图像框的大小相适应。22.如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是( )。 （分数：2.00）A.B. C.D.解析：解析：标签控件在工具箱

36、中的图标是。而是文本框控件的图标，是按钮控件的图标，是形状控件的图标。23.列表框中被选中的数据项的位置可以通过一个属性获得，这个属性是( )。（分数：2.00）A.ListB.ListIndex C.TextD.ListCount解析：解析：列表框控件的 ListIndex 属性值是已选中的表项的位置。表项位置由索引值指定，第一项的索引值为 0，第二项为 1，以此类推。如果没有任何项被选中，ListIndex 的值将设置为1。24.为了使一个复选框被禁用(灰色显示)，应把它的 Value 属性设置为( )。（分数：2.00）A.0B.1C.2 D.False解析：解析：复选框的 Value

37、属性可以设置为 0、1 或 2。0 表示没有选择该复选框，1 表示选中该复选框，2 表示该复选框被禁用(灰色显示)。25.下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( )。（分数：2.00）A.InitDir 属性用于设置对话框中显示的起始目录B.Filter 属性用于设置对话框默认的过滤器 C.DefaultExt 属性用于设置对话框中默认的文件类型D.FileTitle 属性用于存放对话框中所选择的文件名解析：解析：通用对话框的 InitDir 属性用于设置对话框中显示的起始目录，Filter 属性用来指定在对话框中显示的文件类型，FilterIndex 用于设置对

38、话框默认的过滤器，DefaultExt 属性用于设置对话框中默认的文件类型，FileTitle 属性用于存放对话框中所选择的文件名。26.下列事件的事件过程中，参数是输入字符 ASCII 码的是( )。（分数：2.00）A.KeyDown 事件B.KeyUp 事件C.KeyPress 事件 D.Change 事件解析：解析：KeyPress 事件参数 KeyAscii As Integer，KeyAscii 是所按键字符的 ASCII 码。KeyDown和 KeyUp 事件参数有两个，是 KeyCode As Integer 和 Shift As Integer，KeyCode 是按键的实际的

39、ASCII 码，同一个按键上的大小写字母它们的 KeyCode 相同(使用大写字母的 ASCII 码)。27.以下关于单选按钮和复选框的叙述中，正确的是( )。（分数：2.00）A.单选按钮和复选框都能从多个选项中选择一项B.单选按钮和复选框被选中时，选中控件的 Value 属性值为 TrueC.是否使用框架控件将单选按钮分组，对选项没有影响D.是否使用框架控件将复选框分组，对选项没有影响 解析：解析：复选框按钮可以同时选择多个，而在一组单选按钮中，只能选择其中的一个。单选按钮被选中时，其 Value 属性值为 True，如果没有被选中其 Value 值为 False，复选框的 Value 属

40、性可以设置为0、1 和 2，分别代表没选中、选中和禁用。单选按钮一般用框架进行分组，每个框架内的单选按钮的操作不影响其他组的按钮，而复选框是否分组对选项没有影响。28.窗体的 MouseUp 事件过程如下：Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single) End Sub 关于以上定义，以下叙述中错误的是( )。（分数：2.00）A.根据 Shift 参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.Button 参数的值是在 Mous

41、eUp 事件发生时，系统自动产生的D.MouseUp 是鼠标向上移动时触发的事件 解析：解析：MouseUp 事件是鼠标松开时触发的事件过程，事件过程的 Button 参数值由系统产生，为被按下的键，Shift 参数表示 Shift、Ctrl 和 Alt 键的状态，X、Y 参数表示光标的当前位置。29.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程：Private Sub Form_Load() HScroll1.Min0 HScroll1.Max100End SubPrivate Sub Command1_Click() HScroll1.Va

42、lue70End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的图示是( )。（分数：2.00）A.B.C. D.解析：解析：题目中程序运行时设置了水平滚动条所能表示的最小值为 0，能表示的最大值为 100，当单击命令按钮时，设置水平滚动条的当前位置为 70，即在水平滚动条中部偏右的位置，按各个选项图形的所示，C 选项的图示与题目相符。30.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。以下程序的功能是从顺序文件中读取数据：Private Sub Command1_Click() Dim s1 As String， s2 As String Ope

43、n “c：/d4.dat“ For Append As #3 Line Input #3， s1 Line Input #3， s2 Text1.Texts1s2 Close End Sub 该程序运行时有错误，应该进行的修改是( )。（分数：2.00）A.将 Open 语句中的 For Append 改为 For Input B.将 Line Input 改为 LineC.将两条 Line Input 语句合并为 Line Input #3， s1，s2D.将 Close 语句改为 Close #3解析：解析：文件打开方式中的 Append 意味着打开的文件是顺序输出方式，也就是说打开文件是

44、为了向其中写入数据的而不是要读出数据。因此 Open “c：/d4.dat“ For Append As #3 应该改为 Open “c：/d4.dat“ For Input As #3。所以 A 选项正确。Clsoe 语句中的文件号可以省略，这时会关闭所有打开的文件。31.有如下程序：Private Sub Form_Click() Dim i As Integer， n As Integer For i1 To 20 ii4 nni If i10 Then Exit For Next Print nEnd Sub 程序运行后，单击窗体，则输出结果是( )。（分数：2.00）A.14B.15

45、C.29D.30 解析：解析：程序中 For 循环中的 If 语句判断循环变量 i 值如果大于 10 则退出循环。各次循环变量值变化如下： i1 时，ii4145，nni055，此时 i5，i10 不成立，i 加 1 转入下次循环。 i6 时，ii46410，nni51015，此时，i10，i10 不成立，i 加 1 转入下次循环。 i11 时，ii411415，nni151530，此时，i15，i10 成立，退出循环。此时 n30。32.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下：Private Sub Command1_Click() Dim num As Inte

46、ger， x As Integer numVal(InputBox(“请输入一个正整数“) Select Case num Case Is100 xxnum Case IsA.0 0 0B.0 0 60 C.0 90 0D.100 0 60解析：解析：按钮事件中变量 x 为过程局部变量，第 1 次输入 100 时，Select 语句执行 Case Else 分支xx*num0*100=0。第二次输入 90 时，Select 语句执行 Case Else 分支 xx*num0*90=0。第三次输入 60 时 Select 语句执行 Case Is33.编写如下程序：Private Sub Com

47、mand1_Click() Dim m As Integer， n As Integer m1： n0 Do While mA.40 18 B.40 19C.20 64D.21 64解析：解析：循环中各变量值变化如下： nmn101 ， m3*m+1=3+1=4,4 小于 20 继续循环； nmn415 ， m3*m+1=12+1=13,13 小于 20 继续循环； nmn13518 ， m3*m+1=39+1=40,40 不小于 20，循环结束。此时 m=40,n=18。34.下列循环中，可以正常结束的是( )。（分数：2.00）A.i10 Do ii1 Loop Until i1D.i10

48、 Do ii2 Loop Until i1解析：解析：选项 A 中先执行一次循环体，i 的值变成 1，测试循环结束条件，i1 是否成立，此后 i 值不会小于等于，循环会一直继续下去，不会正常结束。选项 D 中 i 初值为 10，每次循环 i 值减 2，因此它总是偶数，而循环结束的条件是 i1，不可能达到，循环会一直继续下去。35.现有程序如下：Option Base 1Private Sub Form_Click() Dim x(5， 6)As Integer， y(5)As Integer For i1 To 5 For j1 To 6 x(i， j)Int(Rnd * 91) Next j

49、 Next i Call f(5， 6， x， y) For i1 To 5 Print y(i)； Next iEnd SubSub f(m As Integer， n As Integer， a()As Integer， b()As Integer) For i1 To m b(i)0 For j1 To n b(i)b(i)a(i， j) Next j Next iEnd Sub 关于上述程序，以下叙述中正确的是( )。（分数：2.00）A.调用过程语句有错，参数不匹配B.程序有错，数组下标越界C.y 数组中保存的是 x 数组每行数据之和 D.x 数组中数据的取值范围是 110解析：解析：程序利用 For 循环为数组 x 的 5 行 6 列元素以随机整数赋值，随机数的范