全国计算机等级测验二级VB上机试题及答案（十一）

全国计算机等级测验二级VB上机试题及答案(十一)

1 / 9

———————————————————————————————— 作者： ———————————————————————————————— 日期：

2 / 9

个人收集整理，勿做商业用途

全国计算机等级考试二级VB上机试题及答案(十一)

基本操作（2小题，每题15分，共30分）

**************************************************************** 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。

请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscroll，Min属性和Max分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。 要求：不得使用任何变量。

（2）在名称为Form1的窗体中画一个图像框，名称为Image1，其高、宽分别为1800、4500，通过属性窗口把考生文件夹下的图像文件smile.bmp装入图像框；再画一个命令按钮，名称为Cmd1，标题为\放大\。

请编写适当事件过程，程序运行后，单击\放大\按钮，则把图像框的高度、宽度均增加100，同时图像也随之自动放大。 注意：程序中不得使用任何变量。

3 / 9

个人收集整理，勿做商业用途

程序运行时的界面如图所示。

****************************************************************

参考答案与分析

（1）【解析】

滚动条的属性设置：Min--最大值属性。默认值为32767；Max--最小值属性，默认值为0；Value--返回或设置滚动条的当前位置的值，返回直介于Max 和Man属性之间的值，包括这两个值。

要实现滚动条的返回值与List的设置值同步变化，在两者之间建立等式关系即可。而Text属性对应的变量类型为字符串，所以这里用了一个转化函数Val（）来实现。Val(S)函数将字符串转化为数值。与之对应的将数值转化为字符串的函数Str(N)。 【答案】

第一步：启动VB，新建一个工程文件。

第二步：在窗体上画一个文本框，文本框的Name属性为Text1，Text属性空，再在窗体上画一个水平滚动条Max为100，Min为0，Name为HScroll1，再画一个列表框List1，在List属性中输入\、20、30、40、50、60、70、80、90\。 第三步：编写程序代码：

1 Private Sub List1_Click() 2 Text1.Text = List1.Text

3 HScroll1.Value = Val(List1.Text) 4 End Sub

第四步：调试并运行程序，运行正确后按要求保存。 （2）【解析】

本题主要考查了图像框的Stretch属性以及控制其大小的Height、Width属性。Height、Width属性与其它控件类似，设置相应的值即可动态的改变图像框的大小，例如题目要求单击\放大\按钮要使得图像框的宽度和高度均增加100，故在Cmd1 的Click事件中改变Image的Height和Width，在原先的基础上加上100。 另外，题目中要求固定图片框的大小，即不能由于图片的大小而改变图片框的大小，而且改变图像框的大小后，其中加载的图片也要自动改变大小，所以必须将

4 / 9