.版本 2.程序集 窗口程序集_啟動(dòng)窗口.程序集變量 鼠標(biāo)停留在畫板內(nèi), 邏輯型.程序集變量 鼠標(biāo)移動(dòng)在畫板內(nèi), 邏輯型.程序集變量 橫坐標(biāo), 整數(shù)型.程序集變量 縱坐標(biāo), 整數(shù)型.程序集變量 半徑, 整數(shù)型.程序集變量 x, 雙精度小數(shù)型.程序集變量 y, 雙精度小數(shù)型.子程序 __啟動(dòng)窗口_創(chuàng)建完畢橫坐標(biāo) ＝ 50 ' 設(shè)置變量數(shù)值縱坐標(biāo) ＝ 50 ' 設(shè)置變量數(shù)值半徑 ＝ 25 ' 設(shè)置變量數(shù)值

.版本 2.子程序 _畫板1_繪畫.參數(shù) 重畫區(qū)左邊, 整數(shù)型.參數(shù) 重畫區(qū)上邊, 整數(shù)型.參數(shù) 重畫區(qū)右邊, 整數(shù)型.參數(shù) 重畫區(qū)下邊, 整數(shù)型畫板1.畫橢圓 (橫坐標(biāo) － 半徑, 縱坐標(biāo) － 半徑, 橫坐標(biāo) ＋ 半徑, 縱坐標(biāo) ＋ 半徑) ' 畫板1.畫橢圓 你可以替換成 畫板1.畫矩形 等其他形狀

.版本 2.子程序 _畫板1_鼠標(biāo)位置被移動(dòng), 邏輯型.參數(shù) 橫向位置, 整數(shù)型, , 鼠標(biāo)指針橫向位置.參數(shù) 縱向位置, 整數(shù)型, , 鼠標(biāo)指針縱向位置.參數(shù) 功能鍵狀態(tài), 整數(shù)型x ＝ 橫向位置 － 橫坐標(biāo)y ＝ 縱向位置 － 縱坐標(biāo).如果 (x × x ＋ y × y ＜ 半徑 × 半徑) ' 檢測(cè)鼠標(biāo)指針位置是否在畫板內(nèi)  .如果 (鼠標(biāo)停留在畫板內(nèi))  .否則    畫板1.刷子顏色 ＝ #淺灰  .如果結(jié)束  .如果真 (取反 (鼠標(biāo)移動(dòng)在畫板內(nèi)))    畫板1.重畫 () ' 重畫——畫板1.刷子顏色 ＝ #淺灰  .如果真結(jié)束  鼠標(biāo)移動(dòng)在畫板內(nèi) ＝ 真 ' 等于真則返回假——鼠標(biāo)離開畫板后畫板顏色改變，等于假則返回真——鼠標(biāo)離開畫板后畫板顏色不變.否則  畫板1.刷子顏色 ＝ #白色  .如果真 (鼠標(biāo)移動(dòng)在畫板內(nèi))    畫板1.重畫 () ' 重畫——畫板1.刷子顏色 ＝ #白色  .如果真結(jié)束  鼠標(biāo)移動(dòng)在畫板內(nèi) ＝ 假 ' 等于真則返回假——鼠標(biāo)離開畫板后畫板顏色改變，等于假則返回真——鼠標(biāo)離開畫板后畫板顏色不變

.版本 2.子程序 _畫板1_鼠標(biāo)左鍵被按下, 邏輯型.參數(shù) 橫向位置, 整數(shù)型.參數(shù) 縱向位置, 整數(shù)型.參數(shù) 功能鍵狀態(tài), 整數(shù)型x ＝ 橫向位置 － 橫坐標(biāo)y ＝ 縱向位置 － 縱坐標(biāo).如果真 (x × x ＋ y × y ＜ 半徑 × 半徑)  鼠標(biāo)停留在畫板內(nèi) ＝ 真  畫板1.刷子顏色 ＝ #灰色.如果真結(jié)束畫板1.重畫 ().子程序 _畫板1_鼠標(biāo)左鍵被放開, 邏輯型.參數(shù) 橫向位置, 整數(shù)型.參數(shù) 縱向位置, 整數(shù)型.參數(shù) 功能鍵狀態(tài), 整數(shù)型鼠標(biāo)停留在畫板內(nèi) ＝ 假x ＝ 橫向位置 － 橫坐標(biāo)y ＝ 縱向位置 － 縱坐標(biāo).如果真 (x × x ＋ y × y ＜ 半徑 × 半徑)  信息框 (“按鈕被按下”, 0, )  畫板1.重畫 ().如果真結(jié)束