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

全国计算机等级考试二级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，同时图像也随之自动放大。 注意：程序中不得使用任何变量。

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

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

参考答案与分析

（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属性。