问答题
注意：下面出现的“考生文件夹”均为c：/wexam/25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1) 在名称为Form1的窗体上画两个标签，名称分别为Label1和Label2，标题分别为“身高”和“体重”，两个文本框，名称分别为Text1和Text2，Text属性均为空白，一个命令按钮，名称为Command1，标题为“输入”。然后编写命令按钮的Click事件过程，程序运行后，如果单击命令按钮，则先后显示两个输入对话框，在两个输入对话框中分别输入身高和体重，并分别在两个文本框中显示出来。程序运行界面如图21-1所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt.frm。
(2) 在名称为Form1的窗体上画一个图片框，名称为Picture1，一个垂直滚动条，名称为VScroll1，一个命令按钮，名称为Command1，标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生文件夹下)，图片框的宽度与图形的宽度相同，图片框的高度任意，如图21-2所示。编写适当的事件过程。程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：
Min 100
Max 2400
LargeChang 200
SmallChange 20
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。运行后的窗体如图21-3所示。要求程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】
【答案解析】[解析] 在窗体上建立好控件后，先设置控件的属性，再编写程序代码。
文本框的内容由Text属性设置，命令按钮标题由Caption属性设置，单击命令按钮触发Click事件。程序中用到了InputBox()，其格式为：
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。
title：字符串，它是对话框的标题，显示在对话框顶部的标题区。
default：字符串，用来显示输入缓冲区的默认信息。
xpos，ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)，它们的单位为twip。
helpfile，context：helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字；context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表21-1。
表 21-1
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Command1_Click()
Text1.Text=InputBox("请输入身高")
Text2.Text=InputBox("请输入体重")
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写程序代码。
控制图片的大小，就是调节图片框Width属性和Height属性的值，Width属性和Height分别决定控件的宽和高。要使滚动条的Value值改变影响图片框的大小，需要将滚动条的Value值和图片框的高联系起来，滚动条的Value属性值改变时触发Change事件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表21-2。
表 21-2
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Commandl_Click()
VScroll1.Max=2400
VScroll1.Min=100
VScroll1.LargeChange=200
VScroll1.SmallChange=20
End Sub
Private Sub VScroll1_Change()
Picture1.Height=VScroll1.Value
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
文本框的内容由Text属性设置，命令按钮标题由Caption属性设置，单击命令按钮触发Click事件。程序中用到了InputBox()，其格式为：
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。
title：字符串，它是对话框的标题，显示在对话框顶部的标题区。
default：字符串，用来显示输入缓冲区的默认信息。
xpos，ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离(ypos)，它们的单位为twip。
helpfile，context：helpfile是一个字符串变量或字符串表达式，用来表示帮助文件的名字；context是一个数值变量或表达式，用来表示相关帮助主题的帮助目录号。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表21-1。
表 21-1
|
控 件 |
属 性 |
设 置 值 |
| 标签 | Name Cption |
Label 身高 |
| 标签 | Name Cption |
Label 体重 |
| 文本框 | Name | Text1 |
| 文本框 | Name | Text2 |
| 命令按钮 | Name Cption |
Command1 输入 |
参考代码：
Option Explicit
Private Sub Command1_Click()
Text1.Text=InputBox("请输入身高")
Text2.Text=InputBox("请输入体重")
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2) [解析] 在窗体上建立好控件后，先设置控件属性，再编写程序代码。
控制图片的大小，就是调节图片框Width属性和Height属性的值，Width属性和Height分别决定控件的宽和高。要使滚动条的Value值改变影响图片框的大小，需要将滚动条的Value值和图片框的高联系起来，滚动条的Value属性值改变时触发Change事件。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及其属性见表21-2。
表 21-2
|
控 件 |
属 性 |
设 置 值 |
| 命令 | Name Cption |
Command1 设置属性 |
| 图片框 | Name Picture |
Picture1 pic1.jpg |
| Hscrollbar | Name | VScroll1 |
参考代码：
Option Explicit
Private Sub Commandl_Click()
VScroll1.Max=2400
VScroll1.Min=100
VScroll1.LargeChange=200
VScroll1.SmallChange=20
End Sub
Private Sub VScroll1_Change()
Picture1.Height=VScroll1.Value
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。