1、VB机试模拟试卷 116及答案与解析 一、基本操作题（ 30分） 1 (1)在 Forml窗体上绘制一个名称为 Textl的文本框，然后建立一个主菜单，标题为 “操作 ”，名称为 Op。并为该菜单建两个子菜单，其标题分别为 “显示 ”和 “清除 ”，名称分别为 Dis和 Clea。编写适当的事件过程，要求程序运行后，如果单击“操作 ”菜单中的 “显示 ”命令，则在文本框中显示 “计算机考试 ”；如果单击 “清除 ”命令，则清除文本框中显示的内容。程序的运行情况如图 661和图 662所示。注意：保存时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为sjl frm。 (2)在名
2、称为 Forml的窗体上绘制一个名称为 P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出 “单击图片框 ”，每单击图片框外的窗体一次，就在窗体中输出 “单击窗体 ”，运行时的窗体如图 663所示。要求在程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sj2 vbp，窗体文件名保存为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp(相应的窗体文件名为 sj3 frm)，在窗体上添加一个名称为 Listl的列表框和一个名称为 Text1的文本框，如图
3、 424所示。编写窗体的 MouseDown事件过程。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目 (内容任意，不少于三个 )；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图 424所示。这个程序不完整，请把它补充完整，并能正确运行。 注意：去掉程序中的注释符，把程序中的 ?改为适当的内容，使其正确运行，但不能修改程序中的 其他部分。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp(相应的窗体文件名为 sj4 frm)，其功能是通过调用过程 FindMin求数组的最小值。程序运行后，在
4、四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来 (如图 425所示 )。注意：去掉程序中的注释符 (即 “”号 )，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在窗体上有 3个菜 单，名称分别为 Read、 Arg和 Save，标题分别为 “读人数据 ”、“计算显示 ”和 “保存 ”，一个文本框，名称为 Textl， MultiLine属性设置为 True，ScrollBars属性没置为 2。程序运行时的窗体界面如图 167所示。如果执行 “读人数据
5、”命令则读入 sjin txt文件中的 50个整数，放人一个数组中，数组的下界为1；如果执行 “计算显示 ”命令，则把该数组中下标为奇数的元素在文本框中显示出来，求出它们的平均数，并把所求得的和在文本框中显示出来；如果执行 “保存 ”命令，则把所求得的平均值存人考生文件夹下 的 sjout txt文件中。在考生文件夹下有一个工程文件 sj5 vbp。请将程序中有问号的地方用相应的代码补完整，并将代码前的所有注释符 (即 “”号 )去掉。 注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sj5 vbp窗体文件名仍为sj5 frm。 VB机试模拟试卷 116答案与解析 一、基本
6、操作题（ 30分） 1 【正确答案】 (1)通过 “菜单编辑器 ”来创建菜单，文本框的内容通过 Text属性设置， Text=“”语句可将文本框中的内容清空。 建立界面并设置控件属性。程序中用到的控件 及其属性见下表： 编写程序代码，参考代码如下： Private Sub Clea_Click() Textl Text=“End SubPrivate Sub Dis Click() Textl Text=“计算机考试 “End Sub 调试并运行程序。 按题目要求存盘。 (2)根据题意，新建 ”标准 EXE”工程 ，将一个图片框控件添加到窗体中，名称为 P1双击进入代码窗口，编写如下代码： P
7、rivate Sub Form Click()Forml Print“单击窗体 “End Sub Private Sub P1_Click() P1 Print“单击图片框“ End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个列表框控件和一个文本框控件添加到窗体中，列表框控件名称为 Listl，文本框控件名称为 Textl。双击进入代码窗口， 编写如下代码： Private Sub Form MouseDown(Button As Integer， Shift As Integer， X As S
8、ingle， Y As Single) If Button=1 Then Textl Text=InputBox(“请输入要添加的项目 “) Listl Addhem Textl Text End If If Button=2 Then Textl Text=InputBox(“请输入要删除的项目 “) For i=0 To Listl ListCount-1 If Listl List(i)=Textl Text Then Listl RemoveItem i End If Next i End If End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，双击进入代码窗口，编写
9、如下代码： Option Base 1 Private Function FindMin(a()As Integer) Dim Start As Integer Dim Finish As Integer， i As Integer Start=LBound(a) Finish=UBound(a) Min=a(Start) For i=Start To Finish If a(i) 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，在名为 Forml的窗体内添加 3个主菜单，名称分别为Read、 Arg和 Save， Caption属性分别为 “读人数据 ”
10、“计算显示 ”和 “保存 ”，画一个列表框控件， Name为 Listl，单击读人数据菜单，进入代码窗口，编写如下代码： Dim a(50)As Long全局变量 Dim str(50)As String全局 变量 Dim total As Long Private Sub Arg_Click() 求平均值 total=total 50 Textl Text=total End Sub Private Sub Read_Click() total=0 Textl Text=“ Open“App Pathg& sjin txt“For Input As#1打开 “sjin txt“文件 Dim
11、i As Integer Dim temp As Integer For i=1 To 50利用 For循环读人数据 Input#1， temp a(i)=temp按顺序读入到数组中 Next i For i=1 To 50 total=total+a(i) 求和 str(i)=a(i) Textl Text=Textl Text+str(i)+vbCrLf将数组中的 50个数放人 Text中显示 Next i Close#1 End Sub Private Sub Save_Click() 保存数据 Open“App Path& sjout txt“For Output As#1 Write#1， total Close#1 将结果保存到 out txt End Sub 单击 按钮运行程序，并按要求保存。
