1、VB机试模拟试卷 103及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个图片框，名称为 Pieturel；一个垂直滚动条，名称为 VScrolll；一个命令按钮，名称为 Commandl，标题为 “设置属性 ”。通过 “属性 ”窗口在图片框中装入一个图形 (文件名为 Pic1 jpg，位于考生文件夹下 )，图片框的宽度与图形的宽度相同，图片框的高度任意，如图 551所示。编写适当的事件过程，要求程序运行后，如果单击命令按钮，则设置垂直滚动条的属性如下表所示。之后可以通过移动滚动条上的滚动块 来放大或缩小图片框的高度。运行后的窗体如图 552所示。要求程序中
2、不得使用任何变量。注意：保存时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为sjl frm。 (2)在名为 Forml的窗体中建立一个命令按钮，名为 Cmdl，标题为Show(如图 553所示 )。编写适当的事件过程，使程序运行后，若单击 Show按钮，则执行语句 Forml Print“Show”；如果单击窗体，则执行语句 Forml Cls。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vhp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm，该程序是不完整的。在窗体中有
3、一个 RichText文本框控件和一个文本框控件，名称分别为RichTextBoxl和 Textl，两个命令按钮，名称分别为 Commandl和 Command2，标题分别为 “读入文件 ”、 “统计字数 ”。要求程序运行后，单击 “读入文件 ”按钮，将考生文件夹下的 in tXt的内容显示到 RichTextl中；单击 “统计字数 ”按钮统计RichText1中有多少个字符，将结果显示在 Text 1中。程序运行界面如图 394所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符(即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生
4、文件夹下有工程文件 sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。在窗体上有一个名为 Imagel的图像框，要求程序运行后，载入考生文件夹下的 temp bmp图片，鼠标左键单击图像框中的图片，则图片变大；鼠标右键单击图像框中的图片，则图片变小。运行界面如图 395所示。注意：请在有 “?”的地方填入正确内容 ，然后删除 “?”及代码前的所有注释符 (即 “”号 )，并设置适当的属性，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序的控件已经设置完毕，要求考生去掉程序中的
5、注释符 “”，把 “?”改为正确的内容，以完成下面所描述的功能，存盘时不得改变文件名和文件夹。 在窗体上有一个名为 Listl的列表框，列表框中有若干的列表项，通过属性窗口设置列表框的 MultiSelect属性为 1。有一个命令按钮，名称是 Commandl，标题是 “保存 ”；另有一个名称为 Labell的标签和一个名称为 Textl的文本框， Labell的标题为 “选中项数 ”， Textl中显示当前选择的表项数量，并弹出如图 585所示的提示框。如果选择 “否 ”，则退出程序；如果选择 “是 ”，则把选中的表项存盘到考生文件夹下的 out5 txt文件中。VB机试模拟试卷 103答案
6、与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题主要考查图片框的使用。控制图片的大小就是调整图片框Width属性和 Height属性的值， Width属性和 Height属性分别 决定控件的宽和高。要想通过改变滚动条的 Value属性值来调节图片框的大小，需要将滚动条的 Value属性值和图片框的高度联系起来，使滚动条的 Value属性值改变时触发 Change事件。 建立界面并设置控件属性。程序中用到的控件及其属性见下表： 编写参考代码如下： Option Explicit Private Sub Commandl Click() VScrolll Max=3000 VScr
7、olll Min=100 VScrolll LargeChange=300 VScrolll SmallChange=20 End Sub Private Sub VScrolll Change() Picturel HeightVScrolll Value End Sub 调试并运行程序。 按题目要求存盘。 (2) 新建一个名为 Forml的窗体。 单击工具箱中的 CommandButton控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为 Cmdl，标题为 “Show”。 打开代码窗口中输入如下代码： Private Sub Cmdl_Click() Forml Prin
8、t“Show“ End Sub Private Sub Form Click() Forml Cls End Sub 按要求保存文件即完成本题。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要考查了 RichTextBox控件的用法。 RichTextBox控件可以用 LoadFile和 SaveFile方法打开或保存文件， LoadFile方法能将 RTF文件或文本文件装入控件，其格式为：对象 LoadFile文件标志符 ，文件类型 ；统计字符的个数可用 Lm(要统计的内容 )函数。 根据题意，将一个 RichTextBoxl文本框和一个 Text文本框控件添加到窗体中，名称分
9、别为 RichTextBoxl和 Textl、 C 1ption属性均为空，两个命令按钮的名称分别为 Commandl和 Command2、 Caption属性分别为 “读人文件 ”和 “统计字数 ”。双击 Commandl进人代码编写窗口，具体代码如下： Option Explicit Private Sub Commandl_Click() RichTextBoxl LoadFile App Path+“ in txt“ End Sub Private Sub Command2_Click() If RichTextBoxl Text“Then Textl Text=Len(RichTex
10、tBoxl Text) End If End Sub 单击 按钮运行程序，并按要求保存。 (2)判断鼠标左键还是右键可以通过图像框的MouseUp事件的 Button参数来判断。 MouseUp事件在释放鼠标按钮时 发生。根据题意，将一个图像控件添加到窗体中，其名称为 Imagel、 Picture属性中加载temp bmp图片、 Strech属性为 True，双击图像框进入代码编写窗口，编写如下代码： Private Sub Imagel_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single) Tf But
11、ton=1 Then If Imagel Height1000 Or Imagel WidthS1000 Then Imagel Height=Irnagel Height-300 Imagel Width=Imagel Width-300 End If End If End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题重点考查列表框、函数 MsgBox()、文件的打开等。 列表框控件用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其 List属性设置加入，也可以通过代码设置； MultiSelect用于设置是否可以在
12、列表项中做多个选择，值为 0(缺省设置 )表示不允许做多项选 择，值为 1表示允许做简单多项选择，值为 2表示允许使用 Shift、 Ctrl键做多项选择； Selected(Index)属性用于设置或返回指定索引号的列表项选择状态 (索引号从 0开始 )，值为 True表示被选中，值为 False表示未被选中。 List(Index)属性用于设置或返回指定索引号的列表项的内容， ListCount属性用来返回列表框中当前的列表项条数。 MsgBox()函数用于显示提示信息，并返回一个代表用户点击了哪个按钮的 Integer类型值，其常用语法为： MsgBox(prompt， buttons,
13、， title)。其中， prompt参数为消息框的提示信息； buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式； title参数为消息框标题栏上显示的内容。 关于文件的操作，主要是指对文件进行打开、读或写的操作，操作完成后，再关闭这个文件。打开文件的基本格式为： Open FileNatne For Mode As#FileNumber。打开方式主要有 Output、 Append、Input、 Random等几种方式。 Output、 Append、 Input方式打开的文件进行的读写操作都是以顺序方 式进行的。其中 Output、 Append打开的文件主要用来输出数
14、据，与 Print#、 Write、 #等方法配合使用；以 Input方式打开的文件主要用来输入数据，与 Input#、 Line Input#语句配合使用。以 Random方式打开的文件主要用于随机文件的读与写，它不分 Output与 Input，统一使用 Random标识。本题补充后的代码如下： Private Sub Commandl_Click() Textl Text=Listl SelCount Dim a As Integer Dim str As string Dim i As Integer str=“ a=MsgBox(“确认保存 ?“，vbOKCancel， “保存 “) 弹出提示对话框 If a=1 Then如果选择确定则保存 For i一 0 To Listl ListCount-1 For循环遍历 Listl If Listl Selected(i)Then str=str+Listl List(i)+vbCrLf如果选中则放入字符串中 End If Next i Open“App Path& out5 txt“For Output As#l 打开文件准备写入 Print#l， str将字符串写入文件中 Close#1 Else Unload Me 如果选择取消则关闭窗口 End If End Sub 单击 按钮运行程序，并按要求保存。
