二、简单应用题

　　3(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。要求在窗体上画一个名为Command1、标题为"写入文件"的命令按钮，要求当执行事件过程Command1 click时，弹出一个输入对话框，输入完成后单击"确定"，则将输入的内容写入考生文件夹下的out3.txt文件中。生文件夹下的程序代码是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。程序运行时的窗体界面如图25-3所示。

　　图25-3

　　注意：程序编写完毕，考生应执行一个操作，写入一组数据到out3.txt中。

　　(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm。打开该工程文件，在窗体上画两个文本框，名称分别为Text1和Text2：然后画3个标签，名称分别为Label1、Label2和Label3，其标题分别为两个空白和"=";建立一个含有4个单选按钮的控件数组，名称为Option1，标题分别为"+"、"-"、"*"和"/"，两个名称分别为Command1、Command2、标题分别为"计算"、"清空"的命令按钮。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后，Label1上显示相应的运算符，单击"计算"命令按钮，相应的计算结果显示在Label3中;单击"清空"按钮，数据被清空。程序运行如图25-4所示。

　　图25-4

　　该程序代码窗口中的代码是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。

　　参考解析：

　　(1)打开顺序文件的基本格式为：Open FileName For Mode As #FileNumber。FileName表示要打开的文件的路径;Mode为打开模式，OutPut用于输出、Append用于追加写入、Input用于读取;FileNumber为打开文件时指定的句柄。Input #语句用于读取打开的顺序文件中一项(或多项)内容给一个变量(或多个变量)，Line Input #语句常用于按行读取。Close #语句用于关闭打开的文件。使用Write语句写入数据，只是将数据写入内存中，并没有写到打开的文件中，只有使用Close语句结束这一语句后，数据才被写入到文本文件中。

　　根据题意，将一个命令按钮添加到窗体中，其名称为Command1、Caption属性为"写入文件"。双击Command1进入代码窗口，编写如下代码：

　　Private Sub Command1_Click()

　　Dim str As String

　　str = InputBox("请输入要保存的字符串:") '输入对话框

　　Open "App.Path&\out3.txt" For Append As #1′打开文件准备顺序写入

　　Print #1, str '写入输入对话框中的内容

　　Close #1 '关闭文件

　　End Sub

　　单击 按钮运行程序，并按要求保存。

　　(2)本题主要考查控件及控件数组的画法、单选按钮的使用及Select Case多分支语句的用法。控件数组是一组具有共同名称和类型的控件，它们具有共同的事件，数组中的每个控件都有唯一的索引号(Index)，即下标。添加控件数组的方法是：先通过工具箱建立第一个控件，然后对该控件进行"复制"、"粘贴"操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号。单选按钮组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False为未选、True为选中。

　　根据题意，将一组4个单选按钮控件，两个命令按钮，两个文本框控件和3个标签添加到窗体中，单选按钮的名称都为Option1，Caption分别为"+"、"-"、"*"和"、"，命令按钮的名称分别为Command1和Command2，Caption属性分别为"计算"和"清空"，文本框的名称分别为Text1和Text2、Text属性都为空，标签的名称分别为Label1、Label2和Label3，Caption属性分别为空、"="和空。双击Command1进入代码窗口，补充后的代码如下：

　　Dim tmp As Integer

　　Private Sub Command1_Click()

　　If tmp = 0 Then

　　Label3.Caption = Val(Text1.Text) + Val(Text2.Text) '加法运算

　　ElseIf tmp = 1 Then

　　Label3.Caption = Val(Text1.Text) - Val(Text2.Text) '减法运算

　　ElseIf tmp = 2 Then

　　Label3.Caption = Val(Text1.Text) * Val(Text2.Text) '乘法运算

　　Else

　　Label3.Caption = Val(Text1.Text) \ Val(Text2.Text) '除法运算

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　Text1.Text = ""

　　Text2.Text = ""

　　End Sub

　　Private Sub Form_Load()

　　Label1.Caption = Option1.Item(0).Caption '显示"+"号

　　End Sub

　　Private Sub Option1_Click(Index As Integer)

　　tmp = Index

　　Label1.Caption = Option1.Item(tmp).Caption '显示当前符号

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年9月计算机等级考试考场拿高分技巧

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015年9月计算机等级考试各科目考前必做试题