1、VB机试模拟试卷 181及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画两个标签 (名称分别为 Labell和 Label2，标题分别显示为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Textl和 Text2，初使内容均为空 )和一个命令按钮 (名称为 Commandl，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输入姓名和年龄，然后单击 “显示 ”按钮，则在窗体上显示两个文本框中的内容，如图 421所示。注意：要求程序中不得使用任何变量。存盘时必 须存放在考生文件夹下，工程文件名保存为 sil vb
2、p，窗体文件名保存为sjl frm。 (2)在名称为 Forml的窗体上画一个图片框 (其名称为 Picturel)、一个水平滚动条 (名称为 HScrooll1)和一个命令按钮 (名称为 Commandl)，标题为 “设置属性 ”，通过属性窗口在图片框中装入一个图形 (文件名为 picl jpg，位于考生目录下 )，图片框的高度与图形的高度相同，图片框的宽度任意 (如图 422所示 )。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：之后就可以通过移动滚 动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图 423所示。注意：要求程序中不得使用任何变量。存盘时
3、必须存放在考生文件夹下，工程文件名为 si2 vbp，窗体文件名为 si2 frm。 二、简单应用题（ 40分） 2 在考生文件夹中有一个工程文件 execise45.vbp和窗体文件 execise45.frm。它的功能是在运行时只显示名为 Form2的窗体，单击 Form2上的 “上线 ”命令按钮，则显示名为 Form1的窗体；单击 Form1上的 “隐身 ”命令按钮，则 Form1的窗体消失。这个程序并不完整，要求 ： (1)把 Form2设为启动窗体；把 Form1上按钮的标题改为 “隐身 ”，把 Form2上按钮的标题改为 “上线 ”。 (2)去掉程序中的注释符 “”，把程序中的问号
4、 “?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后把修改后的文件存盘。 (3)工程文件和窗体文件仍按原名保存。 正确程序运行后的界面如卜图所示。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 Sj5 vbp，窗体上有一个文本框，名称为Textl，可以多行显示。还有 3个命令按钮，名称分别为 Commandl、 Command2和Command3，标题分别为 “读取数据 ”、 “降序排列 ”和 “保存 ”。 “读取数据 ”按钮的功能是从考生文件夹下的 in5 dat文件中读取 40个整数到数组中，并在 Textl中显示出来； “降序排列 ”按钮的功能是对这
5、40个数降序排序，并显示在 Textl中； “保存 ”按钮的功能是把排好序的 40个数存到考生文件夹下的 out5 dat文件中。程序运行界面如图 385所示。 注意：在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改 程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 VB机试模拟试卷 181答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将 2个标签控件、 2个文本框控件、 1个命令按钮控件添加到窗体中， 2个标签控件名称分
6、别为 Labell和Label2， Caption属性分别为 “姓名 ”和 “年龄 ”， 2个文本框控件名称分别为 Textl和Text2， Text属性都为空，命令按钮 Caption属性为 “显示 ”。双击进入代码窗口，编写如下代码： Private Sub Commandl_Click() Forml Print Textl Text&“，现年“&Text2 Text&“岁 “ End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个图片框控件、水平滚动条控件和命令按钮添加到窗体中，图片框控件名称为 Picturel， AutoSize属性为
7、 “True”， Picture设置为picl jpg，水平滚动条控件名称为 HScrolll，命令按钮控件名称为 Commandl，Caption属性为 “设置属性 ”。双击进入代码窗口，编写如下代码： Private Sub Commandl_Click() HScrolll Max=1500 HScrolll Min=100 HScrolll LargeChange=100 HScrolll SmallChange=10 End Sub Private Sub HScrolll_Change() Picturel Width=HScrolll Value End Sub 单击 按钮运行程
8、序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 三、综合应用题（ 30分） 3 【正确答案】 本题在排序中，使用双重循环，外循环每循环一次，确定内循环的次数，内循环就是把本次循环中最小的数，放在数组的最后面，这样就可以 实现对40个数的降序排序。原代码补充后如下： Dim a(40)As Long Dim str(40)As String Dim tex As String Dim i As Integer Private Sub Commandl Click() 读取数据 tex=“ Open“App Path& in5 dat“For Input As#1 For i=1
9、 To 40 Input#1， a(i) 逐个读取40个数据 str(i)=a(i) tex： tex+str(i)+“ 将数组放到一个字符串中 Next i Close#1 Textl Text=tex 在 Textl中显示字符串 End Sub Private Sub Command3 Click() 保存数据 Open“App Path& out5 dat“For Output As#1 Print#1， Textl Text Close#1 End Sub 并在 Command2的 Click事件中编写以下代码： Private Sub Command2 Click() For i=1 To 40 降序排列 temp=a(i) For j=1 To i If a(j) 按钮运行程序，并按要求保存。
