1、VB机试模拟试卷 64及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Form1的窗体上画一个命令按钮，名称为 commandl，标题为 “缩小一半 ”。编写事件过程，程序运行后，如果单击 Commandl命令按钮，则使Comrnandl按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图 141所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为sj1 vbp。 (2)在名称为 Form1的窗体上画一个命令按钮和一个水平滚动条，其名称分别为 Commandl和 HScrolll。命令按钮的标题为 “滚动条变长 ”。编
2、写适当的事件过程，使得程序运行后，如果单击 Commandl命令按钮，则使 HScrolll水平滚动条的 Width属性减小 1000， Min属性为 0， LargeChange的属性为 100，SmallChange的属性为 20，且 Commandl不可用，移动滚动条，在窗体上显示滚动条的位置值。不得使用任何变量。程序运行时的窗体界面如图 142所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、 简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm，该程序是不完整的。本程序只有一个窗
3、体，当把鼠标光标移到窗体上时，每双击一次鼠标，就变换一种鼠标光标的形状，依次显示鼠标光标的 15种属性。程序运行后的窗体如图594所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4 vbp，窗体文件 sj frm，该程序是不完整的。在窗体上已经域出 一个图像框，名称为 Imagel；一个水平滚动条，名称为 HScroll1。要求考生不改动 Imagel的 Height与 width属性。当运行程序时，图像框中加载考生文件夹下的图片 test bmp。滚
4、动水平滚动条中的滚动块时，图片会随着滚动条的滚动进度逐渐显露出来，如图 595所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。修改后的工程及窗体文件，均以原名保存在考生文件夹下。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的，要求将程序补充完整，但不能修改其他部分。修改后的程序文件都保存，存盘时不得改变文件夹和文件名。 在窗体上有一个名为一 rextl的文本框，两个命令按钮，名称分别为 Commandl、 Command2、标题分别是 “读取 ”和
5、“加密保存 ”，要求程序运行后，单击 “读取 ”按钮，将考生文件夹下文本文件 in5 txt中的文本信息读入文本框 Text1中；单击 “加密保存 ”按钮，将 Text1中的英文字母加密转换，将转换后的结果显示到 Text1中并保存到考生文件夹下的 out5 txt文 件中。转换方式为转换成该字母对应字母表中前一个位置的字母。例如，转换前的字母是 “b”，则转换后的是 “a”，转换前的是 “G”，转换后的是 “F”。程序运行时的窗体界面如图 695所示。 注意：文件必须存放在考生文件夹下，窗体文件名为 sj5 frm，工程文件名 sj5 vbp，加密的结果存入 out5 txt，否则没有成绩。
6、 VB机试模拟试卷 64答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个 Command添加到窗体中，其名称为 Commandl、 Caption属性为 “缩小一半 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Commandl Width=Commandl Width 2 宽度变为原来的一半 Commandl Height=Commandl Height 2长度变为原来的一半 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”
7、工程，将一个水平滚动条控件和一个命令按钮添加到窗体中，水平滚动条的名称为 HScrolll，命令按钮的名称为 Commandl、 Caption属性为 “滚动条变长 ”。双击 Command，进入代码窗口编写如下代码： Private Sub Commandl_Click() HScrolll Width=Forml HScrolll Width-1000HScroll的宽度变为窗体宽度减 1000 HScrolll LargeChange=100 HScrolll SmallChange=20 HScrolll Min=0 Command1 Enabled=FalseCommandl变为不可
8、用 End Sub Private Sub HScrolll_Change() Forml Cls清空窗体显示 Print HScrolll Value显示滚动条位置值 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查考生对鼠标的 MousePointer属性的掌握情况。 MousePointer属性用于设置鼠标经过某对 象时光标的形状类型，既可以在属性窗口设置，也可以通过代码设置。 IVLousePointer属性值可以是 0 15之间的任一整数，不同的值代表不同的形状。 MousePointer属性值通过代码设置的一般格式
9、为：对象名 MousePointer=n(n为 0 15间的整数 )。 根据题意，将两个标签添加到窗体中，名称分别为 Labell和 Label2、 Caption属性分别为 “当前鼠标形状为： ”和“1”，并设置 MousePointer属性为 1。双击 Forml进入代码窗口，补充后的具体代码如下： Private Sub Form_DblClick() If Me MousePointer 按钮运行程序，并按要求保存。 (2)窗体加载时触发 Form_Load事件。滚动条的事件主要有 Scroll和Change事件。当在滚动条内拖动滑块时触发 Scroll事件 (单击滚动箭头或滚动条时不
10、发生 Scroll事件 )，而改变滑块的位置后会触发 Change事件。 Scroll事件用于跟踪滚动条中的动态变化， Change事件则用来得到滚动条最后的值。加载图片可以在属性窗口的 Picture属性中设置，也可以在代码中通过 LoadPicture(“图像 文件路径 ”)图片加载函数加入图片。 根据题意，将一个水平滚动条控件和一个图像控件添加到窗体中，水平滚动条的名称为 HScrolll、 Min属性为 400、 Max属性为 2 295， Image的名称为 Imagel，并在其 Picture属性中加载考生文件夹下的“test bmp”图片。双击 HScrolll进入代码 窗口，编
11、写如下代码： Private Sub Form_Load() Imagel Width=HScrolll Value初始化，显示大小为水平滚动条的当前值 End Sub Private Sub HScrolll_Change() Imagel Width=HScrolll Value图像显示的大小是由水平滚动条决定的 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 根据题意，将两个命令按钮和一个文本框控件添加到窗体中，命令按钮的名称分别为 Commandl和 Command2， Caption分别为 “读取 ”和 “加密保存 ”，文本框的名称为
12、 Textl， MultiLine属性为 True、 Scrollbars属性为 2。设计完成后编写如下代码： Dim str As String Private Sub Commandl_Click() str=“ Dim trap As String Open“App Path& in5 txt“For Input As#l While EOF(1)=False Input#1， tmp逐行读取文件 str=str+tmp将读取到的字符放入 str字符串中 Wend Close#1 Textl Text=str 在 Textl中显示字符串 End Sub Private Sub Comma
13、nd2_Click() str=“ Dim tmp As String For i=1 To Len(Text1 Text) tmD=Mid(Textl Text， i， 1) 通过Mid函数一个一个读入字符 If Asc(tmp)=Asc(“A“)Then If Asc(tmp)=Asc(“a“)Then 当输人为小写字母时 tmp=Chr(Asc(tmp)-1-Asc(“a“)+26)Mod 26+Asc(“a“) Else当输入为大写字母时 tmp=Chr(Asc(tmp)-1-Asc(“A“)+26)Mod 26+Asc(“A“) End If End If str=str+tmp将字符串连起来 Next i Open“App Path& out5 txt“For Output As#2 Print#2， str Close#2 End Sub单击 按钮运行程序，并按要求保存。
