应用题
1. 在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及两条水平直线，名称分别为Line1和Line2。
请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求：
①圆的顶端距窗体Form1顶端的距离为360；
②圆的颜色为红色(红色对应的值为：&H000000FF&或&HFF&)，如图所示。
请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，设置其形状为圆，并设置适当属性使其满足以下要求：
①圆的顶端距窗体Form1顶端的距离为360；
②圆的颜色为红色(红色对应的值为：&H000000FF&或&HFF&)，如图所示。
【正确答案】【操作步骤】
步骤1：打开本题工程文件，新建一个形状控件，并按表所示设置属性。
步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
参考答案(字体加粗部分是需考生填入的内容)
Dim s As Integer,h As Long
Private Sub Form_Load()
Timer1.Enabled=True
s=-40
End Sub
Private Sub Timer1_Timer()
Shape1.Move Shape1.Left,Shape1.Top+s
If Shape1.Top＜=Line1.Y1 Then
s=-s
End If
If Shape1.Top+Shape1.Height＞=Line2.Y1 Then '圆的底端坐标加上圆的自身高度与Line2比较
s=-s
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：打开本题工程文件，新建一个形状控件，并按表所示设置属性。
| 控件 | Shape1 | |||||||||||||||||||||||||||
| 属性 | Shape | FillColor | FillStyle | Top | ||||||||||||||||||||||||
| 设置值 | 3 | &H000000FF& | 0 | 360 | ||||||||||||||||||||||||
参考答案(字体加粗部分是需考生填入的内容)
Dim s As Integer,h As Long
Private Sub Form_Load()
Timer1.Enabled=True
s=-40
End Sub
Private Sub Timer1_Timer()
Shape1.Move Shape1.Left,Shape1.Top+s
If Shape1.Top＜=Line1.Y1 Then
s=-s
End If
If Shape1.Top+Shape1.Height＞=Line2.Y1 Then '圆的底端坐标加上圆的自身高度与Line2比较
s=-s
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：形状控件的Top、Height、FillColor和Shape属性，计时器的Enabled属性以及形状控件的Move方法。
通过形状控件的Move方法，实现形状的移动，通过Shape1.Top的值和Line1.Y1的值进行比较来判定圆形是否越过上界，通过比较Shape1.Top+Shape1.Height的值和Line2.Y1的值来判定圆形是否越过下界。
通过形状控件的Move方法，实现形状的移动，通过Shape1.Top的值和Line1.Y1的值进行比较来判定圆形是否越过上界，通过比较Shape1.Top+Shape1.Height的值和Line2.Y1的值来判定圆形是否越过下界。