1、VB机试模拟试卷 83及答案与解析 一、基本操作题（ 30分） 1 在名称为 Forml的窗体上添加两个名称分别为 Framel、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；在 Framel中添加两个单选按钮，名称分别为 Optionl、Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在Frame2中添加 1个名称为 Checkl的复选框，标题为 “下划线 ”。程序运行后的窗体界面如图 611所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjl vbp，窗体文件名保存为 sjl frm。 (2)在名为 Forml的窗体上
2、绘制一个文本框，名为 Textl，无初始内容；再绘制一个图片框，名为 Picl。请编写 Text1的Change事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。运行时的窗体如图 612所示。注意：程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj2 vbp，窗体文件名为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹中有一个工程文件 sj3 vbp和一个窗体文件 sj3 frm。窗体上有一个名为 Textl的文件框，一个标题为 “计算 ”、名称为 Commandl的命令按钮和一个组合框。请在名为 Combo1的
3、组合框中输入 3个列表项： “5”、 “9”和 “13”(列表项的顺序不限，但必须是这 3个数字 )，程序运行情况如图 363所示。 请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击 “计算 ”按钮，则计算 4000以内能够被该数整除的所有数之和，并放入 Textl中。最后，按原文件名存盘 (提示：由于计算结果较大，应使用长整型变量 )。 注意：不得修改窗体文件中已经存在的程序，在结束程序运行之前 ，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。 (2)在考生文件夹中有一个工程文件sj4 vbp及窗体文件 sj4 frm。在名为 Forml的窗体上有
4、一个圆和一条直线 (直线的名称为 Linel)构成一个钟表的图案；有两个命令按钮，名称分别为 Commandl和Command2，标题分别为 “开始 ”和 “暂停 ”；还有一个名为 Timerl的计时器。 程序运行时，钟表指针不动，单击开始按钮，则钟表上的指针 (即 Linel)开始顺时针旋转(每秒转 6。 ，一分钟转一圈 )；单击暂停按钮，则指针暂停旋转。运行 时的窗体如图364所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次；编写两个按钮的 Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写
5、一条语句。最后，按原文件名并在原文件夹中保存修改后的文件。注意：保存时必须存放到考生文件夹下，工程文件名为 sj4 vbp，窗体文件名为 sj4 frm。 三、综合应用题（ 30分） 3 在考生文件夹中有工程文件 sj5 vbp及其窗体文件 sj5 frm，该程序是不完整的。在名称 为 Forml的窗体上有一个文本框，名称为 Textl、 MuItiLine属性为True、 ScrollBars属性为 2；两个命令按钮，名称分别为 Commandl和 Command2、标题分别为 “读取 ”和 “排序保存 ”，如图 185所示。程序运行后，如果单击 “读取 ”按钮，则读入 in txt文件中的
6、 50个整数，放入一个数组中 (数组下界为 1)；如果单击 “排序保存 ”按钮，则对这 50个整数按从小到大的顺序进行排序，把排序后的全部数据在文本框 Textl中显示出来，然后存人考生文件夹的 out txt文件中。 (考生文件夹下的标准模 块 mode5 has中的 writedata过程可以把指定个数的数组元素存入 out txt文件。 ) 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )但不能修改其他部分。文件必须存放在考生文件夹下，窗体文件名为 si5 frm，工程文件名为 si5 vbp，排序结果存入out txt文件中，否则没有成绩。
7、 VB机试模拟试卷 83答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，在窗体上添加 2个框架， 2个单选按钮和 1个复选框， 2个框架的名称分别为 Framel和 Frame2， Caption属性分别为 “字号 ”和 “修饰 ”， 2个单选按钮的名称分别为 Optionl和 Option2， Caption属性分别为 “10号字 ”和 “20号字 ”，复选框名称为 Checkl， Caption属性为 “下画线 ”。单击 按钮运行程序，并按要求保存。 (2) 新建一个名为 Forml的窗体。 单击工具箱中的 PictureBox控件图标
8、，在窗体上拖拉出一个图片框，在属性窗口设置该图片框名称为 Picl。 单击工具箱中的 TextBox控件图标，在窗体上拖拉出一个文本框，在 属性窗口设置该文本框名称为 Textl，设置其 Text属性为空白。 打开代码窗口输入如下代码： Private Sub Textl一 Change()将文本框内容显示在图片框中 End Sub 按要求保存文件即完成本题。 二、简单应用题（ 40分） 2 【正确答案】 (1)组合框 (ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也 可在列表框部分选择项目；组合框的列表项可以在设计阶段通过其 List属性加入，加入时
9、注意每输入完一项后按 “Ctrl+Enter”组合键换行再输入下一项，也可以通过代码设置， Addhem方法用来向组合框中添加一个表项，其格式为：组合框 Additem列表项 索引 。 题目给出的源程序中已给设计好窗体，只需在 Combol的 List属性中添加 “5”、 “9”和 “13”三个列表项，添加完成后，双击 Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() If Comb01 Text=5 Then divide(5) Elself Comb01 Text=9 Then divide(9) Else divide(13) E
10、nd IfEnd Sub Private Sub divide(X AS Integer) Dim i As Integer Dim temp As Long For i=1 TO 4000 If i Mod x=0 Then temp=temp+i End If Next i Textl Text=temp End Sub 单击 按钮运行程序并按要求保 存。 (2)本题主要考查计时器控件和形状控件和用法。计时器的 Interval属性用于设置每次触发计时器的 Timer事件的时间间隔，单位为毫秒。 Enabled属性控制计时器是否开始启用， True表示启用， False表示不启用。形状控件
11、用来绘制各种形状，其值有 6种， 0表示矩形， 1表示正方形， 2表示椭圆， 3表示圆形， 4表示圆角矩形， 5表示圆角正方形。 根据题意，将计时器的 Interval属性设为 1 000，双击 Commandl命令按钮，进入代码窗口，源程序给出的代码如下： Dim lenth As Integer， q As Integer Const PI=3 14159 Private Sub Form Load() lenth=Linel Y2-Linel Y1 q=90 End Sub Private Sub Timerl_Timer() q=q-6 Linel.Y1=Linel Y2-lenth*
12、Sin(q*PI 180) Linel X1=Linel X2+lenth*Cos(q*PI 180) End Sub 补充后的命令按钮事件如下： Private Sub Commandl Click() Timerl Enabled=True End Sub Private Sub Command2_Click() Timerl=False End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意将一个文本框控件和两个命令按钮添加到窗体中，根据题意的要求设置属性，即文本框的名称为 Textl， MultiLine属性为 true，滚动属性为2
13、，而两个命令按钮的控件的 Caption属性分别为 “读取 ”和 “排列保存 ”，名称为Commandl和 Command2，将 mode5 has模板加入到工程中 (右键单击工程名，然后选择进入 modules(模板 )，选择 mode5 has)，模板的代码如下： Sub putdata(a()As Integer， n As Integer) Dim sFile AS String sFile=“ out txt“ Open App Path&sFile For Outpu!As#1 For i=1 To n Print#1， a(i)； Next i Close#1 End Sub 双
14、击 Command1，进入代码编写窗 Vl，采用边读取边排序的方法，一旦 读取的数比某个位置 n的数大，则 n之后的数将向后移一个数，而将新读取的数放到 n的位置上，代码如下： Option Explicit Dim i(1 To 50)As Integer Private Sub Commandl_Click() Dim j As Integer Open App Path&“ in txt“For Input As#1 For i=l TO 50 Input#1， i(j) Textl Textm=Textl Text&i(j)&Space(5) Next j Close#1 End Sub Private Sub Command2_Click() Dim j As Integer Dim k As Integer Dim ternp As Integer Dim1ag AS Boolean For j=1 To 50 flag=False For k=1 To 50-j If i(k) 按钮运行程序，并按要求保存。
