1、VB机试模拟试卷 74及答案与解析 一、基本操作题（ 30分） 1 (1)在窗体上建立一个二级菜单，该菜单含有 “文件 ”和 “编辑 ”(名称分别为 vbFile和 vbEdit)两个主菜单项，其中 “文件 ”菜单包括 “打开 ”、 “保存 ”和 “关闭 ”三个子菜单项 (名称分别为 vbOpen、 vbSave和 vbclose)，如图 8一 1所示。只建立菜单，不必定义其事件过程。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj1 frm，工程文件名为 sjl vbp。 (2)在名为 Form1的窗体上画一个框架，名称为Frame1，标题为 “框架 ”，高度为 2 500，宽度为 3
2、 500，框架内建立一文本框，距左边框 500，距框架的上边框 1 000，文本框中的初始内容设置为 “文本框 ”。运行界面如图 82所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，窗体中有两个图片框，名称分别为Pic1和 Pic2，其中的图片分别是一个黑色正方形和一个红色长方形，还有一个计时器控件。名称为 Timerl，一个命令按钮，名称为 Conmmandl，标题为 “出发 ”。窗体文件中给出了两个事件过程，但并不完整，要求设置计时器控件的属性，使其在
3、初始状态下不计时；设置计时器的属性，使其每隔 1秒调用 17imer事件过程一次。去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使得程序在运行时单击 “出发 ”按钮，则黑色正方形每隔 1秒向右移动一次，当到达 Pic2的左边时停止移动。程序运行时的窗体界面如图 253所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sj4 vbp，窗体上已经有 一个文本框，名称为 Textl；一个命令按钮，名称为Coimmandl、标题为 “输出 ”。请画两个单选按钮，名称分别为 Optionl和 Option2，标题分别为 “Item
4、l”和 “1tem2”；再画两个复选框，名称分别为 Checkl和 Check2，标题分别为 “Item3”和 “Item4”。请编写适当的事件过程，使得在运行时，单击 “输出 ”按钮后实现下面的要求： 根据选中的单选按钮和选中的复选框，在， Textl中显示“Item1包含 Itera3”或 “Item2包含 1tem3和 1tem4”等，如图 254所示。注意： 不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “输出 ”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。 三、综合应用题（ 30分） 3 在考生文件夹中有工程文件
5、 sj5 vbp及其窗体文件 sj5 frm，该程序是不完整的。在名称为 Forml的窗体上有两个命令按钮，名称分别为 Commandl和Command2、标题分别为 “读取数据 ”和 “保存 ”，一个文本框，名称为 Textl、MultiLine属性为 True、 ScrollBars属性为 2；要求如果 单击 “读取数据 ”按钮，则读入 in txt文件中的 50个整数，放入一个数组中，同时在文本框中显示出来；如果单击 “保存 ”按钮，则计算数组中小于 300或大于或等于 800的所有数之和，把求和结果在文本框 Textl中显示出来，如图 325所示。同时把结果存人考生文件夹中的文件 ou
6、t txt中。 (在 mode bas中的 writedata过程可以把结果存入 out txt文件。 )。 注意：请在有 “?”的地方填入正确内容，然后删除“?”及代码前的所有注释符 (即 “”号 )但不能修改其他部分。存盘时不得改变文件名和文件夹。文件 必须存放在考生文件夹下，窗体文件名为 sj5 frm，工程文件名为sj5 vbp，计算结果存入 out txt文件中，否则没有成绩。 VB机试模拟试卷 74答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，在窗体空白处单击右键，选择菜单编辑器添加以下菜单项：单击 “确定 ”按钮，单击按钮运
7、行程序，并按要求保存即可。 (2)根据题意，新建 “标准 EXE”工程，在窗体中画一个框架控件和一个文本框控件，将框架的名称设置为 Framel、 Caption属性设置为框架、 Height、 Width属性分别设置为 2 500、 3 500，将文本框的 Text属性设置为文本框， Left、 Top属性分别设置为 500、 1 000。单击 按钮运行程序并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)计时器控件的 Interval属性是用来控制计时器事件发生的时间间隔，通过题意可知该属性应设置为 1 000(Interval是以毫秒为单位 )。当单击 “出发 ”按钮时
8、开始计时，把计时器控件的 Enabled属性设置为 True。 根据题意，将两个图片控件、一个计时器控件和一个命令按钮添加到 窗体中， Picture的名称为 Picl和 Pic2， Pic1的背景色为黑色， Pic2的背景色为红色，计时器的 Interval属性为 1 000，名称为 Timerl， Enable属性为 False，命令按钮的名称为 Commandl， Caption属性为 “出发 ”，双击 Commandl进入代码窗口，补充后的具体代码如下： Private Sub Command1_Click() Timerl Enabled=True End Sub Private S
9、ub Timerl_Timer() Dim sp As Integer sp=200 运动速度 If Picl Left+Picl Width=Pic2 Left Then sp=0 End If Picl Left=Picl Left+spPicl的位置变化 End Sub 单击 按钮运行程序，并按要求保存。 (2)在文本框中显示的内容通过文本框的 Text属性设置。复选按钮和单选按钮的状态用 Value属性来表示。对于单选按钮来说， Value属性可设置为 True或 False，当设置为 True时表示被选中的，否则表示没有选中。对于复选按钮来说， Value属性可以设置为 0、 1或
10、2。其中： 0表示没有选中该复选按钮； 1表示选中该复选按钮； 2表示该复选按钮被禁止 (灰色 )。 根据题意，将两个单选按钮控件、两个复选按钮、一个文本框控件和一个命 令按钮添加到窗体中，单选按钮的名称分别为 Optionl和 Option2、 Caption属性为 “Iteml”和 “Item2”，复选按钮的名称分别为 Checkl和 Check2， Caption属性分别为 “Item3”和 “Item4”，文本框的名称为 Textl、 Caption属性为空，命令按钮的名称为 Commandl、 Caption属性为“输出 ”。双击 Commandl进入代码编写窗 IZl，利用字符串相
11、加和 Ifelse语句设计程序，具体代码如下： Private Sub Commandl_Click() Dim str As String Dim trnp As String str=“ If Optionl Value=True Then选中 Optionl str=str+“Iteml包括 “ Else选中Option2 str=str+“Item2包括 “ End If If Checkl Value=0 Then没选中 Checkl If Check2 Value=1 Then 选中 Cheek2 tmp=Check2 Caption str=str+tmp End If Else
12、选中 Checkl If Check2 Value=0 Then 没选中 Check2 tmp=Checkl Caption str=str+trap Else选 Check2 tmp=Checkl Caption str=str+tmp str=str+“和 “ tmp=Check2 Caption str=str+tmp End If End If Textl Text=str End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题中涉及文件的操作，对文件的操作包括几个基本步骤，首先 要打开文件，然后再读取文件，对文件操作完后，一定要记得关闭
13、文件。用 Input#语句读取顺序文件中的数据。 根据题意，将一个文本框控件和两个命令按钮放入Forml窗体中，然后根据需要设置各个控件的属性，先选中 Textl控件，然后设置其滚动属性为 2， MuhiLine属性为 True；选中 Commandl(读人数据 )设置其 Caption属性为 “读取数据 ”， Command2的 Caption属性为 “保存 ”。将考生文件夹下的标准模块 mode bas文件添加到工程中。双击 Commandl，进人代码窗口，补充后的具体代码如下 ： Dim a(49)As Long全局变量 Dim str(49)As String全局变量 Private
14、Sub Commandl_Click() Textl Text=“ Open“App Path&in txt“For Input As#1打开“in txt”文件 Dim i As Integer Dim temp As Integer For i=0 To 49 Input#1， temp a(i)=temp按顺序读人到数组中 Next i For i=0 To 49 str(i)=a(i) Textl Text=Textl Text+str(i)+vbCrLf 将数组中的数放入 Text中显示 Next i Close#1 End Sub Private Sub Command2_Click() Dim total As Long Dim i As Integer total=0 For i=0 To 49 If a(i)800 Or a(i) 按钮运行程序，并按要求保存。
