1、国家二级（ VB）机试模拟试卷 189及答案与解析 一、选择题 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）需求分析阶段 （ 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） 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(0
5、To 5， To 3)As Integer 15 现有语句： y=llf(x 0， x Mod 3， 0)设 x=10，则 y的值是 ( )。 （ A） 0 （ B） 1 （ C） 3 （ D）语句有错 16 窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示，下列选项错误的是 ( )。（ A）在设计 “粘贴 ”菜单项时，在菜单编辑器窗口中设置了 “有效 ”属性 (有 “”) （ B）菜单中的横线是在该菜单项的标题输入框中输入了一个 “一 ”(减号 )字符 （ C）在设计 “选中 ”菜单项时，在菜单编辑器窗口中设置了 “复选 ”属性 (有 “”)
6、（ D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了 “可见 ”前面的“” 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
7、Integer （ 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 Intege
8、r) End Sub 其中参数 KeyCode的值表示的是发生此事件时 ( )。 （ A）是否按下了 Alt键或 Ctrl键 （ B）按下的是哪个数字键 （ C）所按的键盘键的键码 （ D）按下的是哪个鼠标键 23 窗体上有一个名称为 HSemlll的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 ( )。 （ A） Private Sub HSerolll_Change() Print HSerolll Value End Sub （ B） Private Sub HScrolll_Change() Print H
9、Scroll1 SmallChange End Sub （ C） Privme Sub HScrolll_Scroll() Print HScrolll Value End Sub （ D） Privme Sub HScrolll_Scroll() Print HScrolll 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 设窗体上有一个标签 Labell和一个计时器 Timerl， Timerl的 Interval属性被设置为 1000， Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间
11、。以下可以实现上述要求的事件过程是 ( )。 （ A） Privme Sub Timerl_Timer() Labell Caption=True End Sub （ B） Private Sub Timer1_Timer() Labell Caption=Time$ End Sub （ C） Private Sub Timerl_Timer() Labell Interval=1 End Sub （ D） Privme Sub Timer1_Timer() For k=1 To Timer1 Interval Labell Caption=Timer Next k End Sub 28 窗体
12、上有一个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为 0、 1、 2、 3，窗体外观如图所示。命令按钮的事件过程如下： Privme 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 窗体上有一个名称为 FrfllneI的框架 (如图 )，若要把框架上显示的 “Franticl”改为汉字 “框架 ”，下面正确的语句是 ( )。 （ A） Framel Name=“框架 ” （ B） Framel Caption=“框架 ” （ C） Fralnel Text=“框架 ” （ D） Framel Value=“框架 ” 30 在窗体上画一个名称为 Combol的组合框，名称为 Textt的文本框，以及名称为Command1的命令按钮，如图所示
14、。运行程序，单击命令按钮，将文本框中被选中的文本添加到组合框中，若文本框中没有选中的文本，则将文本框中的文本全部添加到组合框中。命令按钮的事件过程如下： Private Sub CommandlClick() If Textl SelLength0 Then Else Cornbol Addltem Text1 End If End Sub程序中横线处应该填写的是 ( )。 （ A） Combol AddItem Text1 Text （ B） Combol AddItem Text1 SdStart （ C） Combol Addhem Text1 SelText （ D） Combol A
15、ddhem Text1 SelLen舢 31 窗体上有一个名称为 Textl的文本框，一个名称为 CDl的通用对话框，一个标题为 “打开文件 ”的命令按钮，如图所示。 命令按钮的单击事件过程如下： Pfivate Sub CommandlClick()CD1 ShowOoenOpen CD1 FileName For Input As#1MsgBox CD1 FileNanleLine Input#1 sText1 Text=sClose#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 AddItem Combol Text End If End Sub （ B） Private Sub Combol_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode=13 Then Combol Addltem Text1 Text End If End Sub （ C） Private Sub CombolClick() Com
18、bol Addltem Combol Text End Sub （ D） Private Sub CombolClick() Cornbol 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 CommandlClick(
19、) 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 窗体上的三个命令按钮构成名称为 Commandl的控件数组。如图所示。程序如下： Private Sub CommandlClick(Index As Integer) If Index=1 Then Print“计算机等级考试 ” End If If Index=2 Then Print Commandl(
20、2) Caption End If End Sub运行程序，单击 “命令按钮2”，则如下叙述中正确的是 ( )。 （ A） Print Command1(2) Caption语句有错 （ B）在窗体上显示 “命令按钮 2” （ C）在窗体上显示 “命令按钮 3” （ D）在窗体上显示 “计算机等级考试 ” 36 下面程序的执 行结果是 ( )。 Private Sub Commandl_Click() a=0 k=1 Do While k负号一 乘除 *整除 取模 Mod加减 +、一。根据优先级顺序，先计算 3*2为 6，再 6 5整除为 1，最后 1 Mod 3取模结果为 1。故 A选项正确
21、。 13 【正确答案】 B 【试题解析】 VB中变量的命名规则为： 必须以字母或汉字开头 由 字母、汉字、数字或下划线组成 不能使用 VB已经占用的关键字。本题选项 B中变量名以下划线开头，不合法。故 B选项错误。 14 【正确答案】 C 【试题解析】 定义数组有 2种格式： 第 1种格式： 数组每一维的只给出下标的上界，即可以使用的下标的最大值。 格式为 Dim public private static(上界， 上界 )As 类型名 形如： Dim a(5)As Interger， )im b(4， 5)As Integer 这种形式，数组各维的下标的下界只能为 0或 1，而且下标 的上界
22、 =下界。本题中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 【试题解析】 IlF是条件函数，它的语法格式是： IIf(， ， )，本题中， x=10时，条件表达式x0的值为 True，执行 x Mod 3即 10 Mod 3结果为 1。故选 B。 16 【正确答案】 A 【试题解析】 快
23、捷菜单中的 “粘贴 ”菜单项为无效时，在菜单编辑器窗口中 “有效 ”属性应该是不选中状态，没有 “”，故 A选项错误。 17 【正确答案】 A 【试题解析】 设计窗体时双击窗体的任何地方，默认打开 的是代码窗口。故选A。 18 【正确答案】 D 【试题解析】 VB不要求必须先定义再使用。如果没有提前定义变量，就直接使用，系统就会将变量的数据类型指定为默认数据类型 Variant变体型。故选 D。 19 【正确答案】 C 【试题解析】 单精度 Single或双精度 Uouble型的变量能够保存浮点型小数，整型 Integer和长整型 Long的变量只能保存整型数据。本题中圆周率为 3 14159
24、，小数，可用定义一个 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返回的是所按键的键码，而且大小写字母键码值相同。故选 C。 23 【正确答案】 A 【试题
25、解析】 根 据题意可知，用户的操作是单击滚动条两端的箭头，故触发的是滚动条的 Change事件；在窗体上显示的是滚动框的位置，即滚动条的当前刻度值， Value属性值可返回这个值，综合一下，故 A选项正确。 24 【正确答案】 C 【试题解析】 当命令按钮的 Default属性值为 True时，程序运行，按回车键和单击该命令按钮一样都会触发按钮的 Click事件；当命令按钮的 Cancel属性值为True时，程序运行，按 Esc键和单击该命令按钮都会触发按钮的 Click事件。故选 C。 25 【正确答案】 A 【试题 解析】 的操作方法可使两个单选按钮属于同一个框架，其他方法不行。故 A选项
26、正确。 26 【正确答案】 C 【试题解析】 组合框没有 Caption属性； Text属性用来设置或返回组合框中当前选项的文本内容； Selected属性是列表框控件的属性，组合框没有 Selected属性；List属性用来设置或返回组合框中的各选项，它是一个字符串数组，组合框中各选项内容用 List(下标 )表示。故 A、 B、 D选项错误， C选项正确。 27 【正确答案】 B 【试题解析】 Timerl的 Interval属性值 是 1000， Enabled属性为 True，说明定时器开始工作，每隔 1000毫秒 (即 1秒 )触发一次 Timer事件，从而执行一次Timer事件过程
27、。要想每秒在标签中显示一次系统时间，则在 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时， CDl Action=5，说明单击 “打印 ”按钮，会显示 “打印 ”对话框，但打开对话框后，只能设置打印选项，不能执行打印操作。故
29、C选项错误。 29 【正确答案】 B 【试题解析】 框架的 Name属性是设置框架的名称； Caption属性设置框架的标题，是在框架的左上角显示的内容；框架控件没有 Text和 Value属性。故 B选项正确。 30 【正确答案】 C 【试题解析】 根据题意可知，横线处应该是将文本框中选中文 本添加到组合框中。文本框 Text属性返回整个文本框中的文本，故 A选项错误； SelStart属性返回选中文本的起始位置，故 B选项错误； SelLength属性返回选中文本的长度，故D选项错误； SelText属性返回选中的文本，故 C选项正确。 31 【正确答案】 A 【试题解析】 第 1条语句中
30、用 ShowOpen方法显示 “打开 ”对话框后，在对话框中选中文件，单击 “打开 ”按钮后， CDl FileName属性就会返回打开文件的路径，所以用 Open语句打开文件时，就可用 CDl FileName指定打开文件的路径 ，故B选项说法错误。 因为第 4条语句中要用 Line Input从文件读取数据，故用 Open语句打开文件时用Input模式打开是正确的，故 C选项说法错误。 Line Input命令格式为： Line Input#文件号，变量名，题中 Line Input语句格式正确。故 D选项错误。 本题程序无错误，能实现所说功能，故 A选项正确。 32 【正确答案】 B 【
31、试题解析】 图片框是 “容器 ”控件，可以作为父控件，而图像框不能。图片框可以通过 Print方法接收文本，并可接收由像素组成的图形，而图像框不能接收Print方法输入的信息，也不能用绘图方法在图像框上绘制图形。而形状控件 3D效果的样式，根据题目图示显然不是形状控件。因此这个图形控件是图片框。 33 【正确答案】 A 【试题解析】 在组合框中的输入的文本保存在它的 Text属性中，根据程序要求，只要判断按下了回车键后，使用组合框的 AddItem方法把 Text中的字符添加到列表中即可。选项 C和 D没有判断是否按下回车键，所以排除。而选项 B中使用 AddItem方法添加的是 Text1
32、Text的值，不是组合框 Combol的 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。 35 【正确答案】 D 【试题解析】 控件数组
33、与 数据数组一样下标默认从 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(字符串，起始位置，长度 )，ucase函数的作用是
34、把字符串中的小写字母转换为大写字母。题目中 Mid函数截取字符串 “FormList”第 5个字符开始的 4个字符，结果为 “List”， ucase函数把 “List”全部变为大写，即 “LlST”。 38 【正确答案】 C 【试题解析】 题目程序不能将 List1中的选中项添加到 List2中，List2 AddItem Text一行有误，应该改为 List2 AddItem Listl List(i)才能使Listl中每个选中的行添加到 List2中。列表框控件的 Lis1属性保存了列表框中所有值的数组，可以通过下标访问数组中的值。 39 【正确答案】 A 【试题解析】 题目中 fun过
35、程是一个递归过程，它的结束条件是参数值为奇数。第一次调用，参数值为 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， 2)=2*2 mod 2=0a(2， 3)=
36、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)新建一个窗体，设置窗体的 Caption属性和 MaxButton属性值；在窗 体上添加一个标签控件，设置标签控件的 Caption属性，再添加一个文本框控件，设置文本框的 Text属性、 MaxLength属性和 passwordChar属性。【操作步骤】步骤 1：新建一个窗体，根据表 2 1设置窗体的相关属性。步骤 2：向窗体中添加一个标签控件，根
37、据表 2 2设置控件的相关属性。 步骤 3：向窗体中添加一个文本框控件，根据表 2 3设置控件的相关属性。步骤 4：调试并运行程序，关闭程序后按题目要求存盘： (2)新建一个 Forml窗体，在窗体上添加一个 Shape控件并设置控件的 Shape属性为 3一 Circle， BackStyle属性为 1一 Opaque；再添加一个 HScroll控件，设置控件的 Min属性为 0， Max属性为 255，并为 HScroll控件的 Change事件添加代码。【操作步骤】步骤 1：新建一个窗体，在窗体上添加一个 Shape控件，并按照表 2 4设置控件的相关属性。 步骤2：向窗体中添加一个 H
38、Scroll控件，按照表 2 5设置控件的相关属性。步骤 3：双击 HScmlll控件，打开代码编辑窗口，在代码编肄窗口指定位置编写以下代码。编写程序代码。 Private Sub HScrolllChange()End Sub步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)本题要产生随机整数，须使用 Rnd函数和 Int函数。 Int函数是将参数转换成整数。 Rnd函数返回小于 1，但大于或等于 0的值，为了生成某个范围内的随机整数，可使用以下公式： Int(upperboundlowerbound+1)*Rnd+lowerbound) 这里，
39、 upperbound是随机数范围的上限， lowerbound则是随机数范围的下限。 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Commandl_Click() Dim arrN(20)As Integer Dim Sum As Integer Randomize For i=1 To 20 arrN(i)=Int(Rnd*?) Next i Sum=? For i=l To 20 If?then sum=? End If Next i Print Sum End Sub 程序结束 参考答案
40、第 1个 ?处填入： 1000 第 2个 ?处填入： 0 第 3个 ?处填入： anN(i)500 第 4个 ?处填入： Sum+arrN(i) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)根据题意，通过 For循环语句的循环变量 i(初值为 0，终值为 100，步长为 2)来获得 0 100范围内的所有偶数，并逐一将 i2的值累加到变量 s，最后将 s的值显示在文本框中，并将其作为函数返回值。 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代 码 Sub SaveData() Open App Path&“ &”outtxt txt”Fo
41、r Output As#1 Print#1 Text1 Text Close#1 End Sub Function Fun() End Furic|ion Private Sub CommandlClick() d=Fun() Text1 Text=d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Long i As Integer s=0 For i=0 To 100 If i Mod 2=0 Then s=s+i2 End If Next i Fun=s End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
42、四、综合应用题 43 【正确答案】 向窗体中添加一个 Text文本框控件，并根据题目要求设置 Text的相关属性，根据代码中 narc函数的首部，可以判断出该函数的功能是判断参数 p是否为水仙花数，可以在函数中 定义一个布尔型变量 flag，将参数 p表示的三位数的个位，十位，百位分别表示出来，通过 if语句判断每位数的立方和是否与该数相等，若将 flag设置为 true，最后返回 flag的值。【操作步骤】步骤 1：打开本题工程文件。步骤 2：向窗体中添加一个 Text文本框控件，并根据题目要求设置Text的相关属性设置方法如表 1 7所示。步骤 3：打开代码编辑窗口，填入相应的代码以实现题目的功能。参考答案 (阴影部分是需考生填入的内容 )Function narc(p As Integer)As BooleanDim flag As BooleanFlag=FalseIf(p Mod 10)3+(p)10Mod 10)3+(p/100)3=p ThenFlag=TrueEnd IfNare=flagEnd Function步骤 4：调试并运行程序。关闭程序后按题目要求存盘。
