1、VB 机试-试卷 37 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 visualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Shapel 的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求：圆角矩形中填满绿色(颜色值为&HOOOOFF00&或&HFF00&)：窗体的标题为“圆角矩形”。运行后的窗体如图 1-17l 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件
2、名为 sjt1frm。 (2)在考生文件夹下有一个工程文件 sjt2vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Textl 中的通话时间计算通话费，并将其显示在 Text2 中。程序运行时，单击“通话开始”按钮，则在 Textl 中累加通话时间(每秒加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 subl。要求：在窗体上画一个计时器(如图1-172 所示)，并通过属性窗口设置适当属性。编写三个按钮的 Click 事件过程。编写计时器的事件过程。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”
3、按钮的事件过程中只允许调用过程 subl。不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。（分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有一个工程文件 sjl3vbp，窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮(如图 1-158 所示)。程序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部
4、分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，相应的窗体文件为 sjt4frm。窗体上有一个名称为 Commandl 的命令按钮和一个名称为 Timerl 的计时器。如图 1-159 所示，请在窗体上画一个标签(名称为 Labell，标题为“请输入一个正整数”)，再画一个文本框(名称为 Textl，初始内容为空白)。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔 03 秒减1(倒计数)：当减到 0 时，倒计数停止，清空文本框，并把焦点移到文本框中。要求：去掉程序中
5、的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sjt5vbp，请先装入该工程文件，然后完成以下操作：在名称为Forml 的窗体上画三个命令按钮，其名称分别为 Cl、C2 和 C3，标题分别为“读入数据”、“计算”和“存盘”(如图 1-205 所示)。程序运行后，如果单击“读入数据”按钮，则利用题目中提供的ReadDatal、ReadData2 过程读入 datainltxt 和 datai
6、n2txt 文件中的各 20 个整数，分别放入两个数组 Arrl 和 Art2 中；如果单击“计算”按钮，则把两个数组中对应下标的元素相加，其结果放入第三个数组中(即第一个数组的第 n 个元素与第二个数组的第 n 个元素相加，其结果作为第三个数组的第，1 个元素。这里的，l 为 l，2，20)，最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的 WriteDate 过程将计算结果存入考生文件夹下的dataouttxt 文件中。注意：请仔细阅读已有程序。考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击“存盘”按钮存入考生文件夹下的 d
7、ataouttxt 文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 （分数：2.00）_VB 机试-试卷 37 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.请根据以下各小题的要求设计 visualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Shapel 的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求：圆角矩形中填满绿色(颜色值为&HOOOOFF00&或&HFF00&)：窗体的标题为“圆角矩形”。运行
8、后的窗体如图 1-17l 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在考生文件夹下有一个工程文件 sjt2vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Textl 中的通话时间计算通话费，并将其显示在 Text2 中。程序运行时，单击“通话开始”按钮，则在 Textl 中累加通话时间(每秒加 1)，单击“通话结束”按钮，则停止通话时间的累加；单击“计算通话费”按钮，则调用过程 subl。要求：在窗体上画一个计时器(如图1-172 所示)，并通过属性窗口设置适当属性。编写三个按钮的 Click
9、事件过程。编写计时器的事件过程。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句，“计算通话费”按钮的事件过程中只允许调用过程 subl。不得修改已经存在的内容和控件属性，最后把文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1:新建一个“标准 EXE”工程，如表 2-98 在窗体中画出控件并设置其相关属性。 )解析：解析：第 1 小题 当形状控件的 Shape 属性值是 4 时显示为圆角矩形；形状控件的填充色通过FillColor 属性设置，填充色样式通过 FillStyle 属性设置。 第 2 小题 Enabled(可用)属性用于设
10、置控件或菜单项在程序运行时是否可用，值为 True 表示可用，值为 False 表示不可用。 本题需要在命令按钮的单击事件过程中控制计时器是否可用，在计时器的 Timer 事件中令文本框的值每秒增 l。二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有一个工程文件 sjl3vbp，窗体上有一个单选按钮数组，含三个单选按钮；还有一个标题为“显示”的命令按钮(如图 1-158 所示)。程序的功能是，在运行时，如果选中一个单选按钮并单击“显示”按钮，则在窗体上显示相应的信息，例如若选中“小学生”，则在窗体上显示“我是小学生”。要求：去掉
11、程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，相应的窗体文件为 sjt4frm。窗体上有一个名称为 Commandl 的命令按钮和一个名称为 Timerl 的计时器。如图 1-159 所示，请在窗体上画一个标签(名称为 Labell，标题为“请输入一个正整数”)，再画一个文本框(名称为 Textl，初始内容为空白)。已经给出了相应的事件过程。程序运行后，在文本框中输入一个正整数，此时如果按回车键，则可使文本框中的数字每隔 03 秒减1(倒
12、计数)：当减到 0 时，倒计数停止，清空文本框，并把焦点移到文本框中。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt3vbp。 步骤 2：打开代码编辑窗口，在代码编辑窗口，去掉程序中的注释符们“”，将问号“?”改为正确的内容。 参考代码： For i=0 To 2 If Opl(i)Value=True Then Print“我是“+Opl(i)Caption End If Next 步骤
13、3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4vbp，如表 2-90 在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If Val(TextlText)=0 Then TimerlEnabled=False TextlSetFocus )解析：解析：第 1 小题 某容器(如窗体和框架)中的单选按钮(OptionButton)组常用于提供多个选项之间的唯一选择，其 Value 属性用于设置或返回每个单选按钮的选中状态：值为 False 时表示未被选中
14、，值为True 时表示被选中，其 Caption 属性来设置或返回单选按钮的标题内容。 根据题目要求，在本题的程序设计上，需要用循环依次遍历单选按钮数组的每一个元素，如果该元素处于选中状态，则在窗体上输出结果。 第 2 小题 可借助计时器来完成有规律性时间间隔执行的任务。本题计时器工作时，为使文本框中的数每隔 0-3 秒减 1，需将计时器的 Interval 属性值设置为 300 毫秒，在命令按钮的单击事件过程中通过语句 TimerlEnabled=True 启动计时器，在计时器的 Timer 事件过程中通过语句TextlText=TextlText-1 实现倒计数。三、综合应用题(总题数：2
15、，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sjt5vbp，请先装入该工程文件，然后完成以下操作：在名称为Forml 的窗体上画三个命令按钮，其名称分别为 Cl、C2 和 C3，标题分别为“读入数据”、“计算”和“存盘”(如图 1-205 所示)。程序运行后，如果单击“读入数据”按钮，则利用题目中提供的ReadDatal、ReadData2 过程读入 datainltxt 和 datain2txt 文件中的各 20 个整数，分别放入两个数组 Arrl 和 Art2 中；如果单击“计算”按钮，则把两个数组中对应下标的元素相加，其结果放入第三个数
16、组中(即第一个数组的第 n 个元素与第二个数组的第 n 个元素相加，其结果作为第三个数组的第，1 个元素。这里的，l 为 l，2，20)，最后计算第三个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则调用题目中给出的 WriteDate 过程将计算结果存入考生文件夹下的dataouttxt 文件中。注意：请仔细阅读已有程序。考生不得修改窗体文件中已经存在的程序，必须把求得的结果单击“存盘”按钮存入考生文件夹下的 dataouttxt 文件中，否则没有成绩。最后把修改后的文件以原来的文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤
17、1：打开考生文件中的本题工程文件 sjt5vbp，在窗体中如表 2-119 画出控件，并设置其属性。 * 步骤 2：在代码编辑窗口编写以下事件过程。 参考代码： Dim Sum As Integer Private Sub C1_C1ick() ReadDatal ReadData2 End Sub Private Sub C2 Click() Dim Art3(20)As Integer Sum=0 For i=1 TO 20 Arr3(i)=Arrl(i)+Arr2(i) Sum=Sum+Arr3(i) Next i Print“Sum=“：Sum End Sub Private Sub
18、C3_Click() 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Forml 中画一个名称为 Commandl，Caption 属性为“命令按钮”的命令按钮。步骤 2：选择，【工具】【菜单编辑器】命令，打开菜单设计器，如表 2-13 中的设置建立菜单项。 图片 248* 步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。 参考代码： PriVate Sub subMenul_Click() CommandlVisible=True End Sub PriVate Sub subMenu2_Click() CommandlVisible=False End
19、Sub 步骤 4：按要求将文件保存至考生文件夹中。 WrlteData“Dataouttxt“， Sum End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击“读入数据”按钮，然后单击“计算”按钮，最后单击“存盘”按钮。)解析：解析：第 1 小题 本题原程序已提供用于读数的 ReadDatal、ReadDam2 和用于写盘的 WriteData 几个自定义过程，只需编写“读入数据”、“计算”和“存盘”命令按钮的单击事件过程，并在事件过程中调用 ReadDaml、ReadData2 和 WriteDam 自定义过程。 程序设计思路：在“读入数据”按钮的 Cl
20、ick 事件过程中，通过调用 ReadDaml 和 ReadData2 过程将数据从文件 datainltxt 和 damin2txt 中读入到数组Atrl 和 Arr2(窗体变量)中；在“计算”按钮的 Click 事件过程中，利用 For 循环语句(循环变量 i 的初值为 1，终值为 20)依次将数组 Arrl 和 Arr2 同下标的元素相加(表达式为：Arr3(i)=Arrl(i)+Arr2(i)，并累加到变量 Sum，循环结束后将 Sum 的值显示在窗体上。在“保存”按钮的 Click 事件过程中，通过调用WnteDam 过程将 Sum 的值写入数据文件 damouttxt。 注意：调用 WfiteDam 过程时需传递参数damouttxt 和 Sum，变量 Sum 应声明为窗体变量。 第 2 小题 要实现本题中的功能。应在“显示命令按钮”菜单项的 Click 事件过程中，令命令按钮的 Visible 属性为 True，在“隐藏命令按钮”菜单项的Click 事件过程中，令命令按钮的 Visible 属性为 False。
