你可能感興趣的試題

程序設(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)過(guò)程中單擊“停止”菜單，則停止小球的移動(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)行的初始界面如下圖。