全国计算机等级考试二级 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 属性中输入"10、20、30、40、50、60、70、80、90"。第三步：编写程序代码：1 Private Sub List1_Click()2 Text1.Text = List1.Text3 HScroll1.Value = Val(List1.Text)4 End Sub第四步：调试并运营程序，运营对的后按规定保存。（2）【解析】本题重要考察了图像框的 Stretch 属性以...
