設(shè)計(jì)一程序，程序運(yùn)行界面如圖所示。程序運(yùn)行時(shí)，命令按鈕Command1的Caption屬性為“開始”，單擊Command1后，Caption屬性變?yōu)?ldquo;結(jié)束”，同時(shí)計(jì)時(shí)器開始工作，并在標(biāo)簽上顯示計(jì)時(shí)時(shí)間；再一次單擊Command1后，Caption屬性又變?yōu)?ldquo;開始”，計(jì)時(shí)器停止工作，將本次計(jì)時(shí)時(shí)間s1添加到列表框，并與上次計(jì)時(shí)時(shí)間s2進(jìn)行比較，如果s1小于s2，則彈出消息框提示“有進(jìn)步！”，否則提示“加油哦！”。

編程：窗體的標(biāo)題為“改變大小”，程序運(yùn)行時(shí)，用畫圓方法在窗體正中畫出一個(gè)半徑為1500Twips的紅色實(shí)心圓，窗體的下面有一個(gè)水平滾動(dòng)條Hscroll1，將它的最大值設(shè)置為與圓的半徑相同，初始值為最大值，SmallChange和LargeChange均為100Twips，圓形的上方有兩個(gè)標(biāo)簽控件，Label1的標(biāo)題為“圓半徑為：”，Label2的標(biāo)題為“1500”，兩個(gè)標(biāo)簽均為固定邊框；改變滾動(dòng)條的值可以控制圓形的直徑（要求圓形直徑在變化時(shí)要保持圓心位置不變），同時(shí)在標(biāo)簽Label2中動(dòng)態(tài)顯示圓形的半徑。程序運(yùn)行的初始界面如下圖。

編制一個(gè)演示文本操作的程序，界面如圖所示，要求各命令按鈕為一個(gè)控件數(shù)組。
（1）程序剛運(yùn)行時(shí)3個(gè)命令按鈕均不能響應(yīng)。
（2）當(dāng)選擇文本之后Label1顯示響應(yīng)的提示，“剪切”和“復(fù)制”按鈕能夠響應(yīng)。
（3）單擊“剪切”或“復(fù)制”按鈕后，所有按鈕中只有“粘貼”按鈕能響應(yīng)。
（4）單擊“粘貼”按鈕后，3個(gè)命令按鈕都不能響應(yīng)。

編寫程序，求解：S=A!+B!/C!。其中A、B、C用輸入對(duì)話框輸入，要求階乘用function函數(shù)實(shí)現(xiàn)。程序運(yùn)行結(jié)果的界面如下圖所示。

程序設(shè)計(jì)界面如圖所示，在窗體上添加一圖片框，圖片框中添加一形狀控件，再設(shè)計(jì)一彈出式菜單“移動(dòng)”，其下有“上升”、“下降”和“停止”3個(gè)子菜單，鼠標(biāo)右擊圖片框時(shí)，彈出該菜單。要求：?jiǎn)螕?ldquo;上升”菜單后，小球以每0.1秒100個(gè)單位的速度向上運(yùn)動(dòng)，到達(dá)圖片框頂部后，停止運(yùn)動(dòng)，同時(shí)“上升”菜單不可響應(yīng)，“下降”菜單有效；單擊“下降”菜單后，小球以每0.1秒100個(gè)單位的速度向下運(yùn)動(dòng)，到達(dá)圖片框底部后，停止運(yùn)動(dòng)，同時(shí)“下降”菜單不可響應(yīng)，“上升”菜單有效；；小球移動(dòng)過程中單擊“停止”菜單，則停止小球的移動(dòng)。

按如下要求編程：
（1）窗體的標(biāo)題為“改變大小”。
（2）窗體上引入一個(gè)紅色的圓形形狀控件（Shape1），圓的直徑為3000Twips。
（3）窗體的下面有一個(gè)水平滾動(dòng)條Hscroll1，將它的最大值設(shè)置為與圓的直徑相同，初始值為最大值，SmallChange和LargeChange均為100Twips。
（4）形狀控件（Shape1）的上方有兩個(gè)標(biāo)簽控件，Label1的標(biāo)題為“圓直徑為：”，Label2的標(biāo)題為“3000”，兩個(gè)標(biāo)簽均為固定邊框。
（5）改變滾動(dòng)條的值可以控制圓形的直徑（要求圓形直徑在變化時(shí)要保持圓心位置不變），同時(shí)在標(biāo)簽Label2中動(dòng)態(tài)顯示圓形的直徑。程序運(yùn)行的初始界面如下圖。