1、VB机试模拟试卷 136及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上建立一个主菜单，标题为 “操作 ”，名称为 op，该菜单有两个子菜单，其标题分别为 “显示 ”和 “清除 ”，其名称分别为 Dis和 Clear，编写适当的事件过程。程序运行后，如果单击 “操作 ”菜单中的 “显示 ”命令，则在窗体上显示 “等级考试 ”；如果单击 “清除 ”命令，则清除窗体上显示的内容。程序的运行情况如图1-196所示。注意；存盘时必须存放在考生文 件夹下，工程文件名为 sjtl vbp，窗
2、体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个标签，其名称为 Labl；再画一个列表框，其名称为 L1，通过属性窗口向列表框中添加若干项目，每个项目的具体内容不限。编写适当的事件过程。程序运行后，如果双击列表框中的任意一项，则把列表中的项目数在标签中显示出来。程序运行情况如图 1-197所示。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其窗体上有一个名称为 Labell的控件数组，含三个标签，标题分别是
3、“开始时间 ”、 “结束时间 ”和 “通话费用 ”；有一个名称为 Textl的控件数组，含三个初始值为空的文本框；此外还有两个名称分别为 Cmdl和 Cmd2的命令按钮，标题分别是 “通话开始 ”和 “通话结束 ”。其中通过属性窗口对 “通话结束 ”命令按钮的初始状态设置为禁用，如图 1-73所示。该程序的功能是计算公用电话计时收费。计时收费标准为：通话时间在 3分钟以内时，收费0 5元； 3分钟以上时，每超过 1分钟加收 0 15元，不足 1分钟按 1分钟计算。程序执行的操作如下： 如果单击 “通话开始 ”按钮，则在 “开始时间 ”右侧的文本框中显示开始时间，且 “通话结束 ”命令按钮变为可
4、用状态， “通话开始 ”命令按钮不可用； 如果单击 “通话结束 ”按钮，则 “结束时间 ”右侧的文本框中显示结束时间，同时计算通话费用，并将其显示在 “通话费用 ”右侧的文本框中， “通话开始 ”命令按钮变为可用状态， “通话结束 ”命令按钮不可用。在窗体文件中已经给出了全部控件(如图 l-73所示 )和程序，但程序不完整，要求去掉程序中的注释符，把 ?改为正确的内容，以实现上述功能。注意； 不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，文件 in4 txt中有 5组数据，每组 10个，依次代表语文、英语、数学、物理
5、、化学这 5门课程 10个人的成绩。程序运行时，单击 “读入数据 ”按钮，可从文件 m4 mr中读入数据放到数组 a中。单击 “计算 ”按钮，则计算 5门课程的平均分 (平均分取整 )，并依次放入 Textl文本框数组中。单击 “显示图形 ”按钮，则显示平均分的直方图，如图 1-74所示。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中 的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sit5 vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在
6、窗体上画一个名称为 Textl的文本框；画一个名称为cl、标题为 “计算 ”的命令按钮；再画两个单选按钮，名称分别为 Opl、 Op2，标题分别为 “求 500到 600之间能被 7整除的数之和 ”、 “求 500到 600之间能被 3整除的数之和 ”(如图 1-225所示 )。请编写适当的 事件过程，使得在运行时，选中一个单选按钮，再单击 “计算 ”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一
7、种计算，否则不得分。VB机试模拟试卷 136答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单 设计器，如表 2-112中的设置建立菜单项。 步骤 2：打开代码编辑窗口，编写以下事件过程： 参考代码： PriVate Sub Clea_Click() Cls End Sub PriVate Sub Dis_Click() Print“等级考试 “ End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗
8、体 Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 Ll，在其 List属性中任意添加四个项目。注意：每输入完一项后按键换行再 输入下一项。在窗体上再画出一个标签，名称为 Labl。 步骤 2：打开代码编辑窗口，编写列表框的 DblClick事件过程： 参考代码： PriVate Sub L1_DblClick() Labl Caption=L1 ListCount End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题需用菜单设计器建立菜单，并编写 “显示 ”和 “清除 ”菜单项的单击事件过程。 第 2小题 列表框控件 (ListBo
9、x)用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List属性设置加入，也可在程序运行时使用Addltem方法加入，列表框中的项目总数由列表框的 ListCount属性可以得到。 双击列表框中的某个项目，将触发其 DblClick事件。要实现双击列表框中的某一项，就把列表框中的项目总数显示在标签中，只需在 DblCliek事件过程中编写添加项目的语句即可。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考
10、代码： Textl(0) text=Str(Time() s=s+ (m-3) *0 15 Cmdl Enabled=True Cmd2 Enabled=False 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开考生文件下的本题工程文件 sjt4 vbp。在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Open App Path&“ in4 txt“For Input As#1 s(i) =s(i) +a(i， j) 8(i)=CInt(s(i) 10) Shapel(k-1) Top=m-Shapel(k-1) -
11、Height Shape1 (k-1) Visible=True 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 Enabled属性用于设置控件或 菜单项在程序运行时是否有效，值为 True时表示有效，值为 False时表示无效 (显示为灰色 )。 题目要求在单击 “通话开始 ”按钮时，在 “开始时间 ”右侧的文本框中显示开始时间，故 Cmdl Click事件过程中的 ?处应改为： Textl(0) text。 在单击 “通话结束 ”按钮时，先计算通话时长，再计算通话费用。若通话时长在 3分钟以上，则通话费用为： s+(m-3)*0 15。设置 Cmdl的 Enabled
12、属性值为True，将使 “通话开始 ”命令按钮变为可用，设置 Cmd2的 Enabled属性值为Fasle，将使 “通话结束 ”命令按钮不可用。 第 2小题 “读入数据 ”按钮的单击事件过程中， Open语句用于打开数据文件以读入数据，故 ?应改为： Input。 “计算 ”按钮的单击事件过程中，原程序用嵌套 For循环来计算 5门课程的平均分，其中内循环体中变量 s(i)用于统计：某课程的总分，表达式为： s(i)=s(i)+a(i， j)，外循环体中变量 s(i)的最终值应为某课程的平均分。 “显示图形 ”按钮单击事件过程的 For循环中，根据每门课程的平均分，先计算出对应直方图的高度，然
13、后计算该直方图的 Top属性值 (应为水平直线的 Y1(或 Y2)属性值减去直方图的高度 )，最后显示该直方图 (通过设置其 Visible实现 )。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件sit5 vbp，如表 2-132所列在窗体 Forml中画出控件，分别设置它们的相关属性。步骤 2：打开代码编辑窗口，编写 “计算 ”按钮的单击事件过程。 参考代码： PriVate Sub C1_Click() If Opl Value Then Textl Text=fun(7) End If If Op2 Value Then Textl
14、 Text=fun(3) End If End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 本题原程序中已包含一个能计算 “500 600之间能被整数 a整除的数之和 ”的自定义函数，其中 a为函数的形参，还需编写 “计算 ”按钮的单击事件过程。在该事件过程中根据单选按钮的选择情况，来确定除数的值：如果 opl被选中，则除数应为 7，通过执行语句 Textl Text=fun(7)可调用自定义函数求出500 600之间能被 7整除的数之和，并显示在文本框中；如果 Op2被选中，则除数 应为 3，通过执行语句 Textl Text=fun(3)可调用自定义函数求出 500 600之间能被 3整除的数之和，并显示在文本框中。
