VB机试模拟试卷55(题后含答案及解析)

VB机试模拟试卷55(题后含答案及解析)
题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题
基本操作题（30分）
1．(1)在名称为Forml的窗体上画一个名称为Textl的文本框，其高、宽分别为600、1 800。

请在属性框中设置适当的属性满足以下要求：Text1的字体为“隶书”，字号为“三号”；窗体的标题为“字体大小”，不显示最大化按钮和最小化按钮，如图49—1所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjl．vbp，窗体文件名为sjl．frm。

(2)在Forml的窗体上画一个文本框，其名称为Textl；再画两个命令按钮，其名称分别为Commandl和Command2、标题分别为“显示”和“清空”，编写适当的事件过程。

程序运行后，如果单击“显示”按钮，则在文本框中显示“模拟考试”，并使“清空”按钮可用。

此时如果单击“清空”按钮，则清空文本框，同时该按钮变为不可用。

程序中不得使用任何变量。

程序运行时的窗体界面如图49—2和图49—3所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。

正确答案：(1)根据题意，新建“标准EXE”工程，将一个文本框控件添加到窗体中，其名称为Textl、Caption属性为“模拟考试”，Fonl属性为“隶书”、“三号”，Forml的MaxButton和MinButton属性为“False”，Caption属性为“字体大小”。

单击按钮运行程序，并按要求保存。

(2)根据题意，新建“标准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=““‘单击“清空”，则清空Textl 中的文本Command2．Enabled=False’将“清空”按钮变为不可用End Sub 单击按钮运行程序，并按要求保存。

简单应用题（40分）
2．(1)在名称为Forml的窗体中画一个名称为Textl的文本框，其标题为“0”；再添加一个名称为Timerl的计时器。

请设置适当的控件属性，并编写适当的事件过程．使得在运行时，每隔1秒钟文本框中的数字加1，当达到10时，在窗口上打印“10”，然后重新从O开始计数，如图43—3所示。

程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为sj3．vbp，窗体文件名为sj3．frm。

(2)在考生文件夹下有工程文件sj4．vbp，窗体文件sj4．frm，该程序是不完整的。

在窗体上已经画出两个图像框，名称分别为Imagel 和Image2；一个水平滚动条，名称为HScrolll。

要求考生不改动Imagel和Image2的Width属性。

当运行程序时，图像框中加载考生文件夹下的图片test.bmp。

滚
动水平滚动条中的滚动块时，图片Imagel和Image2会随着滚动条的滚动进度逐渐显露出来或隐藏起来。

程序运行时的窗体界面如图43—4所示。

注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“‘”号)，但不能修改其他部分。

修改后的工程及窗体文件，均以原名保存在考生文件夹下。

正确答案：(1)根据题意，新建“标准EXE”工程，将一个Text控件和一个Timer控件添加到窗体上，Text的名称为Textl，Text属性为“0”，Timer的名称为Timerl，Interval属性为1 000毫秒。

双击Timerl进入代码窗口，编写如下代码：Private Sub Timerl_Timer( ) Textl．Text=Val(Textl．Text)+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 Sub 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 单击按钮运行程序，并按要求保存。

综合应用题（30分）
3．在考生文件夹中有工程文件sj5．vbp及其窗体文件sj5．frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及所有注释符(即“‘”号)，但不能修改其他部分。

存盘时不得改变文件名和文件夹。

本题描述如下：在名称为Forml的窗体上有一个文本框，名称为Textl、MultiLine属性为True、ScrollBars属性为2；两个命令按钮名称分别为Commandl和Command2、标题分别为“读取”和“计算保存”，程序运行界面如图46—5所示。

要求程序运行后，如果单击“读取”按钮，则读入in．txt文件中的50个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来；如果单击“计算保存”按钮，则计算其中前30个数之和，并把求和结果在文本框Textl中显示出来，同时把结果存入考生文件夹中的文件out．txt中。

(在考生的文件夹下有标准模块mode．bas，其中的writeputdata过程可以把结果存入指定的文件)。

注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp，计算结果存入out．txt文件，否则没有成绩。

正确答案：文本框显示的内容由Text属性设置，Muhiline属性决定文本框是否可多行显示；按钮的标题由Caption属性设置，单击命令按钮触发Click事件。

题中涉及文件的操作．读人顺序文件以顺序的方式打开，用input#语句读取数据。

另外需要注重的是对文件操作完后，一定要关闭文件。

根据题意要求将一个文本框控件和两个命令按钮加到窗体中，其中文本框的名称为Namel、
MuhiLine属性为True，ScrollBar属性为2；命令按钮的名称分别为Commandl 和Command2，Caption的属性分别为“读取”和“计算保存”。

然后将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单击按钮运行程序，并按要求保存。