程序設(shè)計：x1、y1已聲明為模塊級變量，鼠標按下的事件過程如下：

編制事件過程Picture1_MouseUp，使得在圖片框控件Pic1上拖動鼠標后，繪制出一個矩形，鼠標按下、抬起的位置分別為矩形斜對角線的定點，矩形輪廓線為紅色，矩形內(nèi)部填充色為綠色。

下面是一個“畫板”程序，程序運行結(jié)果如圖所示。單擊“顏色”按鈕（Command1）打開顏色對話框，實現(xiàn)對繪圖筆顏色的設(shè)置，單擊“清除”按鈕（Command2）則清除圖片框中的圖形，使用單選按鈕選擇線型粗細（Option1）設(shè)置為1磅和（Option2）設(shè)置為3磅，根據(jù)選擇的線型的粗細、顏色，用鼠標的左鍵模擬筆在繪圖區(qū)隨意繪圖。

完成一個行星程序的設(shè)計，一個藍色的小圓圍繞紅色大圓沿橢圓軌道運行。橢圓方程為：x=x₀+rx^*cos（alfa），y=y₀+ry^*sin（alfa），其中X₀，Y₀為橢圓圓心坐標，RX為水平半徑，RY為垂直半徑，ALFA為圓心角。具體要求如下：
1）在窗體中引入一個合適大小的形狀控件SHAPE2，將SHAPE2的SHAPE屬性設(shè)置為圓形、藍色。
2）TIMER的時間間隔為0.1秒。
3）代碼窗口中的內(nèi)容填充完整。
效果如圖所示。

畫出下列各段程序運行的結(jié)果。

寫出下列各段程序運行的結(jié)果。