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

《[计算机类试卷]国家二级（VB）机试模拟试卷64及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]国家二级（VB）机试模拟试卷64及答案与解析.doc（29页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级（ VB）机试模拟试卷 64及答案与解析 一、选择题 1 以下关于过程的叙述中，错误的是 （ A）在 Sub过程中不能再定义 Sub过程 （ B）事件过程也是 Sub过程 （ C）过程调用语句的形参个数必须与实参个数相同 （ D）函数过程一定有返回值 2 关于文件操作，以下叙述中正确的是 （ A） Kill命令的作用是删除用户编写的 VB程序文件 （ B）使用 Name命令能够对文件或文件夹重新命名 （ C）用 FileCopy进行文件拷贝时，可以使用通配符 （ D）用 FileCopy可以将打开的文件复制到 指定的文件夹 3 对于能够获得焦点的控件，若要使其不能接收焦点，应该 （ A

2、）将 TabStop属性值设为 True （ B）将 TabStop属性值设为 False （ C）将 TabIndex 属性值设为 0 （ D）将 Enabled属性值设为 False 4 窗体上有一个名称为 Text1的文本框，一个名称为 Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是 （ A） Text1.AddItem Combo1.Text （ B） Combo1.AddItem Text1.Text （ C） Combo1.Text= Text1.Text （ D） Text1.Text=Combo1.Text 5 若要清除列表框控件中的所有列表项，应该使用的方

3、法是 （ A） RemoveItem （ B） Clear （ C） Delete （ D） Refresh 6 以下关于控件的叙述中，正确的是 （ A）标签控件能够获得焦点 （ B）不能对列表框中的列表项进行多项选择 （ C）命令按钮的外观可以被设置为图形 （ D）设置形状控件的 Shape属性，可以使其呈现为直线 7 以下关于框架的叙述中，错误的是 （ A）框架 能够响应 Click事件 （ B）框架是一个容器 （ C）框架的 Enabled属性为 False时，框架内的控件均被屏蔽 （ D）框架可以获得焦点 8 以下关于图片框、图像框的叙述中，正确的是 （ A）图像框可以作为容器 （ B

4、）图片框的 Stretch属性用来自动调整图片框中图形内容的大小 （ C）图片框可以通过 Print方法显示文本 （ D）使用绘图方法能够在图像框上绘制图形 9 窗体上有名称为 List1的列表框。以下能够将列表框当前选定的列表项替换为字符串 “Basic“的语句是 （ A） List1.AddItem “Basic“ （ B） List1.List(List1.ListIndex)= “Basic“ （ C） List1.Text= “Basic“ （ D）以上都可以 10 程序运行时，拖动滚动条上的滚动框，则所触发的事件是 （ A） Move （ B） Scroll （ C） Drag （

5、 D） DragDrop 11 窗体上有一个名称为 CD1的通用对话框，一个名称为 Text1的文本框，窗体的单击事件过程如下： Private Sub Form_Click() CD1.DialogTitle = “改变颜色 “ CD1.Color = Form1.BackColor CD1.Action = 3 Text1.BackColor = CD1.Color End Sub 运行程序时，单击窗体，则以下叙述中错误的是 （ A）通用对话框的标题被改为 “改变颜色 “ （ B）通用对话框被打开为颜色对话框 （ C）若选择颜色对话框中的 “取消 “按钮，则文本框的背景色改为窗体背景色 （

6、 D）若选择颜色对话框中的 “确定 “按钮，则文本框的 背景色改为在颜色对话框中选中的颜色 12 将窗体的 KeyPreview属性设为 True，然后编写如下程序： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 运行程 序时，按下字母键 a，则窗体上显示的是 （ A） A A （ B） A a （ C） a A

7、（ D） a a 13 窗体上有一个名称为 Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() i = 0 Do While i 0 Then p = True Else p = False End If End Function 关于上述程序，以下叙述中正确的是 （ A）程序功能是统计 1-500范围内能被 7整除的整数个数 （ B） Command1_Click事件过程中 If语句的条件表达式不完整 （ C） Function过程定义有误，函数过程 p的名称与该过程中的变量名 p相同 （ D）函数过程 p的返回值为 Boolean类型

8、17 窗体上有一个名称为 Combo1的组合框，一个名称为 Command1的命令按钮。要求编写程序，在组合框中输入一个字符串，当单 击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能： Private Sub Command1_Click() str1 = Trim(Combo1.Text) flag=0 If str1 = 0 To Combo1.ListCount - 1 If str1 = Combo1.List(i) Then Combo1.RemoveItem i Com

9、bo1.Text = “ fl= “0“ And c a(i) Then y = a(i) s = s + a(i) Next Print x, y, s End Sub 关于上述程序的叙述中，正确的是 （ A）程序运行出错，第 1个 For循环之后的 x=a(i)赋值语句错 （ B）程序正常运行， x是 10个随机数中的最大值 （ C）程序正常运行， s是 10个随机数的和 （ D）程序正常运行， 10个随机数的范围是 100-200 21 窗体上有一个名称为 Command1的命令按钮。其单击事件过程如下： Private Sub Command1_Click() Open “c:f1.t

10、xt“ For Input As #1 Open “c:f2.txt“ For Output As #2 Do While Not EOF(1) Line Input #1, str1 Print #2, str1 Loop Close End Sub 以下关于上述程序的叙述中，错误的是 （ A）程序的功能是将 f2.txt文件的内容复制到 f1.txt中 （ B） f1.txt和 f2.txt均是顺序文件 （ C） EOF函数可以判断是否已到文件的末尾 （ D） Close能够把打开的两个文件 都关闭 22 下列叙述中正确的是 （ A）一个算法的空间复杂度大，则其时间复杂度也必定大 （ B）

11、一个算法的空间复杂度大，则其时间复杂度必定小 （ C）一个算法的时间复杂度大，则其空间复杂度必定小 （ D）算法的时间复杂度与空间复杂度没有直接关系 23 下列叙述中正确的是 （ A）循环队列中的元素个数随队头指针与队尾指针的变化而动态变化 （ B）循环队列中的元素个数随队头指针的变化而动态变化 （ C）循环队列中的元素个数随队尾指针的变化而动态变化 （ D）以上说法都不对 24 一棵二叉树中共有 80个叶子结点与 70个度为 1的结点，则该二叉树中的总结点数为 （ A） 219 （ B） 229 （ C） 230 （ D） 231 25 对长度为 10的线性表进行冒泡排序，最坏情况下需要比较

12、的次数为 （ A） 9 （ B） 10 （ C） 45 （ D） 90 26 构成计算机软件的是 （ A）源代码 （ B）程序和数据 （ C）程序和文档 （ D）程序、数据及相关文档 27 软件生命周期可分为定义阶段、开发阶段和维护阶段，下面不属于开发阶段任务的是 （ A）测试 （ B）设计 （ C）可行性研究 （ D）实现 28 下面不能作为结构化方法软件需求分析工具的是 （ A）系统结构图 （ B）数据字典 (DD) （ C）数据流程图 (DFD图 ) （ D）判定表 29 在关系模型中，每一个二维表称为一个 （ A）关系 （ B）属性 （ C）元组 （ D）主码（键） 30 若实体 A和

13、 B是一对多的联系，实体 B和 C是一对一的联系，则实体 A和 C的联系是 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 31 假定有如下的程序段： Dim intVar As Integer intvar = True Print intVar 则输出结果是 （ A） 0 （ B） -1 （ C） True （ D） False 32 为了在 Form_Load 事件过程中用 Print方法在窗体上输出指定的内容，首先应执行的操作是 （ A）设置窗体的 Visible属性 （ B）设置窗体的 AutoRedraw属性 （ C）调用窗体的 Show方法 （ D）设置窗体的 E

14、nabled属性 33 为了在 Form_Load 事件过程中用 Print方法在窗体上输出指定的内容，首先应执行的操作是 （ A）设置窗体的 Visible属性 （ B）设置窗体的 AutoRedraw属性 （ C）调用窗体的 Show方法 （ D）设置窗体的 Enabled属性 34 以下不能用 Print方法输出数据的对象或窗口是 （ A）窗体 （ B）立即窗口 （ C）图片框 （ D）代码窗口 35 下列程序段的输出结果是 x = 5 Print x + 1; x + 1 （ A） 6 6 （ B） 5 5 （ C） 6 7 （ D） 5 6 36 以下可以判断是否在文本框（名称为 T

15、ext1）内按下了回车键的事件过程是 （ A） Text1_Change （ B） Text1_Click （ C） Text1_KeyPress （ D） Text1_GotFocus 37 下列符号常量的声明中不合法的是 （ A） Const a As Single = 3.5 （ B） Const a As Double = 5+8 （ C） Const a As Integer = “25“ （ D） Const a = “OK“ 38 以下叙述中错误的是 （ A）用 ReDim语句可以改变数组的维数 （ B）用 ReDim语句可以改变数组的类型 （ C）用 ReDim语句可以改变数组

16、每一维的大小 （ D）用 ReDim语句可以对数组中的所有元素置 0或空字符串 39 在窗体模块的声明部分声明变量时，不能使用的关键字是 （ A） Dim （ B） Public （ C） Private （ D） Static 40 以下说法中正确的是 （ A）任何时候都可以用 Ctrl+E键打开菜单编辑器 （ B）只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 （ C）只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 （ D）任何时候都可以用标准工具栏的 “菜单编辑器 “按钮打 开菜单编辑器 二、基本操作题 41 (1)在名称为 Form1，标题为 “练习 ”的窗体上添加一个名称为

17、Frame1、标题为 “效果 ”的框架。框架内含有三个复选框，其名称分别为 Chk1、 Chk2和 Chk3，标题分别为 “倾斜 ”、 “加粗 ”和 “下划线 ”。 程序运行后的窗体如图所示。 要求：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为sjtl frm。 (2)在名称为 Form1的窗体上添加一个名称为Lqhel1的标签，使其初始内容为空，且能根据其标题内容自动调整标签的大小；再添加两个命令按钮，标题分别为 “日期 ”和 “时间 ”，名称分别为 Command1、Command2。请编写两个命令按钮的 Click事件过程，使得单击 “日期 ”按钮时

18、，标签内显示系统当前日期；单击 “时间 ”按钮时，标签内显示系统当前时间。如图所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用题 42 (1)考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则将考生文件夹下 in3 dat文件中的 100个正整数读人数组 a中。 单击 “统计 ”按钮，则找出这 100个正整数中的所有完全平方数 (一个整数若是另一个整数的平方，那么它就是完全平方数。如 36=62，所以 36就是一个完全平方数

19、 )，并将这些完全平方数的最大值与个数分别在文本框 Text1、 Text2中显示。 在给出的窗体文件中已经有了全部控件 (如图所示 )，但程序不完整，请将程序中的注释符去 掉，把“?”改为正确的内容，实现上述功能。 注意：考生不得修改窗体文件已存在的控件和程序，最后将程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有两个命令按钮，标题分别为 “添加 ”和 “退出 ”，一个初始内容为空的列表框 List1。请添加一个标签，其名称为 Label1，标题为 “请输入编号 ”；再添加一个名称为 Text1，初始文本为空的文本框，如图所示。程序功能如下： 程序启动时

20、，自动向列表框添加一个编号信息“a0001”。 程序运行时，在文本框 Textl中输入一个编号，并单 击 “添加 ”按钮时，如果该编号不与已存在于列表框中的其他编号重复，则将其添加到列表框List1已有项目之后；否则，将弹出 “不允许重复输入，请重新输入 !”对话框，单击该对话框中的 “确定 ”按钮，可以重新输入。 单击 “退出 ”按钮，则结束程序运行。 要求：请去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后将修改后的文件按原文件名存盘。 四、综合应用题 43 在窗体上建立三个菜单 (名称分别为 Read、 Calc和 S

21、ave，标题分别为 “读入数据 ”、 “计算并输出 ”和 “存盘 ”)，然后添加一个文本框 (名称为 Text1，可显示多行，ScrollBars属性设置为 2)(如图所示 )。程序运行后，如果执行 “读人数据 ”命令，则读入 datainl txt文件中的 100个整数，将其放入一个数组中，数组的下界为 1；如果单击 “计算并输出 ”按钮，则把该数组中大于等于 50的元素显示在文本框中，求出它们的和，并把所求得的和显示在窗体上；如果单击 “存盘 ”按钮，则把所求得的和存入考生文件夹下的 dataout txt文件中。 在考生文件夹下有一个工程文件sjt5 vbp，考生可以装入该文 件。窗体文

22、件中的 ReadData过程可以把 datain1 txt文件中的 100个整数读人数组 Arr中；而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中 (整数值通过计算求得，文件名为 dataout txt)。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sjt5 vbp，窗体文件名仍保存为 sjt5 frm。 国家二级（ VB）机试模拟试卷 64答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 在调用过程的语句中，要求实参个数与被调用过程形参 个数一致。 2 【正确答案】 B 【试题解析】 Kill 命令用以删除文件，不能删除文件夹。

23、 FileCopy 可以把源文件拷贝到目标文件，拷贝后两个文件的内容完全一样。打开的文件不能拷贝。拷贝文件不能含有通配符（ *或？）。 3 【正确答案】 D 【试题解析】 TabStop 属性是用来设置是否允许用户使用 Tab 键将焦点移到该控件上，默认情况下是允许的。若其值为 True时，允许使用 Tab 键将焦点移到该控件；否则，就不允许。 TabIndex 属性则是用来设置该控件的跳表顺序的，取值是一个整数，从 0开始依次类推，该属性的值小的将先获取焦点。 Enabled是用来设置控件是否可用。 根据题意，选项 D)正确。 4 【正确答案】 B 【试题解析】 AddItem方法用来在组合

24、框中插入一行文本，格式为：组合框框 .AddItem 项目字符串 ,索引值 。 5 【正确答案】 B 【试题解析】 Clear 方法用来清除列表框中的全部内容，格式为：列表框 .Clear。 6 【正确答案】 C 【试题解析】 标签、框架、菜单、直线、形状、图像框、计时器都不能接收焦点，选项 A)错误；列表框用于显 示可供做单一或多个选择的列表项，选项 B)错误；形状控件 (Shape)提供了显示一些规则图形的简易方法，通过设置形状控件Shape属性值，可显示 6种图形： 0矩形、 1正方形、 2椭圆、 3圆、 4圆角矩形、 5圆角正方形，选项 D)错误。 7 【正确答案】 D 【试题解析】

25、标签、框架、菜单、直线、形状、图像框、计时器都不能接收焦点。 8 【正确答案】 C 【试题解析】 窗体控件、框架控件和图片框控件可以作为其他控件的容器，选项A)错误；图像框控件 Stretch 属性返回或设置一个值 ,该值用 来指定一个图形是否要调整大小 ,以适应与图像框控件的大小，选项 B)错误；使用绘图方法能够在图片框上绘制图形，选项 D)错误。 9 【正确答案】 B 【试题解析】 AddItem用于将列表项添加到列表框。 Text属性是被选定的选项的文本内容。列表框的 List属性用来列出表项的内容，也可以改变数组中的已有值，属性 ListIndex 用于返回当前选择的列表项的索引号。选

26、项 B)正确。 10 【正确答案】 B 【试题解析】 在滚动条内拖动滚动框时，触发产生 Scroll 事件。 11 【正确答案】 A 12 【正确答案】 B 【试题解析】 KeyCode是按键的实际的字符 (不区分大小写 )， KeyAscii 是以字符为准，是所按键的 ASCII码。 13 【正确答案】 B 【试题解析】 For循环中 n从 1累加到 i。 Do While 循环由循环变量 i控制一共执行 6次。选 B）。 14 【正确答案】 D 【试题解析】 f(ByVal a As Integer, ByRef b As Integer, c As Integer)函数中 a是值传递，

27、b地址传递， c缺省为地址传递。值传递使用两个 存储单元，地址传递使用同一个存储单元，会改变变量的值。选 D）。 15 【正确答案】 D 【试题解析】 所有维的数组缺省下界都是 0 或 1，这取决于 Option Base 语句的设置。本题中有语句 Option Base 1，所以 LBound(a) = 1， UBound(a) = 6； For循环进行求和计算，结果为 52，选 D）。 16 【正确答案】 D 【试题解析】 程序功能是统计 1-500范围内不能被 7整除的整数个数；函数过程p 的返回值根据函数定义可知为 Boolean 类型。选 D）。 17 【正确答案】 D 【试题解析】

28、 组合框的 ListCount从 0开始； RemoveItem和 AddItem后面跟的是索引。根据题意，在没有相同列表项时需要添加，所以语句应该为 flag = 0。选D）。 18 【正确答案】 C 【试题解析】 函数 fun 执行后， x值被改变， y值不变。即 x=9， y=5；计算得结果为 33，选 C）。 19 【正确答案】 D 【试题解析】 根据题意可知，第 2个 For循环应该是统计的字符个数。 i是循环变量，所以选 D）。 20 【正确答案】 A 【 试题解析】 第一个 For循环中缺省 Step，步长为 1，退出循环时下标为 10，第 1个 For循环之后的 x=a(i)赋

29、值语句下标越界，出错。选 A）。 21 【正确答案】 A 【试题解析】 程序的功能是将 f1.txt文件的内容复制到 f2.txt中。 Open 打开文件时，可以用三种模式，即 OutPut：打开一个文件，将对该文件进行写操作；Input：打开一个文件，将对该文件进行读操作； Append：打开一个文件，将在该文件末尾追加记录。选 A）。 22 【正确答案】 D 【试题解析】 算法的空间复杂度 是指算法在执行过程中所需要的内存空间，算法的时间复杂度，是指执行算法所需要的计算工作量，两者之间并没有直接关系，答案为 D。 23 【正确答案】 A 【试题解析】 在循环队列中，用队尾指针 rear指向

30、队列中的队尾元素，用排头指针 front指向排头元素的前一个位置。因此，从排头指针 front指向的后一个位置直到队尾指针 rear指向的位置之间所有的元素均为队列中的元素。所以循环队列中的元素个数与队头指针和队尾指针的变化而变化， A正确。 24 【正确答案】 B 【试题解析】 二叉树中，度为 0的节 点数等于度为 2的节点数加 1，即 n2=n0-1，叶子节点即度为 0，则 n2=79，总结点数为 n0+n1+n2=80+70+79=229，答案为B。 25 【正确答案】 C 【试题解析】 冒泡法是在扫描过程中逐次比较相邻两个元素的大小，最坏的情况是每次比较都要将相邻的两个元素互换，需要互

31、换的次数为9+8+7+6+5+4+3+2+1=45，选 C。 26 【正确答案】 D 【试题解析】 软件指的是计算机系统中与硬件相互依赖的另一部分，包括程序、数据和有关的文档，选 D。 27 【正确答案】 C 【试题解析】 开发阶段包括分析、设计和实施两类任务。其中分析、设计包括需求分析、总体设计和详细设计 3个阶段，实施则包括编码和测试两个阶段， C不属于开发阶段。 28 【正确答案】 A 【试题解析】 结构化方法软件需求分析工具主要有数据流图、数据字典、判定树和判定表。 29 【正确答案】 A 【试题解析】 关系模型采用二维表来表示，即每个二维表称为一个关系。 30 【正确答案】 B 【试

32、题解析】 A和 B 为一对多的联系，则对于 A中的每一个实体， B 中有多个实体与之联系，而 B与 C为 一对一联系，则对于 B中的每一个实体， C中之多有一个实体与之联系，则可推出对于 A中的每一个实体， C中有多个实体与联系，所以为一对多联系。 31 【正确答案】 B 【试题解析】 VB 里面 True = -1, False = 0。 32 【正确答案】 C 【试题解析】 窗体加载的时候是可以 Print的，但这个时候还没有显示出来，看不到 Print的结果，要调用窗体的 Show方法显示结果。 33 【正确答案】 C 【试题解析】 窗体加载的时候是可以 Print的，但这个时候还没有显

33、示出 来，看不到 Print的结果，要调用窗体的 Show方法显示结果。 34 【正确答案】 D 【试题解析】 Print方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。其一般格式为： 对象名称 Prim表达式表 ，|； ，其中的 “对象名称 “可以是窗体 (Form)、图片框 (PictureBox)或打印机(Printer)，也可以是立即窗口 (Debug)。不能是代码窗口。 35 【正确答案】 A 【试题解析】 Print方法对于数值表达式只打印表达式的值。该题 中的表达式中x的值没有发生变化，始终等于 5，所以输出结果是 6 6。 36 【正确答案】

34、C 【试题解析】 KeyPress 事件：用户按下并且释放一个会产生 ASCII码的键时被触发。此事件只对会产生 ACSII 码的按键有反应，包括数字、大小写的字母、Enter、 Backspace、 Esc、 Tab 等，对于如方向键这样的不会产生 ASCII码的按键， KeyPress 事件就不会被触发。 37 【正确答案】 C 【试题解析】 定义符号常量的一般格式： Const 常量名 As 数据类型 =表达式，“常 量名 “参数就是给常量命名。 “数据类型 “表示常量的数据类型，一般可以省略，这时由后面的 “表达式 “参数来指明常量的数据类型。表达式可以是数值型常量、字符型常量、布尔型

35、常量和日期型常量。 38 【正确答案】 B 【试题解析】 ReDim语句无法更改数组变量的数据类型。 39 【正确答案】 D 【试题解析】 VB 中变量的作用域分为：局部变量：在过程内用 Dim语句或用Static语句声明的变量，只能在本过程中使用。窗体 /模块级变量：在 “通用声明 “段中用 Dim语句或用 Private语句声明的变量 ,可 被本窗体 /模块的任何过程访问。全局变量：在 “通用声明 “段中用 Public语句声明的变量，可被本应用程序的任何过程或函数访问。 40 【正确答案】 B 【试题解析】 当窗体为活动窗体时，才可以打开菜单编辑器。 二、基本操作题 41 【正确答案】

36、(1)【操作步骤】步骤 1：新建一个窗体，在窗体中添加一个框架和三个复选框。步骤 2：然后在属性窗口中设置控件的属性，程序中用到的控件及属性见表 3.58。步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，在窗体中添加一 个标签和两个命令按钮并设置控件的属性。程序中用到的控件及属性见表 3.59。 步骤 2：编写程序代码。参考答案 Private Sub Command1_Click() Label1 = DateEnd SubPrivate Sub Command2_Click() Label1 = TimeEnd Sub 步骤 3：调试并运行程序，

37、关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(100) As Integer Private Function is square(x As Integer) As Boolean 判断完全平方数 flag = False For m = 1 To Sqr(x) If ? = m 2 Then flag = True Exit For End If Next m is square = ? End Function Private Sub Command1_Click(

38、) Dim k As Integer Open App.Path & “in3.dat“ For Input As #1 For k = 1 To 100 Input #1, a(k) Next k Close #1 End Sub Private Sub Command2_Click() Dim max As Integer Dim num As Integer max = 0 num = 0 For k = 1 To 100 If is square(a(k) Then num = num + 1 If ? Max Then max = a(k) End If End If Next k

39、Text1.Text = ? Text2.Text = ? End Sub 程序结束 参考答案 第 1个？处填入： x 第 2个？处填入： flag 第 3个？处填入： a(k) 第 4个？处填入： max 第 5个？处填入： num 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件，添加一个名称为 Label1，标题为 “请输入编号 “ 的标签；再添加一个名称为 Text1，初始文本内容 为空的文本框。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_Load() ? “a0001“ End Sub Priv

40、ate Sub Command1_Click() For i = 0 To ? List1.ListIndex = ? If List1.Text = Text1.Text Then MsgBox “不允许重复输入，请重新输入！ “ Exit Sub End If Next i ? Text1.Text Text1.Text = “ End Sub Private Sub Command2_Click() ? End Sub 程序结束 参考答案 第 1个？处填入： List1.AddItem 第 2个？处填入： List1.ListCount - 1 第 3个？处填入： i 第 4个？处填入：

41、 List1.AddItem 第 5个？处填入： End 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，利用菜单设计器，按表 3.83中的设置建立菜单 项，在窗体 Form1中绘制一个文本框，其相关属性及其值见表 3.102和表 3.103。 *344 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim Arr(100) As Integer Sub ReadData() Open App.Path & “ & “datain1.txt“ For Input As #1 For

42、i = 1 To 100 Input #1, Arr(i) Next i Close #1 End Sub Sub WriteData(Filename As String, Num As Integer) Open App.Path & “ & Filename For Output As #1 Print #1, Num Close #1 End Sub 程序结束 参考答案 Private Sub Calc_Click() Text1.Text = “ For i = 1 To 100 If Arr(i) = 50 Then Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save_Click() WriteData “dataout.txt“, sum End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。