1、VB机试模拟试卷 63及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Form1的窗体上添加一个名称为 Command1的命令按钮，标题为 “打开文件 ”，再添加一个名称为 CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：设置适当属性，使对话框的标题为 “打开文件 ”；使对话框的 “文件类型 ”下拉式组合框中有两项可供选择： “文本文件 ”、 “所有文件 ”，如图 91所示，默认的类型是 “所有文件 ”；编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。程序 中不得使用变量，事件过程中只能写一条语句。注意：存盘时必
2、须存放在考生文件夹下，工程文件名保存为 sj1 vbp，窗体文件名保存为 sj1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 Cormmand1的命令按钮，其标题为 “移动本按钮 ”，如图 92所示。要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动 100。要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj2 vbp，窗体文件名保存为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm。要求在窗体上画一个名为 Commandl
3、、标题为 “写入文件 ”的命令按钮，要求当执行事件过程Commandl的 click事件时，弹出一个输人对话框，输入完成后单击 “确定 ”，则将输入的内容写入考生文件夹下的 out3 txt文件中。程序代码是不完整的，请在有 “?”的地方填人正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。程序运行时的窗体界面如图 143所示。 注意：程序编 写完毕，考生应执行一个操作，写入一组数据到 out3 txt中。 (2)在考生文件夹下有工程文件 sj4 vbp及窗体文件 sj4 frm。打开该工程文件，在窗体上画两个文本框，名称分别为
4、 Textl和 Text2：然后画三个标签，名称分别为 Labell、 Label2和 Label3，其标题分别为两个空白和 “=”；建立一个含有四个单选按钮的控件数组，名称为 Optionl，标题分别为 “+”“-”“*”和 “ ”，两个名称分别为 Commandl、 Command2、标题分别为 “计算 ”、 “清空 ”的命令按钮。程序运行后，在 Textl、 Text2中输入两个数值，选中一个单选按钮后， Labell上显示相应的运算符，单击 “计算 ”命令按钮，相应的计算结果显示在 Label3中；单击 “清空 ”按钮，数据被清空。程序运行界面如图 144所示。注意：该程序代码窗口中的
5、代码是不完整的，请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sj5 vbp，把 inl txt和 in2 txt文件中的整数分别读入 a1和 a2数组中。请先装人工程文件 sj5 vbp，然后完成以下操作：在名称为 Forml的窗体上画 3个命令按钮，其名称为 Commandl、 Command2和Command3，标题分别为 “读取数据 ”， “求和 ”和 “保存 ”。程序运行后，如果单击 “读取数据 ”按钮，则从 inl txt和
6、in2 txt文件中各读取 25个整数，分别放入 a1和 a2两个数组中；如果单击 “求和 ”按钮，则把两个数组中的对应下标的元素相加，其结果放人第 3个数组中 (即：第一个数组的第 n个元素加上第 2个数组的第 n个元素，其结果作为第 3个数组的第 n个元素。这里 的 n为 1， 2， ， 25)，然后计算第 3个数组各元素之和，并把所求得的和在窗体上显示出来；如果单击 “保存 ”按钮，则把所求得的和存入考生文件夹的 out5 txt文件中。运行界面如图 596所示。 注意：设置适当的控件属性并编写适当的程序代码，将代码窗口中的代码补充完整，使其实现上述功能。考生不得修改窗体文件中已经存在的
7、程序，必须把求得的结果用 “保存 ”按钮存入考生文件夹下的 out5 txt文件中，否则没有成绩。存盘时，工程文件名仍为 sj5 vbp，窗体文件名仍为sj5 frm。 VB机试模拟试卷 63答案与解 析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题主要考查通用对话框的使用。通用对话框的属性可以在属性窗口中直接设置。文件类型在其中 Filter属性中设置，其格式为：文件说明 |文件类型。根据题意，新建 “标准 EXE”工程，将一个命令按钮和一个文件对话框添加到窗体中，命令按钮的名称为 Commandl， Caption属性为打开文件，文件对话框控件的名称为 CD1，并将其 Filt
8、er属性设置为：文本文件 |* txt |所有文件 |* txt。其中，添加文件对话框控件要选择 “工程 ”“ 部件 ”命令，打开 “部件 ”对 话框。并将Microsoft Common Dialog Control 6 0前的复选按钮选中，单击 “确定 ”按钮将其添加上工具箱中，然后再像其他控件一样使用。双击进入代码窗口，编写如下代码： Private Sub Commandl_Click() CD1 ShowOpen显示打开文件对话框 End Sub 单击按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个Command添加到窗体中，其名称为 Commandl
9、， Caption属性为 “移动本按钮 ”。双击进入代码窗口，编写如下 代码： Private Sub Command1_Click() Commandl Left=Commandl Left-100 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)打开顺序文件的基本格式为： Open FileName For Mode As#FileNumber。 FileName表示要打开的文件的路径； Mode为打开模式， OutPut用于输出、 Append用于追加写入、 Input用于读取； FileNumber为打开文件时指定的句柄。 Inp
10、ut#语句用于读取打开的顺序文件中一项 (或多项 )内容给一个变量 (或多个变量 ) Line Input#语句常用于按行读取。 Close#语句用于戈闭打开的文件。使用Write语句写入数据，只是将数据写人内存中，并没有写到打开的文件中。只有使用 Close语句结束这一语句后，数据才被写入文本文件中。 根据题意，将一个命令按钮添加到窗体中，其名称为 Command1、 Caption属性为 “写人文件 。双击Commandl进入代码窗口，编写如下代码： Private Sub Command1_Click() Dim str As String str=InputBox(“请输入要保存的字符
11、串： “) 输入对话框 Open”App Path& out3 txt“For Append As#1 打开文件准备顺序写入 Print#1， str写入输入对话框中的内容 Close#1关闭文件 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查控件及控件数组的画法、单选按钮的使用及 Select Case多分支语句的用法。控件数组是一组具有共同名称和类型的控件，它们具有共同的事件，数组中的每个控件都有唯一的索引 号 (Index)即下标。添加控件数组的方法是：先通过工具箱建立第一个控件，然后对该控件进行 “复制 ”“粘贴 ”操作，粘贴时在弹出的对话框中选择建立控件数组，
12、这时控件数组的 Index值会自动从 0开始编号。单选按钮组常用于提供唯一选择， Value属性值决定每个单选按钮的选中状态： False为未选、 True为选中。 根据题意，将一组 4个单选按钮控件， 2个命令按钮， 2个文本框控件和 3个标签添加到窗体中，单选按钮的名称都为 Optionl， Caption分别为“+”“-”“*”和 “ ”，命令按钮的名称分别为 Commandl和 Command2， Caption属性分别为 “计算 ”和 “清空 ”，文本框的名称分别为 Textl和 Text2、 Text属性都为空，标签的名称分别为 Labell、 Label2和 t abe 13 C
13、aption属性分别为空、 “=”和空。双击 Commandl进入代码窗口，补充后的代码如下： Dim tmp As Integer Private Sub Commandl_Click() If tmp=0 Then Label3 Caption=Val(Textl Text)+Val(Text2 Text) 加法运算 ElseIf tmp=1 Then Label3 Caption=Val(Textl Text)-Val(Text2 Text) 减法运算 Elself tmp一 2 Then Label3 Caption=Val(Textl Text)*Val(Text2 Text) 乘法
14、运算 Else Label3 Caption=Val(Textl Text) Val(Text2 Text)除法运算 End If End Sub Private Sub Command2_Click() Textl Text=“ Text2 Text=“ End Sub Private Sub Form_Load() Labell Caption=Optionl hem(0) Caption显示 “+”号 End Sub Private Sub Optionl_Click(Index As Integer) tmp=Index Labell Caption=Opfionl Item(tmp)
15、 Caption显示当前符号 End Sub 单击 按钮运行程序。并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题考 查控件的画法、命令按钮的常规使用、 FOR循环语句的用法和打开文件的基本操作。 打开文件的基本格式为： Open FileName For Mode As#FileNumber。打开方式主要有 Output、 Append、 Input、 Random等几种方式。Output、 Append、 Input方式打开的文件进行的读写操作都是以顺序方式进行的。其中 Output、 Append打开的文件主要用来输出数据，与 Print#、 Write#等方法配合使用
16、；以 Input方式打开的文件主要用来输人数据，它与 Input#、 Line Input#语句配合使用。根据题意，将 3个命令按钮添加到窗体中，名称分别是 Commandl、Command2和 Command3， Caption属性分别为 “读取数据 ”、 “求和 ”和 “保存 ”，设置完成后双击 Commandl进入代码窗口，程序中利用 FOR循环逐一取出 al、 a2数组中的元素，并把 al、 a2中对应下标的元素相加后的结果存入 b数组中，补充后的具体代码如下： Dim al(25)As Integer Dim a2(25)As Integer Dim b(25)As Integer
17、Dim total As Long Private Sub Commandl_Click() Open App Path&“ inl txt“For Input As#1打开 “inl txt”文件 Open App Path&”kin2 txt”For Input As#2 打开 “in2 txt”文件 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关闭文件 F
18、or 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 App Path&“ out5 txt“For Output As#3打开 out5 txt文件 Print#3， total写入结果 Close#3 关闭文件 End Sub 单击 按钮运行程序，并按要求保存。
