问答题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
问答题
在名称为Form1的窗体上画一个名称为Label1、标题为“设置速度”的标签，通过属性窗口把标签的大小设置为自动调整。画一个名称为Hscroll1的水平滚动条，通过属性窗口设置适当属性使滚动条的最大值为80，最小值为1，单击滚动条两端的箭头时，滚动框移动2，滚动框的初始值为30。程序运行后的窗体如图1所示。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
【正确答案】[操作步骤]
第1步：新建立一个标准EXE工程，保持窗体所有属性不变。
第2步：添加一个标签控件，将其Caption属性设置为“设置速度”，AutoSize属性设置为True。
第3步：在窗体上添加一个水平滚动条，设置其Min值为1，Max值为80，Value属性值为30，SmallChange值为2。
第4步：调试、运行并保存程序。
第1步：新建立一个标准EXE工程，保持窗体所有属性不变。
第2步：添加一个标签控件，将其Caption属性设置为“设置速度”，AutoSize属性设置为True。
第3步：在窗体上添加一个水平滚动条，设置其Min值为1，Max值为80，Value属性值为30，SmallChange值为2。
第4步：调试、运行并保存程序。
【答案解析】[解析] 标签控件的内容由Caption属性决定，如果将AutoSize属性设置为True，则标签控件会自动调整大小以适应标签文字。滚动条的刻度范围由Min和Max两个属性决定，对于本题只需将滚动条的Min属性设置为1，Max属性设置为80即可满足刻度范围要求；滚动条上滑块的当前值由Value属性决定；单击滚动条两端箭头时，滑块移动的大小由SmallChange属性决定。
问答题
在名称为Form1的窗体上画一个名称为Shape1的形状控件，画两个名称分别为Command1、Command2，标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”，如图2所示。请编写适当的事件过程使得在运行时，单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮，将形状控件的边框颜色设为红色(&HFF&)，如图3所示。
[*]
[*]
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
[*]
[*]
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
【正确答案】[操作步骤]
第1步：新建一个标准EXE工程，保持窗体所有属性不变。
第2步：添加一个形状控件。在窗体上画一个适当大小的形状控件。
第3步：添加两个命令按钮。一个的Caption属性设置为“圆形”，另一个的Caption属性设置为“边框红色”。
第4步：编写代码。为两个命令按钮编写Click事件过程如下：
Private Sub Command1_Click()
Shape1.Shape=3
End Sub
Private Sub Command2_Click()
Shape1.BorderColor=&HFF&
End Sub
第5步：调试、运行并保存程序。
第1步：新建一个标准EXE工程，保持窗体所有属性不变。
第2步：添加一个形状控件。在窗体上画一个适当大小的形状控件。
第3步：添加两个命令按钮。一个的Caption属性设置为“圆形”，另一个的Caption属性设置为“边框红色”。
第4步：编写代码。为两个命令按钮编写Click事件过程如下：
Private Sub Command1_Click()
Shape1.Shape=3
End Sub
Private Sub Command2_Click()
Shape1.BorderColor=&HFF&
End Sub
第5步：调试、运行并保存程序。
【答案解析】[解析] 形状控件的形状由其Shape属性决定，Shape属性值为3-Circle时形状控件呈圆形。形状控件的边框颜色由BorderColor属性决定。