2请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

　　(1)在名称为Form1的窗体上画3个标签，名称分别为Label1、Label2和Label3，标题分别为"人数"、"年龄"和"收入"，3个文本框，名称分别为Text1、Text2和Text3，Text属性均为空，一个命令按钮，名称为Command1，标题为"输入"。然后编写命令按钮的Click事件过程， 要求程序运行后，如果单击命令按钮，则先后显示3个输入对话框，在3个输入对话框中分别输入人数、年龄和收入，并分别在3个文本框中显示出来。程序运行界面如图4-1所示。要求程序中不得使用任何变量。

　　图4-1

　　注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。

　　(2)在名称为Form1的窗体上画一个图片框，名称为Pic1，一个水平滚动条，名称为HScroll1，通过"属性"窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生文件夹下)，图片框的高度与图形的高度相同，图片框的宽度任意，运行时的窗体如图4-2所示。编写适当的事件过程，要求程序运行后，图片的宽度随滚动条变化。即设置水平滚动条的如下属性：Min为200，Max为2000，LargeChange为200，然后就可以通过移动滚动条上的滚动块来放大或缩小图片框的宽度。拖动滚动条后的窗体如图4-3所示。要求程序中不得使用任何变量。

　　 图4-2

　　 图4-3

　　注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。

　　参考解析：

　　(1)本题主要考查利用InputBox函数的用法。根据题意，新建"标准EXE"工程，在名称为Form1的窗体上画3个标签，名称分别为Label1、Label2和Label3，标题分别为"人数"、"年龄"和"收入"，3个文本框，名称分别为Text1、Text2和Text3，Text属性均为空白，一个命令按钮，名称为Command1，标题为"输入"。双击Command1进入代码编写窗口，代码如下：

　　Private Sub Command1_Click()

　　Text1.Text = Val(InputBox("请输入人数"))

　　Text2.Text = Val(InputBox("请输入年龄"))

　　Text3.Text = Val(InputBox("请输入收入"))

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　(2)根据题意，新建"标准EXE"工程，在名称为Form1的窗体上画一个图片控件，名称为Pic1，再画一个水平滚动条控件，名称为HScroll1，Min属性为200，Max属性为2000，LargeChange为200。图片的宽度与HScroll1有关，具体代码如下：

　　Private Sub Form_Load() '初始化

　　Pic1.Width = HScroll1.Value

　　End Sub

　　Private Sub HScroll1_Change() '当拖动水平滚动条时的处理函数

　　Pic1.Width = HScroll1.Value

　　End Sub

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015年9月计算机等级考试各科目考前必做试题

　　2015年计算机二级《C语言》冲刺试题及答案汇总