1、VB机试模拟试卷 115及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个文本框，名称为 Textl，字体为宋体，文本框中的初始内容为 “模拟试题 ”；请编写适当事件过程，使得在运行时，双击窗体，则把文本框中文字加下划线，如图 621所示。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为sjl frm。 (2)在名称为 Forml的窗体上画一个文本框，名称为 Textl，文本是 “双击清除 ”，如图 622所示。请编写适当的事件过程， 使得在运行时，如果双击文本框，则文本框中的文字消失。程序中不得使用任
2、何变量。注意：保存时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在窗体上绘制一个标签 L1；一个单选按钮数组，名称为 Opl，含三个单选按钮。它们的 Index属性分别为 0、 1和 2，标题依次为 “飞机 ”、 “火车 ”和 “汽车 ”；一个名称为 Textl的文本框。编写程序，使得在运行时单击 “飞机 ”或 “火车 ”单选按钮时，在 rextl中显示 “我坐飞机去 ”或 “我坐火车去 ”，单击 “汽 车 ”单选按钮时，在Textl中显示 “我开汽车去 ”。程序运行界面如图 664所示。 注意：保存时必须存放在考生
3、文件夹下，窗体文件名为 sj3 frm，工程文件名为 si3 vbp。 (2)在考生文件夹中有工程文件 Sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。在窗体上有两个名称分别为 Commandl和 Command2、标题分别为 “求平方 ”和 “求立方 ”的命令按钮，两个名称分别为 Textl和 Text2的文本框。要求程序运行后，在 Textl中输入一个整数，单击 “求平方 ”或 “求立方 ”按钮后，可把该整数的 “平方 ”或 “立方 ”在Text2中显示，如图 665所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改
4、其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在窗体上建立三个菜单 (名称分别为 Read、 Calc和 Save，标题分别为 “读人数据 ”、 “计算并输出 ”和 “存盘 ”)，然后再添加一个文本框，名称为 Textl， MultiLine属性设置为 True， scrollBars属性设置为 2(如图 426所示 )。程序运行后。如果执行 “读人数据 ”命令，则 读入考生文件夹下 datainl txt文件中的 100个整数，放入一个数组中，数组的下界为 1；如果单击 “计算并输出 ”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得
5、的和在窗体上显示出来；如果单击 “存盘 ”按钮，则把所求得的和存入考生文件夹下的 dataoLlt txt文件中。 在考生文件夹下有一个工程文件 sj5 vbp，窗体文件中的 ReadData过程可以把 datainl txt文件中的 100个整数读人 Arr数组中；而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件 中 (整数值通过计算求得，文件名为dataout txt)。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为 sj5 vbp，窗体文件名仍保存为 sj5 frm。 VB机试模拟试卷 115答案与解析 一、基本操作题（ 30分） 1 【正
6、确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl， Text属性为 “模拟试题 ”，字体为宋体。双击 Forml窗体，进入代码窗口，编写如下代码： Private Sub Form_DblClick() Textl Font Underline=True End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，在窗体上添加一个文本框，名称为 Textl， Text属性为 “双击清除 ”。双击 Textl，进人代码窗口，编写如下代码： Private Sub Textl_DblClick() Text
7、l Text=“ End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)标签和单选按钮的标题均由各自的 Caption属性设置。程序中需要检测的单选按钮的状态，这可以通过 Value属来实现，如果单选按钮被选中，则Value值为 1，否则 Value值为 0。当建立单选按钮数组控件时，系统给每个元素赋一个一的索引号 (Index)，通过属性窗 VI的 Index属性，可以知道该控件的下标。在文本框中显示内容通过 Text属性设置，其式为：文本框名 Text：显示的内容，程序中用到了 Select Case语句，格式如下： Select Case
8、变量或表达式 (对于本题来说就是 控件数组元素的下标 ) Case表达式列表 1 语句块 1 Case表达式列表 2 语句块 2 Case Else 语句块 n+1 End Select 建立界面并设置控件属性。程序用到的控件及其属性见下表： 打开工程资源管理器，右击窗体，选择查看弋码项，在弹出的代码窗口输入代码如下： Private Sub Opl_Click(Index As Integer) Dim a As String， b As String， C As String a=“我坐 “ b=“我坐 “ c=“我开 “ Select Case Index CaSe 0 Textl Te
9、xt=a+Me Opl(0) Caption+“去 “ Case 1 Textl Text=b+Me Opl(1) Caption+“去 “ Case 2 Textl Text=C+Me Opl(2) Caption+“去 “ End Select End Sub 调试并运行程序。 按题目要求存盘。 (2)根据题意，将两个 Text控件和两个 Command控件添加到窗体上， Text的名称分别为 Textl和 Text2、 Text属性都为空， Command的名称分别为 Commandl和 Command2， Caption属性分别为 “求平方 ”和 “求立方 ”。双击Commandl命令
10、按钮，编写如下代码： Private Sub Commandl_Click() Text2 Text=Val(Textl Text)*Val(Textl Text) 求 Textl中数的平方 End Sub Private Sub Command2_Click() Text2 Text=Val(Textl Text)*Val(Textl Text)*Val(Textl Text) 求 Textl中数的立方 End Sub 单击按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题考查文本框的 Name、 MuhiLine、 ScrollBars和 Text属性，文件操
11、作，菜单编辑器的使用， Arr()函数以及 Space()函数。根据题意，新建 “标准EXE”工程，利用菜单设计器，按表中的设置建立菜单项，如下表：并将文本框控件添加到窗体中，名称为 Textl， MuhiLine属性为 True， ScrollBars属性为 2， Text属性为空，双击进入代码窗口，编写如下代码： Dim sum As Integer Private Sub Calc Click() Textl Text=“ For i=2 To 100 Step 2 Textl Text：Textl 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单击 按钮运行程序 ，并按要求保存。
