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

1、国家二级（ VB）机试模拟试卷 174及答案与解析 一、选择题 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 在数据库设计中，将 E-R图转换成关系数据模型的过程属于 ( )。 （ A）需求分析阶段 （

3、B）概念设计阶段 （ 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） a_b （ D） andif 14 以下数组定义语句中，错误的是 ( )。 （ A） Static a(10)As Integer （ B） Dim c(3， 1 To 4) （ C） Dim d(-10) （ D） Dim b(

5、0 To 5， 1 To 3)As Integer 15 现有诰句： y=llf(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 Integer

7、 （ 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属性设置为Tree，然后再把 ScrollBars属性设置为 ( )。 （ A） 0 （ B） 1 （ C） 2 （ D） 3 22 文本框 Text1的 KeyDown事件过程如下： Private Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer) End

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

9、1 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 Timed_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 窗体上有一个名称为 Franlel的框架 (如图 )，若要把框架上显示的 “Frame1”改为汉字 “框架 ”，下面正确的语句是 ( )。 （ A） Frame1 Name=“框架 “ （ B） Frame1 Caption=“框架 “ （ C） Frame1 Text=“框架 “ （ D） Frame1 Value=“框架 “ 30 在窗体上画一个名称为 Combo1的组合框，名称为 Text1的文本框，以及名称为Command1的命令按钮，如图所示。运行程

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

15、dItem 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 窗体上有一个名称为 Combo1的组合框，要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实

17、现这一功能的是 ( )。 （ A） Private Sub Combo1_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode=13 Then Combo1 AddItem Combo1 Text End If End Sub （ B） Private Sub Combo1_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode=13 Then Combo1 Addltem Text1 Text End If End Sub （ C） Private Sub Combo1_Cl

18、ick() Combo1 AddItem Combo1 Text End Sub （ D） Private Sub Combo1_Click() Combo1 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 Comma

19、nd1_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 Pri

20、nt 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，最后 Mod 3

21、取模结果为1。故 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或 1，而且下际的上界 =下界。本题中 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表示无滚动条， 1表示只有水平滚动条， 2表示只有垂直滚动条， 3表示水平和垂直滚动条都有。故 D选项正确。 22 【正确答案】 C 【试题解析】 参数 KeyCode返回的是所按键的键码，而且大小写字母键码值相同。

25、故选 C。 23 【正确答案】 A 【试题解析】 根据题意可知，用户的操作是单击滚动条两端的箭头，故触发的是滚动条的 Change事件；在窗体上显示的是滚动框的位置，即滚动条的当前刻度值， Value属性值可返回这个值，综合一 下，故 A选项正确。 24 【正确答案】 C 【试题解析】 当命令按钮的 Default属性值为 True时，程序运行，按回乍键和单击该命令按钮一样都会触发按钮的 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，或用 ShowPlinter方 法都可显示 “打印 ”对

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选项错误。 本题程序无错误，能实现所说功能，

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

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

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

34、串，起始位置，长度 )，Ucase函数的作用是把字符串中的小写字母转换为大写字母 。题目中 Mid函数截取字符串 “FormList”第 5个字符开始的 4个字符，结果为 “List”， Ucase函数把“List”全部变为大写，即 “UST”。 38 【正确答案】 C 【试题解析】 题目程序不能将 List1中的选中项添加到 List2中， List2 Addhem Text一行有误，应该改为 List2 AddItem List1 List(i)才能使 List1中每个选中的行添加到 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)步骤 1：按照题目要求建立窗体和控件，并设置控件的属性。程序中用到的控件及属性见表 2。步骤 2：编写程序代码。 参考答案 Private Sub Command1_Click

37、() HScroll1 MaN=Form1 Width HScroll1 Min： 0 HScroll1 LargeChange=50 HScroll1 SmallChange=10 End Sub Private Sub HScroll1_Change() Print HScroll1 Value End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)AutoSize属性值可决定控件 (标签和图片框 )是否自动改变大小以显示其全部内容，当值为 True时表示自动改变控件大小以显示全部内容；为False(默认值 )时表示保持控件大小不变，超出控件区域的内容被

38、裁剪掉。BorderStyle属性用于设置标签的边框样式，值为 0表示无边框，值为 1表示有边框。 (2)本题主要考查控件的画法、水平滚动条 (HScrollBar)相关属性的设置以及命令按钮简单事件编程的掌握情况。 滚动条的 Max、 Min属性 限定了滚动条所能表示的最大值和最小值，即 Value属性值的取值范围。 LargeChange属性用于设置当单击滚动条滑块与两侧箭头间区域时 Value属性值的改变量， SmallChange属性用于设置当单击滚动条两侧箭头时 Value属性值的改变量。滚动条滑块位置改变时触发其 Change事件。在窗体上输出内容使用 Print方法。 三、简单应

39、用题 42 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(30)As Integer Dim Max As Integer Randomize For i=1 To 30 arrN(i)=Int(Rnd*?) Next i ?=arrN(1) For i=2 To 30 If?Then Max=arrN(i) End If Next i Print Max End Sub 程序结束 参考答案 第 1个 ?处填入： 1000 第 2个 ?处填入

40、： Max 第 3个 ?处填入： arrN(i)Max或 MaxarrN(i) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 参考答案 Function Fun() Dim s As Integer， i As Integer For i=1 To 1000 If 1 Mod 5=0 Or 1 Mod 7=0 Then s=s+1 End If Next i Fun=s End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)Rnd()函数用于产生一个小于 1但大于或等于 0

41、的随机数。 本题程序用变量 Max记录最大数，最初把数组的第个元素的值赋给 Max，然后通过 For循环语句将其后的元素依次与之比较，如果其值大于 Max则将其赋值给 Max，依次类推，最终 Max的值就是数组各元素中的最大值。 (2)本题要求的是 1000以内能被 5或 7整除的数的个数。在 Visual Basic中，使用 Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为 0，则表示可以整除，否则不能整除。 四、综合应用题 43 【正确答案】 步骤 1：打开本题 T程文件，利用菜单，设计器，按表 3 108中的设置建立菜单项，在窗体 Form1中绘制一个文本框，其相关属性值见

42、表 1和表2。 步骤 2：分析并编写程序代码。程序提供代码 Option Base 1Dim Art(100)As IntegerSub ReadData() Open App Path&“ “&”datainl txt“For Input As #1 For i=1 To 100 Input#1， Arr(i) Next i Close #1End SubSub WriteData(Filename As String， Num As Integer) Open App Path&“ “ Filename For Output As #1 PIint #1 Num Close #1End S

43、ub程序结束参考答案 Private Sub Cale_Click() Text1 Text=“ For i=1 To 100 If Arr(i) 【试题解析】 在 “读数 ”命令的 Click事件过程中，通过调用 ReadData过程将数据从 in5 txt文件读入数组 Arr(窗体变量 )中；在 “计算 ”命令的 Click事件过程中，在 For循环语句 (循环变量 j的初值为 1，终值为 100)中依次将数组 Arr中小于 50的元素的值显示在文本框中，并将其值累加到变量 sum；在 “保存 ”命令的Click事件过程中，通过调用 WriteData过程将 Sum的值写入数据文件out5 txt。