1、VB 机试模拟试卷 15 及答案与解析 一、基本操作题（ 30分） 1 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1) 在 Form1的窗体上画一个名称为 P1的图片框，然后建立一个主菜单，标题为 “操作 ”，名称为 Op，该菜单有两个子菜单，其标题分别为 “显示 ”和 “清除 ”，名称分别为 Dis和 Clea。编写适当的事件过程，程序运行后，如果单击 “操作 ”菜单中的 “显示 ”命令，则在图片框中显示“计算机考试 ”；如果单 击 “清除 ”命令，则清除图片框中的信息。
2、程序的运行情况如图 15-1和图 15-2所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为 sjt1.frm。程序中不得使用任何变量。 (2) 在 Form1的窗体上画一个列表框，名称为 L1，通过属性窗口向列表框中添加 4个项目，分别为 “早上好 ”、 “上午好 ”、 “中午好 ”和 “下午好 ”。编写适当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框中的某一项，则把该项再添加到列表框中。程序的运行情况如图 15-3所示。 注意：存盘时必须存放 在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为 sjt2.frm。二、简单应用题
3、（ 40分） 2 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 (1) 在考生文件夹下有工程文件 sjt3.vbp及窗体文件 sjt3.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。如图 17-3所示。 本题描述如下： 在窗体上有一个标签数组，名为 Label1，该数组有 4个控件元素，标题分别是 “程序运 行 ”、 “文本编辑 ”、“双向箭头 ”和 “移动窗体 ”。在程序运行后，将鼠标移动到各控件元素上，则鼠标的形状将变成各控件元素的标题所代表的鼠标形状，离开控
4、件元素，则又变成正常情况下的箭头形状。 (2) 在考生文件夹下有工程文件 sjt4.vbp，窗体文件 sjt4.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。如图 17-4所示。 本题描述如下： 在窗体上有一个名为 Text1的文本框，有两个命令按钮，名称分 别是 C1和 C2，标题分别是 “读入 ”和 “计算并保存 ”。要求程序运行后，点击 C1按钮，将文本文件 in6.txt中的所有数字读到数组 arr中，并在文本框内显示出来。随后 C1按钮变为无效；然后点击 C2按
5、钮，求出数组 arr中的各元素的平方并赋值回相应的元素，例如， arr(2)=2，则令 arr(2)=arr(2)*arr(2)=4。把计算后的数组的值全部写入考生文件夹下的文本文件 out6.txt中，并在文本框中显示出来，最后 C2按钮也变为无效。三、综合应用题（ 30分） 3 注意：下面出现的 “考生文件夹 ”均为 c： wexam25160001。 在考生文件夹下有工程文件 sjt5.vbp及窗体文件 sjt5.frm，该程序是不完整的，请在有 ?号的地方填入正确内容，然后删除 ?及所有注释符 (即 号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考
6、生文件夹下，否则没有成绩。如图16-4所示。 本题描述如下： 在名称为 Form1的窗体上有五个 Labe1控件和两个命令按钮，数据文件 grade.dat存放一些成绩。按 “开始 ”按钮后，从考生文件夹下的grade.dat中读出数据并求出它们的平均数，将结果 写入考生文件夹下的 average.dat文件中；执行完毕， “开始 ”按钮变成 “完成 ”，且无效 (变灰 )。VB 机试模拟试卷 15 答案与解析 一、基本操作题（ 30分） 1 【正确答案】 在窗体上建立好控件后，先设置控件属性，再编写事件过程。 主菜单由单击右键选择 “菜单编辑器 ”来创建，通过 Print方法在窗体或图片框中
7、打印信息，通过 Cls方法清除图片框中的信息。 Cls方法清除运行时 Form或 PictureBox所生成的图形和文本。 语法： Object.Cls object代表一个对象表达式。如果省略。object，则默认为当前的 Form窗体。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件和属性设置见表 15-1。 第二步：编写程序代码。 参考代码： Private Sub Clea_Click() P1.Cls End Sub Private Sub Dis_C1ick() P1.Print“计算机考试 “ End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)
8、在窗体上建立好控件后，先设置控件属性，再编写事件过程。 列表框的 内容由属性 List来设置，再程序中添加项要通过 AddItem方法来实现，鼠标双击触发控件的 DblClick事件。 AddItem方法用于将项目添加到 ListBox或 ComboBox控件，其语法格式为： obiect.AddItemitem,index object必需的。一个对象表达式。 item必需的。字符串表达式，它用来指定添加到该对象的项目。 index可选的。是整数，它用来指定新项目或行在该对象中的位置。对于 ListBox或 ComboBox 控件的首项 index为 0。 解题步骤： 第一步 ：建立界面并设
9、置控件属性。程序中只用到的控件和属性设置见表 15-2。第二步：编写程序代码： 参考代码 Private Sub L1_DblClick() L1.Addltem L1.Text End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 二、简单应用题（ 40分） 2 【正确答案】 控件数组是由一组相同类型的控件组成，建立控件数组时系统给每个元素赋一个惟一的索引号 (Indcx)，例如，控件数组 cmdName(3)表示控件数组名为 cmdName的第 4个元素；鼠标的形状由属性 MousePointer来设置，该属性值为11时对应程序运行时的鼠标形状，该属性值为 3时对应文本编辑时
10、的鼠标形状，该属性值为 7时对应双向箭头的鼠标形状，该属性值为 5时对应移动窗体时的鼠标形状。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 17-3。第二步：编写程序代码。 程序提供的代码： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.?=0 End Sub Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift _ As Integ
11、er, X As Single, Y As Single) Select Case ? Case 0 Form1.MousePointer=11 Case 1 Form1.MousePointer=3 Case 2 Form1.MousePointer=7 Case 3 Form1.MousePointer=5 End Select End Sub 参考代码： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.MousePointer=0 End Sub
12、 Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case Index Case 0 Form1.MousePointer=11 Case 1 Form1.MousePointer=3 Case 2 Form1.MousePointer=7 Case 3 Form1.MousePointer=5 End Select End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 (2)打开文件的命令是 O
13、pen，其常用形式为： Open“文件名 ”For模式 As#文件号 Len=记录长度 ，对文件的写操作所用的命令是 Write#或 Print#命令，其形式分别为： Print#文件号， 输出列表 ；Write#文件号， 输出列表 ，二者区别是 Write#是以紧凑格式存放，即在数据项之间插入逗号，并给字符串加上双引号。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见 表 17-4。第二步：编写程序代码。 程序提供的代码： Dim arr(1 To 9) As Integer Private Sub C1_Click() Dim i As Integer ? “in6.
14、txt“ For Input As 1 For i=1 To 9 Input #1, arr(i) Text1.Text=Text1.Text+Str(arr(i) ) Next Close #1 C1.Enabled=False End Sub Private Sub C2_Click() Dim i As Integer Text1.Text=“ Open “out6.txt“ For Output As 1 For i = 1 To 9 arr(i)=arr(i) * arr(i) Print #1, ?, Text1.Text=Text1.Text+Str(arr(i) ) Next
15、Close #1 C2.Enabled=False End Sub 参考代码： Dim arr(1 To 9) As Integer Private Sub C1_Click() Dim i As Integer Open “in6.txt“ For Input As 1 For i=1 To 9 Input #1, arr(i) Text1.Text=Text1.Text+str(arr(i) ) Next Close #1 C1.Enabled=False End Sub Private Sub C2_Click() Dim i As Integer Text1.Text=“ Open “
16、out6.txt“ For Output As 1 For i=1 To 9 arr(i)=arr(i) * arr(i) Print #1, arr(i), Text1.Text=Text1.Text+Str(arr(i) ) Next Close #1 C2.Enabled=False End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。 三、综合应用题（ 30分） 3 【正确答案】 命令按钮的标题由 Caption属性来设置，单击命令按钮触发 Click事件；执行完毕， “开始 ”按钮变成 “完成 ”，且无效 (变灰 )： Open grade.dat For Input
17、As #1以只读方式打开文件，读出数据；求平均数则 先求每个数的和然后除以数字的个数即可；程序中用到的 Input读文件的格式为： Input#文件号，变量列表，在将数据写入文件时，要使用 Write#语句而不是使用 Print#语句，因为 Write#语句能够将各个数据项正确的区分开。解题步骤： 第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表 16-5。第二步：编写程序代码。 程序提供的代码： Private Sub COMEXIT_Click() End End Sub Private Sub COMSTART_Click() Dim g As Single, N As In
18、teger, S As Single myfile1=App.Path & “ & “grade.txt“ myfile2=App.Path & “ & “average.txt“ Open ? For ? As #1 Open ? For ? As Do While Not EOF(1) Input ?, g N=N+1 S=S+g Loop Close #1 S=S / Write #2, Close COMSTART.Caption= COMSTART.Enabled= End Sub 参考代码： Private Sub COMEXIT_Click() End End Sub Priva
19、te Sub COMSTART_Click() Dim g As Single, N As Integer, S As Single myfile1=App.Path & “ & “grade.txt“ myfile2=App.Path & “ & “average.txt“ Open myfile1 For Input As #1 Open myfile2 For Output As #2 Do While Not EOF(1) Input #1, g N=N+i S=S+g Loop Close #1 S=S/N Write #2, S Close COMSTART.Caption=“完成 “ COMSTART.Enabled=False End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘
