全国计算机等级考试二级VB上机试题与答案十一.docVIP

PAGE/NUMPAGES

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

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

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

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

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

（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，同时图像也随之自动放大。

注意：程序中不得使用任何变量。

程序运行时的界面如下图。

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

参考答案与分析

（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属性中输入10、20、30、40、50、60、70、80、90。

第三步：编写程序代码：

1PrivateSubList1_Click()

2Text1.Text=List1.Text

3HScroll1.Value=Val(List1.Text)

4EndSub

第四步：调试并运行程序，运行正确后按要求保存。

（2）[解析]

此题主要考查了图像框的Stretch属性以与控制其大小的Height、Width属性。Height、Width属性与其它控件类似，设置相应的值即可动态的改变图像框的大小，例如题目要求单击放大按钮要使得图像框的宽度和高度均增加100，故在Cmd1的Click事件中改变Image的Height和Width，在原先的基础上加上100。

另外，题目中要求固定图片框的大小，即不能由于图片的大小而改变图片框的大小，而且改变图像框的大小后，其中加载的图片也要自动改变大小，所以必须将Image的Stretch属性设置为True。

[答案]

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

第二步：在窗体中画一个图像框，名称为Image1，设置Height属性1800，Width属性1500，Stretch属性为True，在Picture属性中装入文件夹下的图像文件smile.bmp，再画一个命令按钮，Name属性为Cmd1，Caption属性为放大。

第三步：编辑代码：

1PrivateSubCmd1_Click()

2Image1.Height=Image1.Height+100

3Image1.Width=Image1.Width+100

4EndSub

第四步：调试并运行程序，运行正确后按要求保存。

简单操作（2小题，每题20分，共40分）

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

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

（1）在考生文件夹下有一个工程文件stj3.vbp，与其窗体文件stj3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示您按下了鼠标的左键；如