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