1、VB机试模拟试卷 144及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “测试 ”的窗体上画一个名称为 Framel、标题为 “字体 ”的框架。在框架内画两个单选按钮，其名称分别为 Opfl和 opt2，标题分别为 “隶书 ”和 “宋体 ”。程序运行后的窗体如图 1-6所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上用名称为 shapel的 形状控件画一个圆，其直径为 1000(高、宽均
2、为 1000)；再画两个命令按钮，标题分别是 “垂直线 ”和 “水平线 ”，名称分别为 Commandl、 Command2，如图 1-7所示。然后编写两个命令按钮的 Click事件过程。程序运行后，如果单击 “垂直线 ”命令按钮，则圆的内部用垂直线填充；如果单击 “水平线 ”命令按钮，则圆的内部用水平线填充。注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 fnn。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，请在窗体上画两个框架，其名称分别为 Fl和 F2，标
3、题分别为 “交通工具 ”和 “到达目标 ”。在 Fl中画两个单选按钮，名称分别为 Opl和 Op2，标题分别为 “飞机 ”和 “火车 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 “广州 ”和 “昆明 ”。然后画一个命令按钮，其名称为 cl，标题为 “确定 ”。再画一个标签，其名称为 Labl。编写适当的事件过程。程序运行后，选择不同的单选按钮并单击 “确定 ”按钮后在标签框中显示的结果见表 1-6。 程序的运行情况如图1-188所 示。存盘时，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之
4、前，必须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的关闭按钮。(2)在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画三个文本框，其名称分别为 Textl、 Text2和 Text3，文本框内容分别设置为“等级考试 ”、 “计算机 ”和空白。然后画两个单选按钮，其名称分别为 Opl和 Op2，标题分别为 “交换 ”和 “连接 ”(如图 1-189所示 )，编写适当的事件程序。程序 运行后，如果选中 “交换 ”单选按钮并单击窗体，则 Textl文本框中内容与 Text2文本框中的内容进行交换，并在 Text3文本框中显示 “交换成功 ”；如果选中 “连接 ”单选按钮并单击
5、窗体，则把 Textl和 Text7的内容按 Textl在前、 Text2在后的顺序连接起来，并在 Text3文本框中显示连接后的内容。存盘时，工程文件名为 sjt4 vbp，窗体文件名为 sjt4 frm。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则无成绩。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，己给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为 Labell、 Label2和 Label3，标题分别为 “姓名 ”、 “电话号码 ”和 “邮
6、政编码 ”。再画三个文本框，其名称分别为 Textl、Text2和 Text3，初始内容均为空白，如图 l-94所示。程序运行后，如果单击 “显示第三个记录 ”按钮，则读取考生文件夹下 ins txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中 (该文件是一个用随机存取方式建 立的文件，共有 5个记录 )。单击 “保存 ”按钮，则把该记录 (三个字段 )保存到考生文件夹下的顺序文件 outs txt中。请编写 “显示第三个记录 ”按钮的 Click事件过程，以实现上述功能。注意：考生不得修改已经存在的程序，必须用 “保存 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。
7、 VB机试模拟试卷 144答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，如表 2-5在窗体上绘制控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。第 2小 题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 2-6在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口编写两个命令按钮的单击事件过程。 参考代码： PriVate Sub Commandl_Click() Shapel FillStyle=3 End SuD PriVate Sub Command2_Click() Forml
8、Shapel FillStyle=2 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题只需按题目要求画出框架和单选按 钮，并分别设置其属性。 第 2小题 形状控件的 FillStyle用于设置其填充样式： lTransparent,透明、 0Solid实线、 2一 Horizontal Line水平线、 3一 Vertical Line垂直线、 4一 Upward Diagonal向上对角线、 5一 DownWard： Diag垧下对角线、 6一 Cross交叉线、 7一 Diagonal Cross对角交叉线，缺省值为 1。 本题需分别在两个命令按钮
9、的 Click事件过程中，编写设置形状控件 Shapel的FillStyle属性为相应值的语句。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp。 步骤 2：在窗体。 Forml中加入两个框架和一个标签以及一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置他们的相关属性，其属性及值如表 2-107所示。 步骤 3：打开代码编辑窗口输入如下代码： 参考代码： PriVate Sub C1_Click() If Opl And Op3 Then Labl Capt ion=“坐飞机去广州 “ ElseI f
10、 Opl And Op4 Then Labl Caption=“坐飞机去昆明 “ ElseIf Op2 And Op3 Then Labl Caption=“坐火车去广州 “ ElseI f Op2 And Op4 Then Labl Caption=“坐火车去昆明 “ End If End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按键运行程序，选择一种交通工具和一个到达目标，并单击命令按钮，最后单击 窗体右上角的关闭按钮退出程序。 第 2小题 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt4 vbp。 步骤 2：在窗体 Forml中加入三个文本框和两个单
11、选按钮，分别设置它们的相关属性，其属性及值如表2-108所示。 步骤 3：打开代码编辑窗口输入如下代码：参考代码： Private Sub Form_Click() If ODl Then Text3 Text=Textl Text Textl Text； Text2 Text Text2 Text=Text3 Text Text3 Text=“交换成功 “ ElseIf Op2 Then Text3 Text=Textl Text&Text2 Text End If End Sub 步骤 4：按要求将文件保存至考生文件夹中。 步骤 5：按键运行程序，选择一个单选按钮，并单击窗体，最后单击窗体
12、右上角的关闭按钮退出程序。 【试题解析】 第 1小题 根据题目要求，在 “确定 ”按钮的单击事件过程中，先用 If语句判断框架 Fl中的Opl是否选中 (即以 Opl Value=Tree为条件表达式 )，如果条件为真，那么再继续判断框架 F2中的 Op3是否选中 (即以 Op3 Value=Tme为条件表达式 )，当 Op3被选中时，标签中显示 “坐飞机去广州 ”，否则显示 “坐飞机去昆明 ”；同理在外层If语句条件为假 (即 Op2被选中 )时，也作类似处理。这样一共就有四种可能： Opl和 0p3被选中、 Opl和 Op4被选中、 Op2和 Op3被选中、 0p2和 0p4被选中，对于可
13、能出现的不同选择对照题目中表的规定，在标签中显示不同内容。以上判断和显示操作均在 C1的 Click事件中完成。 第 2小题 根据题目要求，设计本题程序的思路：在窗体 Forml的 Click事件过程中分别以Opl和 Op2是否选中作为 If语句的条件，当 Opl被选中时，将两个文本框中的内容通过一个中间变量进行交换；当 Op2被选中时，将两个文本框中的内容连接起来。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l；打开考生文件中的本题工程文件 sjt5 vbp，如表 2-52在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口中，编写Commandl_Click事
14、件过程。 参考代码： PriVate Sub Commandl_Click() Dim Pal As Paltype Open App Path&“ in5 txt“For Random As#l Len=Len(Pal) Get#1， 3， Pal Textl Text=Pal Name Text2 Text=Pal Tel Text3 Text=Str(Pal Post) Close 1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键键运行程序，先单击 “显示第三个记录 ”按钮，再单击 “保存 ”按钮。 【试题解析】 Type语句用于在模块级别中定义一个用户自己
15、的数据类型，其本质上是一个数据类型集合，它含有一个至一个以上的成员，每个 成员可以被定义为不同的数据类型。声明白定义类型变量后，可通过 “变量名成员名 ”来访问自定义变量中的元素。 用 Open语句打开随机文件，其语法格式为； Open FileName for Random as#FileNumberLen=记录长度。记录长度是一条记录实际所占字节数，可用 Len(记录变量名 )函数获取； Get#语句用于从文件中读出某记录号的记录，格式为： Get#FileNumber,【 RecordNuberl】， Van Put#语句用于把记录按指定记录号写入文件，格式为： Put#FileNumber,RecordNuberl Vat。 LOF函数可返回一个用 Open语句打开的文件的大小。该大小以字节为单位，返回值为Long数据类型。 本题需在 “显示第三个记录 ”按钮的单击事件过程中，先声明一个自定义数据类型 PalType的变量，然后用 Open语句打开文件 in5 txt，接着用 Get#语句读出记录号为 3的记录并赋值给自定义类型变量，最后将该变量各元素的值显示在对应文本框中。
