全国计算机等级考试二级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属性。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属性为\放大\。
第三步：编辑代码：
1 Private Sub Cmd1_Click()
2 Image1.Height = Image1.Height + 100
3 Image1.Width = Image1.Width + 100
4 End Sub
第四步：调试并运行程序，运行正确后按要求保存。
简单操作（2小题，每题20分，共40分）
****************************************************************
请根据以下各小题的要求设计VB应用程序（包括界面和代码）。
（1）在考生文件夹下有一个工程文件stj3.vbp，及其窗体文件stj3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示\您按下了鼠标的左键\；如果用鼠标的右键按住窗体，并在其上移动，则显示\您按下了鼠标的右键\。
程序运行时的窗体界面如图所示。
全国计算机等级考试二级VB上机试题及答案十
