1、VB 机试模拟试卷 27 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 C:wexam25160002。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1) 在名称为 Form1的窗体上画一个文本框，名称为 Text1，字体为 “黑体 ”，文本框中的初始内容为 “程序设计 ”；再画一个命令按钮，名称为 C1，标题为 “改变字体 ”，如图 27-1所示。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文字的字体改为 “宋体 ”。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为
2、sht1.vbp，窗体文件名为 sjt1.frm。 (2) 在名称为 Form1的窗体上画一个图片框，名称为 P1，高为 1800，宽为 1600，并放入文件名为 picl.bmp的图片，如图 27-2所示。请编写适当的事件过程，使得在运行时，如果双击窗体，则图片框中的图片消失。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题（ 40分） 2 1. 在考生文件夹下有一个工程文件 sjt3.vbp，请在窗体上画两个框架，其名称分别为 F1和 F2，标题分别为 “交通工具 ”和 “到达目标 ”。在 F1中画
3、两个单选按钮，名称分别为 Op1和 Op2，标题分别为 “飞机 ”和 “火车 ”。在 F2中画两个单选按钮，名称分别为 Op3和 Op4，标题分别为 “广州 ”和 “昆明 ”。然后画一个命令按钮，其名称为 C1，标题为 “确定 ”。再画一个文本框，其名称为 Text1。编写适当事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表 1。存盘时，工程文件名为 sjt3.vbp，窗体文件名为 sjt3.frm。 2在窗体上画 2个 单选按钮 (名称分别为 Op1和 Op2，标题分别为 “加法 ”和 “乘法 ”)、 3个文本框 (名称分别为 Text1、Text2、 Text3，高度和宽度均为
4、 400和 1500)和 1个命令按钮 (名称为 C1，标题为“汁算 ”，高度为 400，宽度为 1000)，如图 21所示，编写适当的事件过程。程序运行后，在 text1和 Text2中分别输入 12和 22两个整数，并选择一个单选按钮，单击 “计算 ”按钮后，可根据所选择的单选按钮进行加法或乘法运算，并把结果在Text3中显示出来，同时把加法结果存入文件 out431.txt中，乘法结果存入 文件 out432.txt中。程序的运行情况如图 22所示。存盘时，工程文件名为 sit4.vbp，窗体文件名为 sit4.frm。在考生文件夹中有一个标准模块 m1.bas，该模块中提供了保存文件的
5、过程 putdata1和 putdata2，可用来把加法结果和乘法结果分别存入文件 out431.txt和 out432.txt中，考生可以直接装入该标准模块，然后调用 putdata1和 putdata2过程保存文件。两个过程的代码如下： Sub putdata1(x As Integer) Open“.out431.txt“For Output As #1 Print #1,x Close #1 End Sub Sub putdata2(x As Integer) Open“.out432.txt“For Output As #1 Print #1,x Close #1 End Sub 三
6、、综合应用题（ 30分） 3 在窗体上画 1个文本框 (名称为 Text1，初始内容为空白，字体大小为 12，允许多行显示 )和 1个命令按钮 (名称为 C1，标题为 “存盘 ”)，编写适当的事件过程。程序运行后，把考生文件夹下 in.txt文件的内容读入内存，并在文本框中显示出来，如图 31所示；然后在文本的最前面手工插入一行汉字： “枫桥夜泊 ”，如图 32所示。如果单击 “存盘 ”命令按钮，则把文本框中修改过的内容保存到文件 ont.txt中。注意：只能在最前面插入文字，不能修改原有文字，存盘时，工程文件名为sjt5.vbp，窗体文件名为 sjt5.frm。文件 in.txt的内容如下：
7、VB 机试模拟试卷 27 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 文本框的文本由 Text属性设置，字体由 Font属性设置，在 “属性 ”窗口中设置 Font属性时，通过对话框来设置，在程序代码中设置 Font属性时，可以使用文本框的 FontName属性来设置字体名。命令按钮的标题由 Caption属性设置，单击按钮触发 Click事件。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性风表 27-1。 第二步：编写程序代码 参考代码： Option Explicit Private Sub C1_Click() Text1.Font=“宋体 “ End
8、 Sub Private Sub Form_Load() Text1.FontName = “黑体 “ End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 图片框的高由 Height属性设置，宽由Width属性设置，在 “属性 ”窗口中通过对话框装入图片，而如果要在程序代码中装入图片，应使用 LoadPicture函数。其格式为： 图片框名 .Picture=LoadPicture(“文件名 “) 也可用该函数来删除图片框中的图片，用一个空字符出覆盖原来的图片即可。 双击窗体触发的事件时 DblClick事件。 解题
9、步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 27-2。第二步：编写程序代码。 参考代码： Option Explicit Private Sub Form_DblClick() P1.Picture = LoadPicture() End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、 简单应用题（ 40分） 2 【正确答案】 打开题目提供的工程文件，建立控件和设置控件属性。 程序中用到的控件如下表 3所示 编写程序代码题目提供的程序代码： Private Sub Form Unload(Cancel As Integer) Open“out.txt
10、“For Output As #1 Print #1,Op1.Value,Op2.Value, Op3. Value, Op4. Value, Text1. Text Close #1 End Sub 参考代码： Private Sub C1_Click() Dim str1 As String Dim str2 As String If Op1 Then str1=Op1.Caption Else str1 Op2.Caption End If If Op3 Then str2=Op3.Caption Else str2=Op4.Caption End If Text1.Text “坐 “
11、& str1 & “去 “ & str2 End Sub 按题目要求存盘并进行相应的操作。 2按以下步骤操作： 启动 Visual Basic，在窗体上面 3个文本框、 2个单选按扭和 1个命令按钮。 按 F4键激活属性窗口，在属性窗口中设置各控件的属性，见表 4。 执行 “工程 ”菜单中的 “添加文件 ”命令 (或按 Ctrl+D)，打开 “添加文件 ”对话框，在当前目录下找到 m1.bas，把它添加到当前工程中。该模块中 putdata过程的代码如下： Sub putdata1(x As Integer) Open“0out431.txt“For Output As #1 Print #1
12、,x Close #1 End Sub Sub putdata2(x As Integer) Open“.out432.txt“For Output As #1 Print #1,x Close #1 End Sub 两个过程的操作基本相同，只是输出的文件名不一样。 编写命令按钮的 Click事件过程： Private Sub C1_Click() Dim a As Integer,b As Integer a Text1.Text bText2.Text If Op1.Value=True Then Text3.Text a+b putdata1 Text3.Text Else Text3.
13、Text=a*b putdata2 Text3.Text End If End Sub 三、综合应用题（ 30分） 3 【正确答案】 按以下步骤操作： 启动 Visual Basic，在窗体上画 1个文本框和1个命令按钮。 按 F4键，激活属性窗口，在属性窗口中设置文本框和命令按钮的属性，见表 4。 编写窗体的 Load事件过程 ； Private Sub Form_Load() Open“in.txt“For Input As #1 Text1.Text “ Do While Not EOF(1) Line Input # 1,a$ Text1.Text Text1.Text+a$+ Chr
14、(13)+Chr(10) Loop Close #1 End Sub 在该过程中，从头到尾依次把 in.txt文件中的每一行读到内存，然后在文本框中显示出来。在显示时，通过 Chr(13)+Chr(10)实现回车换行，也可以通过 vbGrLf常量实 现换行。 编写 “存盘 ”命令按钮的 Click事件过程： Private Sub C1_Cliek() Open“out.txt“For output As #1 Print #1,Text1.Text Close #1 End Sub 该过程把当前文本框的内容写入文件 out.txt。 运行程序，在文本框中显示读入的文本，此时在文本框的顶部输入 “枫桥夜泊 ”，单击 “存盘 ”命令按钮。然后查看当前目录下是否已建立 out.txt文件，其内容是否正确。
