[問答題] 完成下列問題：

在考生文件夾下有一個工程文件sjt3.vbp。窗體上有名稱為Timer1的定時器，以及名稱為Line1和Line2的兩條水平直線。

請用名稱為Shape1的形狀控件，在兩條直線之間畫一個寬和高都相等的形狀，其顯示形式為圓，并設(shè)置適當(dāng)屬性使其滿足以下要求：

①圓的頂端距離窗體Form1頂端的距離為360。

②圓的顏色為紅色(紅色對應(yīng)的值為：&H000000FF&或&HFF&)，如圖3所示。

程序運行時，Shape1將在Line1和Lihe2之間運動。當(dāng)Shape1的頂端到達(dá)Line1時，會自動改變方向而向下運行；當(dāng)Shape1的底部到達(dá)Line2時，會改變方向而向上運動。

文件中給出的程序不完整，請在程序中的橫線處填寫正確的內(nèi)容，使其實現(xiàn)上述功能。

注意：不能修改程序的其他部分和已給出的控件的屬性，最后把修改后的文件按原文件名存盤。

[題目提供的源程序]

Dim s As Integer, h As Long

Private Sub Form_Load( )

Timer1.Enabled= (1)

s=-40

End Sub

Private Sub Timer1_Timer()

Shape1.Move Shape1.Left, Shape1.Top+s

If Shape1.Top＜= (2) Then

s=-s

End If

If Shapp1.Top+ (3) ＞=Line2.Y1 Then

s=-s

[操作步驟] 第1步：添加形狀控件。打開工程sjt3.vbp，進(jìn)入窗體設(shè)計狀態(tài)。單擊工具箱中的形狀按鈕[*]，在窗體上畫一個形狀控件，保持默認(rèn)名稱Shape1不變，修改Height和Width屬性使這兩個屬性值大小相等。修改其Shape屬性為3-Circle，修改其FillStyle屬性為0-Solid，將其FillColor和BorderColor屬性都設(shè)置為&H000000FF&，再修改其Top屬性值為360。 第2步：修改代碼。 第3步：調(diào)試、運行并保存程序。 [1]True [2]Lin

在窗體的載入事件中啟動計時器Timer1，在Trimer1的Timer事件中通過形狀控件的Move方法移動形狀，移動時只改變了Y軸方向的值，即可實現(xiàn)形狀的上下移動。通過對Shape1.Top的值和Line1．Y1的值的比較來判定圓形是否越過上界，通過對Shape1.Top+Shape1.Height的值和Line2.Y1的值的比較來判定圓形是否越過下界。