1、VB 机试-试卷 94 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Form1 的窗体上添加一个名称为 Command1 的命令按钮，标题为“打开文件”，再添加一个名称为 CD1 的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：设置适当属性，使对话框的标题为“打开文件”；使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”，如图 91 所示，默认的类型是“所有文件”；编写命令按钮的事件过程，使得单击按钮可以弹出
2、打开文件对话框。程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj1vbp，窗体文件名保存为 sj1frm。(2)在名称为 Form1 的窗体上添加一个名称为 Cormmand1 的命令按钮，其标题为“移动本按钮”，如图 92 所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm。要
3、求在窗体上画一个名为 Commandl、标题为“写入文件”的命令按钮，要求当执行事件过程 Commandl 的 click 事件时，弹出一个输人对话框，输入完成后单击“确定”，则将输入的内容写入考生文件夹下的 out3txt 文件中。程序代码是不完整的，请在有“?”的地方填人正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。程序运行时的窗体界面如图 143 所示。 注意：程序编写完毕，考生应执行一个操作，写入一组数据到 out3txt 中。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm。打开该工程文件，在窗体上
4、画两个文本框，名称分别为 Textl 和 Text2：然后画三个标签，名称分别为 Labell、Label2 和 Label3，其标题分别为两个空白和“=”；建立一个含有四个单选按钮的控件数组，名称为 Optionl，标题分别为“+”“-”“*”和“”，两个名称分别为Commandl、Command2、标题分别为“计算”、“清空”的命令按钮。程序运行后，在 Textl、Text2 中输入两个数值，选中一个单选按钮后，Labell 上显示相应的运算符，单击“计算”命令按钮，相应的计算结果显示在 Label3 中；单击“清空”按钮，数据被清空。程序运行界面如图 144 所示。 （分数：2.00）_
5、三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sj5vbp，把 inltxt 和 in2txt 文件中的整数分别读入 a1 和 a2数组中。请先装人工程文件 sj5vbp，然后完成以下操作：在名称为 Forml 的窗体上画 3 个命令按钮，其名称为 Commandl、Command2 和 Command3，标题分别为“读取数据”，“求和”和“保存”。程序运行后，如果单击“读取数据”按钮，则从 inltxt 和 in2txt 文件中各读取 25 个整数，分别放入 a1 和a2 两个数组中；如果单击“求和”按钮，则把两个数组中的
6、对应下标的元素相加，其结果放人第 3 个数组中(即：第一个数组的第 n 个元素加上第 2 个数组的第 n 个元素，其结果作为第 3 个数组的第 n 个元素。这里的 n 为 1，2，25)，然后计算第 3 个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“保存”按钮，则把所求得的和存入考生文件夹的 out5txt 文件中。运行界面如图 596 所示。（分数：2.00）_VB 机试-试卷 94 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Form1 的窗体上添加一个名称为 C
7、ommand1 的命令按钮，标题为“打开文件”，再添加一个名称为 CD1 的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：设置适当属性，使对话框的标题为“打开文件”；使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”，如图 91 所示，默认的类型是“所有文件”；编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj1vbp，窗体文件名保存为 sj1frm。(2)在名称为 Form1 的窗体上添加一个名称为
8、Cormmand1 的命令按钮，其标题为“移动本按钮”，如图 92 所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。 （分数：2.00）_正确答案：(正确答案：(1)本题主要考查通用对话框的使用。通用对话框的属性可以在属性窗口中直接设置。文件类型在其中 Filter 属性中设置，其格式为：文件说明|文件类型。 根据题意，新建“标准EXE”工程，将一个命令按钮和一个文件对话框添加到窗体中，命令按钮的名称为 Commandl，Caption 属性为打开文件，文件对话框控件的名称为 CD1，并将其 Filter 属
9、性设置为：文本文件|*txt |所有文件|*txt。其中，添加文件对话框控件要选择“工程”“部件”命令，打开“部件”对话框。并将Microsoft Common Dialog Control 60 前的复选按钮选中，单击“确定”按钮将其添加上工具箱中，然后再像其他控件一样使用。双击进入代码窗口，编写如下代码： Private Sub Commandl_Click() CD1ShowOpen显示打开文件对话框 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个 Command 添加到窗体中，其名称为 Commandl，Caption 属性为“移动
10、本按钮”。双击进入代码窗口，编写如下代码： Private Sub Command1_Click() CommandlLeft=CommandlLeft-100 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm。要求在窗体上画一个名为 Commandl、标题为“写入文件”的命令按钮，要求当执行事件过程 Commandl 的 click 事件时，弹出一个输人对话框，输入完成后单击“确定”，则将输入的内容写入考生文件夹下的 out3txt 文件中。程序代码
11、是不完整的，请在有“?”的地方填人正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。程序运行时的窗体界面如图 143 所示。 注意：程序编写完毕，考生应执行一个操作，写入一组数据到 out3txt 中。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm。打开该工程文件，在窗体上画两个文本框，名称分别为 Textl 和 Text2：然后画三个标签，名称分别为 Labell、Label2 和 Label3，其标题分别为两个空白和“=”；建立一个含有四个单选按钮的控件数组，名称为 Optionl，标题分别为“+”“-”“
12、和“”，两个名称分别为Commandl、Command2、标题分别为“计算”、“清空”的命令按钮。程序运行后，在 Textl、Text2 中输入两个数值，选中一个单选按钮后，Labell 上显示相应的运算符，单击“计算”命令按钮，相应的计算结果显示在 Label3 中；单击“清空”按钮，数据被清空。程序运行界面如图 144 所示。 （分数：2.00）_正确答案：(正确答案：(1)打开顺序文件的基本格式为：Open FileName For Mode As#FileNumber。FileName 表示要打开的文件的路径；Mode 为打开模式，OutPut 用于输出、Append 用于追加写入
13、Input 用于读取；FileNumber 为打开文件时指定的句柄。Input#语句用于读取打开的顺序文件中一项(或多项)内容给一个变量(或多个变量)Line Input#语句常用于按行读取。Close#语句用于戈闭打开的文件。使用 Write 语句写入数据，只是将数据写人内存中，并没有写到打开的文件中。只有使用Close 语句结束这一语句后，数据才被写入文本文件中。 根据题意，将一个命令按钮添加到窗体中，其名称为 Command1、Caption 属性为“写人文件。双击 Commandl 进入代码窗口，编写如下代码： Private Sub Command1_Click() Dim str
14、 As String str=InputBox(“请输入要保存的字符串：“) 输入对话框 Open”AppPath&out3txt“For Append As#1 打开文件准备顺序写入 Print #1，str写入输入对话框中的内容 Close#1关闭文件 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查控件及控件数组的画法、单选按钮的使用及 Select Case 多分支语句的用法。控件数组是一组具有共同名称和类型的控件，它们具有共同的事件，数组中的每个控件都有唯一的索引号(Index)即下标。添加控件数组的方法是：先通过工具箱建立第一个控件，然后对该控件进行“复制”“
15、粘贴”操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的 Index 值会自动从 0 开始编号。单选按钮组常用于提供唯一选择，Value 属性值决定每个单选按钮的选中状态：False 为未选、True 为选中。 根据题意，将一组 4 个单选按钮控件，2 个命令按钮，2 个文本框控件和 3 个标签添加到窗体中，单选按钮的名称都为 Optionl，Caption 分别为“+”“-”“*”和“”，命令按钮的名称分别为 Commandl 和Command2，Caption 属性分别为“计算”和“清空”，文本框的名称分别为 Textl 和 Text2、Text 属性都为空，标签的名称分别为 L
16、abell、Label2 和 tabe 13Caption 属性分别为空、“=”和空。双击Commandl 进入代码窗口，补充后的代码如下： Dim tmp As Integer Private Sub Commandl_Click() If tmp=0 Then Label3 Caption = Val(TextlText)+Val(Text2Text) 加法运算 ElseIf tmp=1 Then Label3 Caption = Val(TextlText)-Val(Text2Text) 减法运算 Elself tmp 一 2 Then Label3 Caption = Val(Text
17、lText)*Val(Text2Text) 乘法运算 Else Label3Caption= Val(TextlText)Val(Text2Text) 除法运算 End If End Sub Private Sub Command2_Click() Textl Text= “ Text2 Text= “ End Sub Private Sub Form_Load() Labell Caption =Optionlhem(0) Caption 显示“+”号 End Sub Private Sub Optionl_Click(Index As Integer) tmp=Index Labell C
18、aption =OpfionlItem(tmp) Caption 显示当前符号 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sj5vbp，把 inltxt 和 in2txt 文件中的整数分别读入 a1 和 a2数组中。请先装人工程文件 sj5vbp，然后完成以下操作：在名称为 Forml 的窗体上画 3 个命令按钮，其名称为 Commandl、Command2 和 Command3，标题分别为“读取数据”，“求和”和“保存”。程序运行后，如果单击“读取数据”按钮，则从 inltxt 和
19、in2txt 文件中各读取 25 个整数，分别放入 a1 和a2 两个数组中；如果单击“求和”按钮，则把两个数组中的对应下标的元素相加，其结果放人第 3 个数组中(即：第一个数组的第 n 个元素加上第 2 个数组的第 n 个元素，其结果作为第 3 个数组的第 n 个元素。这里的 n 为 1，2，25)，然后计算第 3 个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击“保存”按钮，则把所求得的和存入考生文件夹的 out5txt 文件中。运行界面如图 596 所示。（分数：2.00）_正确答案：(正确答案： 本题考查控件的画法、命令按钮的常规使用、FOR 循环语句的用法和打开文件的基本操
20、作。 打开文件的基本格式为：Open FileName For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random 等几种方式。Output、Append、Input 方式打开的文件进行的读写操作都是以顺序方式进行的。其中 Output、Append 打开的文件主要用来输出数据，与 Print#、Write#等方法配合使用；以 Input 方式打开的文件主要用来输人数据，它与 Input#、Line Input#语句配合使用。根据题意，将 3 个命令按钮添加到窗体中，名称分别是 Commandl、Command2 和 Command3，Ca
21、ption 属性分别为“读取数据”、“求和”和“保存”，设置完成后双击 Commandl 进入代码窗口，程序中利用 FOR 循环逐一取出 al、a2 数组中的元素，并把 al、a2 中对应下标的元素相加后的结果存入 b 数组中，补充后的具体代码如下： Dim al(25)As Integer Dim a2(25)As Integer Dim b(25)As Integer Dim total As Long Private Sub Commandl_Click() Open AppPath&“inltxt“For Input As#1打开“inltxt”文件 Open AppPath&”kin
22、2txt”For Input As#2 打开“in2txt”文件 Dim i As Integer Dim temp As Integer For i=1 To 25利用 For 循环读人数据 Input#1，al(i) 按顺序读人到数组中 Input#2，a2(i) 按顺序读入到数组中 Next i Close#1 关闭文件 Close#2关闭文件 For i=1 To 25 b(i)= al(i)+a2(i) 进行两个数组对应数值求和计算 Next i End Sub Private Sub Command2_Click() Dim str As String str=“总和是“ total=0 For i=1 To 25 total total+b(i) 对数组所有数的求和 Next i str=str +CStr(total) 将结果放到字符串中 Cls Print str显示结果 End Sub Private Sub Command3_Click() Open AppPath&“out5txt“For Output As#3 打开 out5txt 文件 Print#3，total写入结果 Close#3 关闭文件 End Sub 单击 )解析：
