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

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

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

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