1、VB机试模拟试卷 55及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个名称为 Textl的文本框，其高、宽分别为600、 1 800。请在属性框中设置适当的属性满足以下要求： Text1的字体为 “隶书 ”，字号为 “三号 ”；窗体的标题为 “字体大小 ”，不显示最大化按钮和最小化按钮，如图 491所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在 Forml的窗体上画一个文本框，其名称为 Textl；再画两个命令按钮，其名称分别 为 Commandl和Command2、标题分别为 “显示 ”
2、和 “清空 ”，编写适当的事件过程。程序运行后，如果单击 “显示 ”按钮，则在文本框中显示 “模拟考试 ”，并使 “清空 ”按钮可用。此时如果单击 “清空 ”按钮，则清空文本框，同时该按钮变为不可用。程序中不得使用任何变量。程序运行时的窗体界面如图 492和图 493所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体中画一个名称为 Textl的文本框，其标题 为 “0”；再添加一个名称为 Timerl的计时器。请设置适当的控件属性，并编写适当的事件过程使得在运行时，每隔 1秒钟文
3、本框中的数字加 1，当达到 10时，在窗口上打印 “10”，然后重新从 O开始计数，如图 433所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sj3 vbp，窗体文件名为sj3 frm。 (2)在考生文件夹下有工程文件 sj4 vbp，窗体文件 sj4 frm，该程序是不完整的。在窗体上已经画出两个图像框，名称分别为 Imagel和 Image2；一个水平滚动条，名称为 HScrolll。要求考生不改动 Imagel和 Image2的 Width属性。当运行程序时，图像框中加载考生文件夹下的图片 test.bmp。滚动水平滚动条中的滚动块时，图片 Image
4、l和 Image2会随着滚动条的滚动进度逐渐显露出来或隐藏起来。 程序运行时的窗体界面如图 434所示。注意：请在有“?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。 三、综合应用题（ 30分） 3 在考生文件夹中有工程文件 sj5 vbp及其窗体文件 sj5 frm，该程序是不完整的，请在有 “?”的地方填入正确内容，然后删除 “?”及所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下： 在名称为Forml的窗体上有一个文本框，名称为 Textl
5、、 MultiLine属性为 True、 ScrollBars属性为 2；两个命令按钮名称分别为 Commandl和 Command2、标题分别为 “读取 ”和“计算保存 ”，程序运行界面如图 465所示。要求程序运行后，如果单击 “读取 ”按钮，则读入 in txt文件中的 50个整数， 放入一个数组中 (数组下界为 1)，同时在文本框中显示出来；如果单击 “计算保存 ”按钮，则计算其中前 30个数之和，并把求和结果在文本框 Textl中显示出来，同时把结果存入考生文件夹中的文件out txt中。 (在考生的文件夹下有标准模块 mode bas，其中的 writeputdata过程可以把结果
6、存入指定的文件 )。 注意：文件必须存放在考生文件夹下，窗体文件名为 sj5 frm，工程文件名为 sj5 vbp，计算结果存入 out txt文件，否则没有成绩。 VB机试模拟试卷 55答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl、 Caption属性为 “模拟考试 ”， Fonl属性为 “隶书 ”、 “三号 ”，Forml的 MaxButton和 MinButton属性为 “False”， Caption属性为 “字体大小 ”。单击按钮运行程序，并按要求保存。 (2)根据题意，新建
7、“标准 EXE”工程，将一个文本框控件和两个命令按钮添加到窗体中，文本框的名称为 Textl、 Text属性为 “模拟考试 ”，命令按钮的名称分别为 Commandl和 Command2、 Caption属性分别为 “显示 ”和 “清空 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Textl Text=“模拟考试 “ 在 Textl中显示 “模拟考试 “ Command2 Enabled=True将 “清空 ”按钮变为可用 End Sub Private Sub Command2_Click() Textl Text=“ 单
8、击 “清空 ”，则清空 Textl中的文本 Command2 Enabled=False将 “清空 ”按钮变为不可用 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个 Text控件和一个Timer控件添加到窗体上， Text的名称为 Textl， Text属性为 “0”， Timer的名称为Timerl， Interval属性为 1 000毫秒。双击 Timerl进入代码窗口，编写如下代码： Private Sub Timerl_Timer() Textl Text=Val(Textl Text
9、)+1每个间隔计数器加 1 If Val(Textl Text)=10 Then当计数器大于等于 10时 Textl Text=0重新从 0开始计数 Print“10“ End If End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将一个 HScrollBar控件和两个 Image控件添加到窗体上， HScrollBar的名称为HScrolll、 Min为 400、 Max为 2000 Image的名称分别为 Imagel和 Image2、Stretch属性为 True。双击 HScrolll进入代码窗口，编写如下代码： Dim a As Integer Private S
10、ub Form_Load() a=Image2 Left+Image2 Width将 Image2的右边界赋值给 a Imagel Width=HScrolll Value初始化 Imagel的宽度等于滚动条的值 End Sub Private Sub HScrolll_Change() 当移动滚动块时。 Imagel和 Image2的宽度随之改变 hnagel Width=HScrolll Value Image2 Width=HScrolll.Max-HScroltl Value Image2 Left=a-Image2 Width改变 Image2的左边界 End Sub 单击 按钮运行
11、程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 文本框显示的内容由 Text属性设置， Muhiline属性决定文本框是否可多行显示；按钮的标题由 Caption属性设置，单击命令按钮触发 Click事件。题中涉及文件的操作读人顺序文件以顺序的方式打开，用 input#语句读取数据。另外需要注重的是对文件操作完后，一定要关闭文件。 根据题意要求将一个文本框控件和两个命令 按钮加到窗体中，其中文本框的名称为 Namel、 MuhiLine属性为 True， ScrollBar属性为 2；命令按钮的名称分别为 Commandl和 Command2，Caption的属性分别为 “
12、读取 ”和 “计算保存 ”。然后将 node bas模板加入到工程中。 模板代码如下： Function writeData(total As Long) ()pen App Path&“ out txt“For Output As#1 Write#1 total Close#1 End Function 单击 Commandl进入代码窗口，补充后的代码如下： Dim a(50)As Long全局变量 Dim str(50)As String全局变量 Dim total As LongPrivate Sub Commandl_Click() total=0 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 29 total=total+a(i) str(i)=a(i) Textl Text=Textl Text+str(i)+vbCrLf Next i Close#1End Sub单击 按钮运行程序，并按要求保存。
