[计算机类试卷]国家二级（VB）机试模拟试卷143及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 143及答案与解析 一、选择题 1 程序流程图中带有箭头的线段表示的是 ( )。 （ A）图元关系 （ B）数据流 （ C）控制流 （ D）调用关系 2 结构化程序设计的基本原则不包括 ( )。 （ A）多态性 （ B）自顶向下 （ C）模块化 （ D）逐步求精 3 软件设计中模块划分应遵循的准则是 ( )。 （ A）低内聚低耦合 （ B）高内聚低耦合 （ C）低内聚高耦合 （ D）高内聚高耦合 4 在软件开发中，需求分析阶段产生的主要文档是 ( )。 （ A）可行性分析报告 （ B）软件需求规格说明书 （ C）概要设计说明书 （ D）集成测试计划 5 算法的有

2、穷性是指 ( )。 （ A）算法程序的运行时间是有限的 （ B）算法程序所处理的数据量是有限的 （ C）算法程序的长度是有限的 （ D）算法只能被有限的用户使用 6 对长度为 n的线性表排序，在最坏情况下，比较次数不是 n(n-1) 2的排序方法是 ( )。 （ A）快速排序 （ B）冒泡排序 （ C）直接插入排序 （ D）堆排序 7 下列关于栈的叙述正确的是 ( )。 （ A）栈按 “先进先出 ”组织数据 （ B）栈按 “先进后出 ”组织数据 （ C）只能在栈底插入数据 （ D）不能删除数据 8 在数据库设计中，将 ER图转换成关系数据模型的过程属于 ( )。 （ A）需求分析阶段 （ B）

3、概念设计阶段 （ C）逻辑设计阶段 （ D）物理设计阶段 9 有三个关系 R、 S和 T如下： 由关系 R和 S通过运算得到关系 T，则所使用的运算为 ( )。 （ A）并 （ B）自然连接 （ C）笛卡尔积 （ D）交 10 设有表示学生选课的三张表，学生 S(学号，姓名，性别，年龄，身份证 号 )，课程 C(课号，课名 )，选课 SC(学号，课号，成绩 )，则表 SC的关键字 (键或码 )为( )。 （ A）课号，成绩 （ B）学号，成绩 （ C）学号，课号 （ D）学号，姓名，成绩 11 以下叙述中错误的是 ( )。 （ A）标准模块文件的扩展名是 bas （ B）标准模块文件是纯代码文

4、件 （ C）在标准模块中声明的全局变量可以在整个工程中使用 （ D）在标准模块中不能定义过程 12 在 Visual Basic中，表达式 3*2 5 Mod 3的值是 ( )。 （ A） 1 （ B） 0 （ C） 3 （ D）出现错误提示 13 以下选项中，不合法的 Visual Basic的变量名是 ( )。 （ A） a5b （ B）一 xyz （ C） ab （ D） andif 14 以下数组定义语句中，错误的是 ( )。 （ A） Static a(10)As Integer （ B） Dim c(3， 1 To 4) （ C） Dim d(一 10) （ D） Dim b(0

5、To 5， 1 To 3)As Integer 15 现有语句： y=IIf(x0， x Mod 3， 0) 设 x=10，则 y的值是 ( )。 （ A） 0 （ B） 1 （ C） 3 （ D）语句有错 16 窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。 （ A）在设计 “粘贴 ”菜单项时，在菜单编辑器窗口中设置了 “有效 ”属性 (有 “、 ”) （ B）菜单中的横线是在该菜单项的标题输入框中输入了一个 “一 ”(减号 )字符 （ C）在设计 “选中 ”菜单项时，在菜单编辑器窗口中设置了 “复选 ”属性 (有 “、 ”) （ D）在设

6、计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了 “可见 ”前面的“、 ” 17 在设计窗体时双击窗体的任何地方，可以打开的窗口是 ( )。 （ A）代码窗口 （ B）属性窗口 （ C）工程资源管理器窗口 （ D）工具箱窗口 18 若变量 a未事先定义而直接使用 (例如： a=0)，则变量 a的类型是 ( )。 （ A） Integer （ B） String （ C） Boolean （ D） Variant 19 为把圆周率的近似值 3 14159存放在变量 pi中，应该把变量 pi定义为 ( )。 （ A） Dim pi As Integer （ B） Dim pi(7)As Inte

7、ger （ C） Dim pi As Single （ D） Dim pi As Long 20 表达式 2*32+4*2 2+32的值是 ( )。 （ A） 30 （ B） 31 （ C） 49 （ D） 48 21 为了使文本框同时具有垂直和水平滚动条，应先把 MultiLine属性设置为True，然后再把 ScrollBars属性设置为 ( )。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 22 文本框 Text1的 KeyDown事件过程如下： Private Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer) E

8、nd Sub 其中参数 KeyCode的值表示的是发生此事件时 ( )。 （ A）是否按下了 Ah键或 Ctd键 （ B）按下的是哪个数字键 （ C）所按的键盘键的键码 （ D）按下的是哪个鼠标键 23 窗体上有一个名称为 HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 ( )。 （ A） Private Sub HScroll1_Change() Print HScroll1 Value End Sub （ B） Private Sub HScroll1_Change() Print HScrol

9、l1 SmallChange End Sub （ C） Private Sub HScroll1_Scroll() Print HScroll1 Value End Sub （ D） Private Sub HScroll1_Scroll() Print HScroll1 SmallChange End Sub 24 若已把一个命令按钮的 Default属性设置为 True，则下面可导致按钮的 Click事件过程被调用的操作是 ( )。 （ A）用鼠标右键单击此按钮 （ B）按键盘上的 Esc键 （ C）按键盘上的回车键 （ D）用鼠标右键双击此按钮 25 要使两个单选按钮属于同一个框架，下面

10、三种操作方法中正确的是 ( )。 先画一个框架，再在框架中画两个单选按钮 先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 先画两个单选按钮，再画框架将单选按钮框起来 （ A） （ B） 、 （ C） （ D） 、 、 26 能够存放组合框的所有项目内容的属性是 ( )。 （ A） Caption （ B） Text （ C） List （ D） Selected 27 设窗体上有一个标签 Label1和一个计时器 Timer1， Timer1的 Interval属性被设置为 1000， Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下

11、可以实现上述要求的事件过程是 ( )。 （ A） Private Sub Timer1_Timer() Label1 Caption=True End Sub （ B） Private Sub Timer1_Timer() Label1 Caption=Time$ End Sub （ C） Private Sub Timer1_Timer() Label1 Interval=1 End Sub （ D） Private Sub Timer1_Timer() For k=1 To Timer1 Interval Label1 Caption=Timer Next k End Sub 28 窗体上

12、有一个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为 0、 1、 2， 3，窗体外观如图所示。命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1 Action=1 Case 1 CD1 ShowSave Case 2 CD1 Action=5 Case 3 End End SelectEnd Sub 对上述程序，下列叙述中错误的是 ( )。 （ A）单击 “打开 ”按钮，显示打开文件的对话框 （ B）单击 “保存 ”按钮，

13、显示保存文件的对话框 （ C）单击 “打印 ”按钮，能够设置打印选项，并执行打印操作 （ D）单击 “退出 ”按钮，结束程序的运行 29 窗体上有一个名称为 Eramel的框架 (如图 )，若要把框架上显示的 “Framel”改为汉字 “框架 ”，下面正确的语句是 ( )。 （ A） Framel Name=“框架 “ （ B） Framel Caption=“框架 “ （ C） Framel Text=“框架 “ （ D） Framel Value=“框架 “ 30 在窗体上画一个名称为 Combol的组合框，名称为 Text1的文本框，以及名称为Command1的命令按钮，如图所示。 运行

14、程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下： Private Sub Command1_Click() If Text1 SelLength0 Then _ Else Combol AddItem Text1 End If End Sub 程序中横线处应该填写的是 ( )。 （ A） Combol AddItem Text1 Text （ B） Combol Addhem Text1 SelStart （ C） Combol AddItem Text1 SelText （ D） Combol

15、AddItem Text1 SelLength 31 窗体上有一个名称为 Text1的文本框，一个名称为 CD1的通用对话框，一个标题为 “打开文件 ”的命令按钮，如图所示。 命令按钮的单击事件过程如下 ： Private Sub Command1_Click() CD1 ShowOpen Open CD1 FileName For Input As#1 MsgBox CD1 FileName Line Input#1， s Text1 Text=s Close#1End Sub单击命令按钮，执行以上事件过程，打开选定的文件，读取文件的内容并显示在文本框中，以下叙述中正确的是 ( )。 （ A

16、）程序没有错误，可以正确完成打开文件、读取文件中内容的操作 （ B）执行 Open命令时出错，因为没有指定文件的路径 （ C） Open语句是错误的，应把语句中的 For Input改为 For Output （ D） Line Input命令格式错 32 窗体上有一个如右图所示的图形控件，控件中显示了如图所示的文字，可以判断这个图形控件 ( )。 （ A）是图像框 (Image) （ B）是图片框 (PictureBox) （ C）是形状控件 （ D）不是上述 3种控件中的一种 33 窗体上有一个名称为 Combol的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。

17、下面能实现这一功能的是 ( )。 （ A） Private Sub Combol_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode=13 Then Combol Addltem Cornbol Text End If End Sub （ B） Private Sub Combol_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode=13 Then Combol AddItem Text1 Text End If End Sub （ C） Private Sub Comb

18、ol_Click() Combol AddItem Combol Text End Sub （ D） Private Sub Combol_Click() Combol AddItem Text1 Text End Sub 34 工程文件中包含一个模块文件和一个窗体文件。模块文件的程序代码是： Public x As Integer Private y As Integer 窗体文件的程序代码是： Dim a As Integer Private Sub Form_Load() Dim b As Integer a=2： b=3： x=10： y=20 End Sub Private Sub

19、Command1_Click() a=a+5： b=b+5： x=x+5： y=y+5 Print a； b； x； y End Sub 运行程序，单击窗体上的命令按钮，则在窗体上显示的是 ( )。 （ A） 5 5 15 5 （ B） 7 5 15 25 （ C） 7 8 15 5 （ D） 7 5 15 5 35 窗体上的三个命令按钮构成名称为 Command1的控件数组。如图所示。程序如下： Private Sub Command1_Click(Index As Integer) If Index=1 Then Print“计算机等级考试 “ End If If Index=2 Then

20、 Print Command1(2) Caption End If End Sub 运行程序，单击 “命令按钮 2”，则 如下叙述中正确的是 ( )。 （ A） Print Command1(2) Caption语句有错 （ B）在窗体上显示 “命令按钮 2” （ C）在窗体上显示 “命令按钮 3” （ D）在窗体上显示 “计算机等级考试 ” 36 下面程序的执行结果是 ( )。 Private Sub Command1_Click() a=0 k=1 Do While k负号一 乘除 *、 整除 取模 Mod加减 +、一。 根据优先级顺序，先计算 3*2为 6，再 6 5整除为 1，最后 1

21、 Mod 3取模结果为l。故 A选项正确。 13 【正确答案】 B 【试题解析】 VB中变量的命名规则为： 必须以字母或汉字开头 由字母、汉字、数字或下划线组成 不能使用 VB已经占用的关键字。本题选项 B中变量名以下划线开头，不合法。故 B选项错误。 14 【正确答案】 C 【试题解析】 定义数组有 2种格式： 第 1种格式： 数组每一维的只给出下标的上界，即町以使用的下标的最大值。 格式为 Dim public private static(上界， 上界 )As 类型名 形如： Dim a(5)As Interger， Dim b(4， 5)As Integer 这种形式，数组各维的下标的

22、下界只能为 0或 l，而且下标的上界 =下界。本题中 C选项下标上界一 10(下界 to上界 )， (下界 to上界 ) 形如： Dim a(一 2 to 5)As Interger Dim a(1 to 3， 2 to 6)As Interger 这种形式，数组各维下标的下界没有限制，只要保证下标的上界 =下界就行。故 D选项正确。 以上两种形式也可以混合使用。故 B选项也正确。 15 【正确答案】 B 【试题解析】 IIF是条件函数，它 的语法格式是： IIf(， ， )，本题中， x=10时，条件表达式 x0的值为 True，执行 x Mod 3即 10 Mod 3结果为 1。故选 B。

23、 16 【正确答案】 A 【试题解析】 快捷菜单中的 “粘贴 ”菜单项为无效时，在菜单编辑器窗口中 “有效 ”属性应该是不选中状态，没有 “”，故 A选项错误。 17 【正确答案】 A 【试题解析】 设计窗体时双击窗体的任何地方，默认打开的是代码窗口。故选A。 18 【正确答案】 D 【试题解析】 VB不要求必须先定义再使用。如果没有提前定义变量，就直接使用，系统就会将变量的数据类型指定为默认数据类型 Variant变体型。故选 D。 19 【正确答案】 C 【试题解析】 单精度 Single或双精度 Double型的变量能够保存浮点型小数，整型 Integer。和长整型 Long的变量只能保

24、存整型数据。本题中圆周率为3 14159，小数，可用定义一个 Single或 Double型变量来保存。故选 C。 20 【正确答案】 B 【试题解析】 根据 VB中算术运算符的优先级顺 序计算。先计算 ，即 2*9+4*2 2+9；再计算 *，即 18+4+9；最后计算 +，结果为 31，故选 B。 21 【正确答案】 D 【试题解析】 文本框的 ScrollBars属性值， 0表示无滚动条， l表示只有水平滚动条， 2表示只有垂直滚动条， 3表示水平和垂直滚动条都有。故 D选项正确。 22 【正确答案】 C 【试题解析】 参数 KeyCode返回的是所按键的键码，而且大小写字母键码值相同。

25、故选 C。 23 【正确答案】 A 【试题解析】 根据题意可知，用户的操作是单击滚动条两端的箭头 ，故触发的是滚动条的 Change事件；在窗体上显示的是滚动框的位置，即滚动条的当前刻度值， Value属性值可返回这个值，综合一下，故 A选项正确。 24 【正确答案】 C 【试题解析】 当命令按钮的 Defauh属性值为 Tree时，程序运行，按回车键和单击该命令按钮一样都会触发按钮的 Click事件；当命令按钮的 Cancel属性值为True时，程序运行，按 Esc键和单击该命令按钮都会触发按钮的 Click事件。故选 C。 25 【正确答案】 A 【试题解析】 的操作方法可使两个单选按钮属

26、于同一个 框架，其他方法不行。故 A选项正确。 26 【正确答案】 C 【试题解析】 组合框没有 Caption属性； Text属性用来设置或返回组合框中当前选项的文本内容； Selected属性是列表框控件的属性，组合框没有 Selected属性；List属性用来设置或返回组合框中的各选项，它是一个字符串数组，组合框中各选项内容用 List(下标 )表示。故 A、 B、 D选项错误， C选项正确。 27 【正确答案】 B 【试题解析】 Timer1的 Interval属性值是 1000， Enabled属性为 True，说明 定时器开始工作，每隔 1000毫秒 (即 1秒 )触发一次 Tim

27、er事件，从而执行一次Timer事件过程。要想每秒在标签中显示一次系统时间，则在 Timer事件过程中把系统时间赋给标签的 Caption属性就能实现。故选 B。 28 【正确答案】 C 【试题解析】 通用对话框中 Action=1，或用 ShowOpen方法都可显示 “打开 ”文件对话框； Action=2，或用 ShowSave方法都可显示文件 “另存为 ”对话框； Action=3，或用 ShowColor方法都可显示 “颜色 ”对话框； Action=4，或用 ShowFont方法都可显示 “字体 ”对话框； Action=5，或用 ShowPrinter方法都可显示 “打印 ”对话框

28、； 本题中， “打开 ”、 “保存 ”、 “打印 ”、 “退出 ”按钮的下标 (即 Index值 )分别是 0、1、 2、 3，用 Index值区分各命令按钮。 当 Index=0时， CD1 Action=1，说明单击 “打开 ”按钮，会显示 “打开 ”文件对话框； 当 Index=1时， CD1 ShowSave，说明单击 “保存 ”按钮，会显示文件 “另存为 ”对话框；当 Index=3时， End，说明单击 “退出 ”按钮，会结束程序运行。故 A、B、 D选项正确。 当 Index=2时， CD1 Action=5，说明单击 “打印 ”按钮，会显示 “打印 ”对话框，但打开对话框后，只

29、能设置打印选项，不能执行打印操作。故 C选项错误。 29 【正确答案】 B 【试题解析】 框架的 Name属性是设置框架的名称； Caption属性设置框架的标题，是在框架的左上角显示的内容；框架控件没有 Text和 Value属性。故 B选项正确。 30 【正确答案】 C 【试题解析】 根据题意可知，横线处应该 足将文本框中选中文本添加到组合框中。文本框 Text属性返回整个文本框中的文本，故 A选项错误； SelStart属性返回选中文本的起始位置，故 B选项错误； SelLength属性返回选中文本的长度，故D选项错误； SelText属性返回选中的文本，故 C选项正确。 31 【正确答

30、案】 A 【试题解析】 第 1条语句中用 ShowOpen方法显示 “打开 ”对话框后，在对话框中选中文件，单击 “打开 ”按钮后， CD1 FileName属性就会返回打开文件的路径，所以用 Open语句打开文件时，就可用 CD1 FileName指定打开文件的路径，故B选项说法错误。 因为第 4条语句中要用 Line Input从文件读取数据，故用 Open语句打开文件时用 Input模式打开是正确的，故 C选项说法错误。 Line Input命令格式为： Line Input#文件号，变量名，题中 Line Input语句格式正确。故 D选项错误。 本题程序无错误，能实现所说功能，故 A

31、选项正确。 32 【正确答案】 B 【试题解析】 图片框是 “容器 ”控件，可以作为父控件，而图像框不能。图片框可以通过 Print方法接收文本，并可接 收由像素组成的图形，而图像框不能接收Print方法输入的信息，也不能用绘图方法在图像框上绘制图形。而形状控件 3D效果的样式，根据题目图示显然不是形状控件。因此这个图形控件是图片框。 33 【正确答案】 A 【试题解析】 在组合框中的输入的文本保存在它的 Text属性中，根据程序要求，只要判断按下了回车键后，使用组合框的 AddItem方法把 Text中的字符添加到列表中即可。选项 C和 D没有判断是否按下回车键，所以排除。而选项 B中使用

32、AddItem方法添加的是 Text1 Text的值，不是组合框 Combol的 Text值，所以也不对。 34 【正确答案】 D 【试题解析】 程序在模块文件中定义 x为整型全局变量，在整个工程中都起作用，而 y定义为整型私有变量，只能在本模块文件中起作用。在窗体文件中变量 a在本窗体文本中起作用，窗体加载事件中定义的变量 b和没有声明的变量 y，只在本事件过程起作用。程序窗体加载时，对后边有影响的变量值为 a为 2， x为 10，没有指定初值的变量值默认为 O，因此单击命令按钮后， a=a+5=7， b=b+5： 5，x=x+5=15， y=y+5=5，结果输出 7 5 15 5。 35

33、【正确 答案】 D 【试题解析】 控件数组与数据数组一样下标默认从 0开始，即本题中按钮控件数组的 Index值为 0， 1， 2，分别对应命令按钮 1、命令按钮 2、命令按钮 3。当单击命令按钮 2时， In dex值为 1，因此程序会输出 “计算机等级考试 ”。 36 【正确答案】 B 【试题解析】 本题主要考查算术运算符中的幂运算，在程序中 x的值为 k的 k次方的 a次方， k的值每次循环都加 1，但 a的值不变总为 0，除 0以外的任何数的0次方都是 1，因此，在 k的值变为 4之前会输出三个 l。 37 【正确答案】 D 【试题 解析】 Mid为中部截取函数，格式为 Mid(字符串

34、，起始位置，长度 )，Ucase函数的作用是把字符串中的小写字母转换为大写字母。题目中 Mid函数截取字符串 “FormList”第 5个字符开始的 4个字符，结果为 “List”， Ucase函数把“List”全部变为大写，即 “LIST”。 38 【正确答案】 C 【试题解析】 题目程序不能将 List1中的选中项添加到 List2中，List2 AddItem Text一行有误，应该改为 List2 AddItem List1 List(i)才能使Listl中每个 选中的行添加到 List2中。列表框控件的 List属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。 39 【正

35、确答案】 A 【试题解析】 题目中 fun过程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为 6，是偶数所再次调用 fun过程，这次参数为 6 2=3，是奇数，不再调用自身，接着执行下一句输出参数值即 3，然后返回第一次调用过程中执行下一句输出第一次调用参数值，即 6。因此程序会输出 3 6。 40 【正确答案】 B 【试题解析】 题目中定义了一个二维数组，为数组 赋初值并找出这些值中最大的值输出。数组中的值为： a(1， 1)=1*2 mod 1=0a(1， 2)=1*2 mod 2=0a(1， 3)=1*2 mod 3=2 a(2， 1)=2*2 mod 1=0a(2，

36、2)=2*2 mod 2=0a(2， 3)=2*2 mod 3=1 a(3， 1)=3*2 mod 1=0a(3， 2)=3*2 mod 2=0a(3， 3)=3*2 mod 3=0 显然最大值为 2，因此 Print x语句将在窗体上显示 2。 二、基本操作题 41 【正确答案】 (1)步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 1和表 2。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3。步骤 2：编写程序代码。 参考答案 OptiOn Explicit Private Sub Cmdl

37、_Click() Cmdl Left=0 Cmdl Top=0 End Sub Private Sub Cmd2_Click() Cmd2 Height=Cmd2 Height*2 Cmd2 Width=Cmd2 Width*2 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)文本框控件的 MultiLine属性用于设置文本框是否能以多行显示文本，值为 True表示允许，值为 False表示不允许； Font属性用于设置控件标题中文本的字体、字号和字型等。 Text属性用于没置文本框中显示的文本。窗体标题通过其 caption属性设置。 (2)在窗体上

38、建立控件后，先设置控件的属性。再编写事件过程。 单击命令按钮触发 Click事件。利用按钮的 Height和 Width属性来改变按钮的大小；利用按钮的 Left和 Top属性来改变按钮的位置。 三、简单应用题 42 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 窗体 l的代码 Private Sub mnuOper_Click(Index As Integer) Select Case? Case 1 Form2 Show Form1 Hide Case 2 Timer1 Enabled=? Case 3 End End Select End

39、 Sub Private Sub Timer1_Timer() Picturel Left=Picturel Left+100 If Picturel Left+Picturel Width=?Then Picturel Left=? End If End Sub 窗体 2的代码 Private Sub Command1_Click() Form1 Show Form2 Hide End Sub 程序结束 参考答案 第 1个 ?处填入： Index 第 2个 ?处填入： True 第 3个 ?处填入： Fonnl Width 第 4个 ?处填入： 0 步骤 3：调试并运行程序，关闭程序后按题目

40、要求存盘。 (2)步骤 1：打开本题工程文件，设置控件的属性。程序中用到的控件及属性见表 1和表2。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Checkl_Click() If Cheekl Value=1 Then Framel Enabled=True Else Framel Enabled=False End If End Sub Private Sub Check2 Click() lf Cheek2 Value=1 Then Frame2。 Enabled=True Else Frame2 Enabled=False End If End Sub Pri

41、vate Sub Command1_Click() If Checkl Value=1 Then If?=True Then s=“古典音乐 “ Else s=“流行音乐 “ End If End If If Check2 Value=1 nen If?=True Then s=s&“篮球 “ Else s=s&“羽毛球 “ End If End If qahel2 Caption=? End Sub Private Sub Form_Load() Check1 Value=1 Check2 Value=1 End Sub 程序结束 参考答案 第 1个 ?处填入： Option1(0) Val

42、ue 第 2个 ?处填入： Option2 Value 第 3个 ?处填入： s 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)在计时器的 Timer事件过程中，通过设置标签的 Left属性值在原有基础上加 100来实现自左向右移动的功能。在 “动画 ”菜单项的单击事件过程中应启动计时器，使小汽车开始移动， 通过图像框的 Left、 Width属性和窗体的Width属性判断，小汽车是否移到窗口的右边界，如果是，则设置 Picturel的 Left属性为 0，自动跳到窗体的左边界重新移动。在 “窗体 2”菜单项的单击事件过程中，通过窗体的 Hide、 Show方法，隐

43、藏 Form1，显示 Form2。在 “退出 ”菜单项的单击事件过程中，通过 End语句退出程序。 (2)通过设置单选按钮的 Value属性，使 “古典音乐 ”和 “篮球 ”单选钮为选中状态。单击 “选择 ”按钮，通过 If语句判断单选按钮是否被选中，把选中的单选按钮的标题通过标签的 Caption属性显示在标签 Label2中，并通过复选框的 Value属性和框架的 Enabled，实现如果 “音乐 ”或 “体育 ”未被选中，相应的单选按钮不可选。 四、综合应用题 43 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Pr

44、ivate Sub Form_Click() Const N=5 Const M=5 Dim? Dim i， j Ope App Path&“ “&“datain txt“?As #1 For i=1 To N For j=1 To M ? Next j Next i Close #1 Print Print“初始矩阵为： “ Print For i=1 To N For j=1 To M Print Tab(5 * j)； Mat， (i， j)； Next j Print Next i Printl Print Print“右上一左下对角线上的数为： “ For i=1 To N For

45、j=1 To M If ?Then Print Tab(5*i)； Mat(i， j)； End If Next j Next i End Sub 程序结束 参考答案 第 1个 ?处填入： Mat(N， M) AsInteger 第 2个 ?处填入： For Input 第 3个 ?处填入： Input #1， Mat(i， j) 第 4个 ?处填 入： i+j=6 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 本题须先定义一个数组，然后以输入方式打开文件 in5仅 t，并在一个嵌套的 For循环中用 Input# 读入数据并赋值给每个数组元素。然后再通过一个嵌套的 For循环将数组 arr中的数据在窗体上按 5行、 5列的矩阵形式显示出来，最后将数组 arr中第 1维下标与第 2维下标之和为 6的数组元素显示在窗体上。