上機(jī)考試最全設(shè)計(jì)題及答案

1、B程序設(shè)計(jì)題程序設(shè)計(jì)011、在窗體上放置一個(gè)命令按鈕，命名為CmdMaxSize.2、取消窗體（Form）的最大化和最小化按鈕3、當(dāng)單擊CmdMaxSize按鈕時(shí)，實(shí)現(xiàn)窗口放大功能，放大后再單擊該按鈕則還原窗口。4、同時(shí)可能使用熱鍵Alt+L和Alt+B實(shí)現(xiàn)窗口放大或還原。5、當(dāng)窗體大小改變后，總是讓CmdMaxSize按鈕位于窗口的中央。6、界面及功能設(shè)計(jì)請參考cx01.exe文件。程序設(shè)計(jì)021、窗體上有三個(gè)文體框，上面兩個(gè)分別用于輸入商品單價(jià)和商品數(shù)量，單擊“計(jì)算”，將應(yīng)付款顯示在下面一個(gè)文本框中。2、最下面一個(gè)文本框不能直接輸入。3、單擊“清空”按鈕，三個(gè)文本框內(nèi)容被清空，同時(shí)第一個(gè)文

2、本框獲得焦點(diǎn)。4、界面及功能設(shè)計(jì)請參考cx02.exe文件。程序設(shè)計(jì)031、按照Cx.exe所示在窗體上放置按鈕和控件。2、當(dāng)單擊“確定”按鈕后，首先比較“用戶名”和“原始密碼”是否一致，若一致且都為“admin”，則繼續(xù)執(zhí)行步驟4；否則彈出消息框，提示用戶出錯(cuò)，并讓用戶重新輸入。3、比較“新密碼（N）”和“新密碼（S）”，若兩者一致，彈出密碼修改成功消息框，程序終止執(zhí)行。否則彈出錯(cuò)誤消息，并讓用戶重新輸入。4、所有消息框按Cx.exe所示設(shè)計(jì)。5、當(dāng)單擊“取消”按鈕時(shí)，程序終止執(zhí)行。6、當(dāng)按“Tab”鍵時(shí)，保證按照“用戶名”、“原密碼”、“新密碼（N）”、“新密碼（S）”、“確定”按鈕和“取

3、消”按鈕順序訪問各控件。7、界面及功能設(shè)計(jì)請參考cx03.exe文件。程序設(shè)計(jì)041、在窗體上放置4個(gè)單選按鈕，分別用于顯示星期、年份、月份和日期。2、在窗臺上放置一個(gè)文本框，選中單選按鈕時(shí)，顯示相應(yīng)的信息。3、在窗體上放置一個(gè)命令按鈕，單擊按鈕時(shí)退出應(yīng)用程序。4、界面及功能設(shè)計(jì)請參考cx04.exe 文件。程序設(shè)計(jì)051、單擊“坐標(biāo)系”按鈕，將圖片框的坐標(biāo)系統(tǒng)設(shè)置為原點(diǎn)在中央，x軸-10,10，y 軸-10,10，并畫出該坐標(biāo)系統(tǒng)；2、單擊“扇形”按鈕,在圖片框中畫一個(gè)圓心在原點(diǎn)，半徑為5,圓周為紅色，線寬為2，內(nèi)部為綠色，起始角為/6，終止角為5/6的扇形；3、界面及功能設(shè)計(jì)請參考cx05

4、.exe文件。程序設(shè)計(jì)061、按照cx06.exe所示在窗體上放置按鈕和控件。2、在輸入或修改單科成績的同時(shí)計(jì)算平均分，即在“高數(shù)”、“英語”和“計(jì)算機(jī)”文本框內(nèi)容發(fā)生改變時(shí)，就要立即重新計(jì)算平均分，并將計(jì)算結(jié)果在平均成績文本框中顯示。3、“平均成績”文本框不允許編輯，即不能手工修改。4、各單科成績框中只能輸入數(shù)字，不能輸入字母或漢字，否則不顯示字母并發(fā)出錯(cuò)誤提示音。5、界面及功能設(shè)計(jì)請參考cx06.exe文件。程序設(shè)計(jì)071、窗體上三個(gè)文本框，上面兩個(gè)用輸入加數(shù)，單擊“=”按鈕，將兩個(gè)數(shù)的和顯示在下面一個(gè)文本框中。2、三個(gè)文本框的對齊方式均為右對齊，設(shè)置相關(guān)屬性使得下面一個(gè)文本框不能進(jìn)行編輯

5、操作。3、設(shè)置相關(guān)屬性使得上面兩個(gè)文本框均不接受非數(shù)字鍵。4、單擊“清空”按鈕，三個(gè)文本框內(nèi)容被清空，同時(shí)第一個(gè)文本框得焦點(diǎn)。5、界面及功能設(shè)計(jì)請參考cx07.exe文件。程序設(shè)計(jì)081、左邊一個(gè)簡單組合框，對文本框的字體進(jìn)行設(shè)置；2、右邊一個(gè)簡單組合框，對文本框的文字大小進(jìn)行設(shè)置；3、文本框中文字為“心想事成”4、界面及功能設(shè)計(jì)請參考cx08.exe文件。程序設(shè)計(jì)091、單擊“添加”按鈕，將本文框中的內(nèi)容加到列表框中的第一項(xiàng)，如果文本框有內(nèi)容,則給出提示“沒有內(nèi)容，不予貼加”2、單擊“刪除”按鈕，將選紅表項(xiàng)刪除，如果沒有選擇要?jiǎng)h除的表項(xiàng)，則給出提示“請選擇輸出的項(xiàng)目”。3、界面及功能設(shè)計(jì)請參

6、考cx09.exe文件程序設(shè)計(jì)101、在窗體上放置兩個(gè)列表框控件，在它的Iist中輸入一些內(nèi)容。2、當(dāng)單擊“ <”按鈕時(shí)，把Iist2中的一項(xiàng)放到list1中，并且在list2中刪除該項(xiàng)。3、當(dāng)單擊“ <<”按鈕時(shí)，把list1中，并且清空list2。4、當(dāng)單擊“>”按鈕時(shí)，把list2中選中的一項(xiàng)放到list2中，并且在list1中，并且在list1中刪除該項(xiàng)。5、當(dāng)單擊“>>”按鈕時(shí)，把list1中所有的項(xiàng)放到list2中，并且清空list1。6、當(dāng)單擊“結(jié)素“按鈕時(shí)，退出應(yīng)用程序。7、界 面及功能設(shè)計(jì)請參考cx10.exe文件。程序設(shè)計(jì)111、窗體上有

7、二個(gè)CheckBox，當(dāng)這兩個(gè)選項(xiàng)未被選定時(shí)，它們所在框架的其它控件不能使用。2、如果單擊“確定”按鈕，則在按鈕下面的標(biāo)簽中顯示用戶所選擇的信息。3、界面及功能設(shè)計(jì)請參考cx11.exe文件。程序設(shè)計(jì)121、按照cx12.exe所示在窗體上放置按鈕和控件。2、在“請輸入”文本框中輸入一個(gè)數(shù)字后，單擊判斷，可在“結(jié)果為顯示判斷結(jié)果。3、若輸入的不是數(shù)字，則彈出消息框，提示信息是“輸入的不是數(shù)字，無法計(jì)算”。4、界面及功能設(shè)計(jì)請參考cx12.exe文件。程序設(shè)計(jì)131、可以在查找文本框中輸入查找文字；2、可以在替換為文本框中輸入替換文字；3、單擊“替換”按鈕，對文本框Text1中與查找內(nèi)容匹配的文

8、字進(jìn)行替換操作；4、文本框Text1可以多行顯示文字；5、界面及功能設(shè)計(jì)請參考cx13.exe文件。程序設(shè)計(jì)141、在窗體上創(chuàng)建一個(gè)label1控件用于顯示程序名“簡單動畫”2、在窗體上創(chuàng)建一個(gè)label2的控件數(shù)組，數(shù)組長度為6，用于顯示動畫圖象“-à”3、在窗體上放置timer控件，用它來控制label2上的圖象位置的變化。4、單擊“開始”按鈕時(shí)label2上的圖象開始移動，單擊“結(jié)束”按鈕圖象停止移動，設(shè)置每一秒移動一個(gè)箭頭。5、界面及功能設(shè)置請參考cx14.exe文件。程序設(shè)計(jì)151、單擊“開始”按扭,標(biāo)簽“祝您考試成功”文字在定時(shí)器控制下自動地從左向右移動，移動速度為每個(gè)時(shí)

9、間間隔右移100緹,當(dāng)標(biāo)簽移動到窗體外時(shí),再從窗體的左邊進(jìn)入。同時(shí)“開始”按扭變?yōu)椤巴Ｖ埂卑磁ぁ?、單擊“停止”按扭，標(biāo)簽“祝您考試成功”文字停止?jié)L動。同時(shí)“停止”按扭變?yōu)椤伴_始”按扭。3、要求程序開始運(yùn)行時(shí)，標(biāo)簽文字的字體為“宋體”、字形為“粗體”、大小為“二號”。4、定時(shí)器的時(shí)間間隔為.秒。5、界面及功能設(shè)計(jì)請參考cx15.exe文件。程序設(shè)計(jì)161、單擊“開始”按鈕，標(biāo)簽“歡迎光臨”文字在定時(shí)器控制下字號自動增加2。同時(shí)“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。2、單擊“停止”按鈕，標(biāo)簽“歡迎光臨”文字停止放大。同時(shí)“停止”按鈕變?yōu)椤伴_始”按鈕。3、要求標(biāo)簽文字在放大時(shí)保持水平居中。4、定時(shí)器的時(shí)間

10、間隔為0.2秒。5、界面及功能設(shè)計(jì)請參考cx16.exe文件。程序設(shè)計(jì)171、水平滾動條的取值范圍12，72。改變滾動條可以控制標(biāo)簽文字的大小，并同時(shí)在文本框中顯示標(biāo)簽的字號；2、標(biāo)簽文字為“心想事成”，要求在改變字號時(shí)標(biāo)簽保持在窗體中水平居中；3、文本框最多接受兩個(gè)字符，當(dāng)輸入一個(gè)12，72的兩位整數(shù)后，也可以改變標(biāo)簽文字的大小，并同時(shí)調(diào)整水平滾動條的滾動框位置；4、界面及功能設(shè)計(jì)請參考cx17.exe文件。程序設(shè)計(jì)181、在窗體上放置一個(gè)水平滾動條、一個(gè)標(biāo)簽框和一個(gè)命令按鈕。2、單擊滾動條左右箭頭時(shí)，標(biāo)簽上的字可以左右移動，標(biāo)簽移動范圍等于滾動條的范圍。3、界面及功能設(shè)計(jì)請參考cx18.e

11、xe文件。程序設(shè)計(jì)191、窗體上引入一個(gè)紅色的圓形形狀控體，圓的直徑為3400Twips。2、水平滾動條的最大值與圓的直徑相同，初始值為最大值，SmallChange和LargeChange均為100Twips.3、改變條的值可以控制圓形的直徑，同時(shí)在標(biāo)簽Labe12中動態(tài)顯示圓形的直徑。4、要求圓形的直徑在變化時(shí)要保持圓形的位置不變。5、界面及功能設(shè)計(jì)請參考cx19.exe文件。程序設(shè)計(jì)201、窗體上放置兩個(gè)文本框，分別用于輸入身高和體重。2、設(shè)置相關(guān)屬性使得兩個(gè)文本框文字對起方式均為右對起，最多接受3個(gè)字符，不接受數(shù)字鍵。3、單擊“健康狀況”按紐，根據(jù)計(jì)算公式分別將提示信息顯示在Labe1

12、5中。計(jì)算公式為：標(biāo)準(zhǔn)體重=身高-105；體重高于標(biāo)準(zhǔn)體重*1.1為偏胖，提示“偏胖，注意節(jié)食”；體重低于標(biāo)準(zhǔn)體重*0.9為偏瘦，提示“偏瘦，增加營養(yǎng)”；其他為正常，提示“正常，繼續(xù)保持”。4、界面及功能設(shè)計(jì)請參考cx20.exe文件。程序設(shè)計(jì)211、設(shè)計(jì)2個(gè)定時(shí)器，一個(gè)用于控制時(shí)間顯示，時(shí)間間隔為一秒；一個(gè)用于判斷鬧鐘時(shí)間，時(shí)間間隔為0.5秒，并且在未輸入鬧鐘時(shí)間前不可使用。2、標(biāo)簽Labell用于顯示時(shí)間，宋體，粗體，斜體，二號，背景白色，字體居中對齊，固定邊框。3、在文本框中輸入鬧鐘時(shí)間并按回車后，啟動判斷鬧鐘時(shí)間的定時(shí)器，如果時(shí)間超過鬧鐘時(shí)間，則標(biāo)簽的背景色用紅白兩色交替變換。4、界面

13、及功能設(shè)計(jì)請參考cx21.exe文件。程序設(shè)計(jì)221、當(dāng)在文本框中輸入密碼“1234567”，并按回車后，顯示標(biāo)簽labe12為“歡迎光臨！”。如果輸入的密碼與“1234567”不吻合，顯示標(biāo)簽Labe12為“密碼不符，請?jiān)佥斎胍槐?！”，同時(shí)清空文本框的內(nèi)容，允許再輸入一遍；如果第二次輸入的密碼仍然與“1234567”不吻合，顯示標(biāo)簽Labe12為“非法用戶，請退出程序！”，文本框就不能使用了。2、文本框中輸入的字符顯示為*，并且最多可以接受7個(gè)字符。3、標(biāo)簽控件Labe12的文字對齊方式為居中對齊，文字顏色紅色，宋體、常規(guī)、三號；標(biāo)簽的大小隨字體自動調(diào)整，一開始不可見。4、界面及功能設(shè)計(jì)請參

14、考cx22.exe程序設(shè)計(jì)231、窗體上放置驅(qū)動器列表框、目錄列表框和文件列表框三個(gè)控件，設(shè)置屬性使得三個(gè)控件能夠聯(lián)動。2、設(shè)置文件列表框只顯示*.bap 和*.jpg類型的圖片文件。3、編寫相關(guān)代碼使得單擊文件列表框上的圖片文件名時(shí)，圖片顯示在圖片框中4、界面及功能設(shè)計(jì)請參考cx23.exe文件。程序設(shè)計(jì)24 1、文件列表框能過濾文本文件。2、當(dāng)單擊某文本文件名后，在Textl顯示文件名（包括路徑），在Text2顯示該文件內(nèi)容。3、當(dāng)單擊某文件文件名后，調(diào)用記事本程序?qū)ξ募募M(jìn)行編輯。4、界面及功能設(shè)計(jì)請參考cx24.exe文件。程序設(shè)計(jì)251、窗體上引入一個(gè)通用對話框控件。2、單擊菜單“

15、字體”，通用對話框，并對文本框字體進(jìn)行修飾。3、單擊菜單“文字顏色”，通用對話框控件顯示為顏色對話框，并對文體框文字顏色進(jìn)行修飾。4、單擊菜單“背景顏色”，通用對話框控件顯示為顏色對話框，并對文本框背景顏色進(jìn)行修飾。5、文本框設(shè)計(jì)為帶垂直滾動條。6、界面及功能設(shè)計(jì)請參考cx25.exe文件。程序設(shè)計(jì)261、設(shè)計(jì)4個(gè)命令按鈕，分別實(shí)現(xiàn)“復(fù)制”、“剪切”、“粘貼”和“刪除”功能；2、文本框Text1可以多行顯示文字；3、界面及功能設(shè)計(jì)請參考cx26.exe文件。程序設(shè)計(jì)271、在窗體上放置一個(gè)文本框控件數(shù)組，用于輸入用戶信息。2、在文本框控件數(shù)組中輸入相應(yīng)信息后，點(diǎn)擊“添加”后在組合框中會出現(xiàn)該項(xiàng)

16、的姓名。3、在組合框中選中某項(xiàng)，可以在文本框數(shù)組中顯示該項(xiàng)的用戶信息，點(diǎn)擊“刪除”，可以刪除該項(xiàng)的所有信息。4、界面及功能設(shè)計(jì)請參考cx27.exe文件。程序設(shè)計(jì)28 1、“菜單”框架中由復(fù)選框數(shù)組提供選擇三種套餐，右邊的文本框數(shù)組中可以輸入數(shù)量；2、要求文本框只能接受數(shù)字鍵；并且只有選取了相應(yīng)的套餐后才可以進(jìn)行輸入，3、單擊“確定”按鈕，統(tǒng)計(jì)點(diǎn)餐的金額，并用消息框顯示出來；4、界面及功能設(shè)計(jì)請參考cx28.exe文件。程序設(shè)計(jì)291、窗體的右部是圖片框，可以用鼠標(biāo)左鍵進(jìn)行繪圖。2、“選項(xiàng)”框中有兩個(gè)單選鈕控件，選擇“細(xì)”時(shí)，繪圖的線寬設(shè)置為1，選擇“粗”時(shí)，繪圖的線寬設(shè)置為5。3、“選項(xiàng)”框

17、中的“顏色”按鈕打開通用對話框?yàn)轭伾珜υ捒?，并設(shè)置繪圖的顏色。4、“選項(xiàng)”框架中的“清除”按鈕用于清除圖片框中的內(nèi)容。5、界面及功能設(shè)計(jì)請參考cx29.exe.文件。程序設(shè)計(jì)301、框架Frame1中有一個(gè)復(fù)選框數(shù)組，可以選擇粗體，斜體對標(biāo)簽中的文字進(jìn)行修飾。2、框架Frame2中有一個(gè)單選鈕數(shù)組，可以選擇宋體或楷體對標(biāo)簽中的文字進(jìn)行修飾。3、標(biāo)簽Labe11的文字內(nèi)容為“Visual Basic程序設(shè)計(jì)”。宋體，常規(guī)，三號；文字對齊方式為居中。4、界面及功能設(shè)計(jì)請參考cx30.exe文件。程序設(shè)計(jì)311、單擊“開始計(jì)時(shí)”按鈕后,程序根據(jù)選擇的時(shí)間開始倒計(jì)時(shí)，命令按鈕變?yōu)椴豢墒褂谩?、倒計(jì)時(shí)過

18、程是將剩余的時(shí)間顯示在標(biāo)簽Labell中，直到0分0秒為止，改為顯示“時(shí)間到！”：3、框架“選擇時(shí)間”內(nèi)有一組單選鈕控件數(shù)組，分別選擇不同的時(shí)間值。只有選擇時(shí)間后，命令按鈕才可以使用。4、界面及功能設(shè)計(jì)請參考cx31.exe文件。程序設(shè)計(jì)321、要求命令按鈕數(shù)組構(gòu)成數(shù)字鍵，單擊數(shù)字按鈕，將撥號的內(nèi)容顯示在文本框Text1中；2、單擊“重?fù)堋鞍粹o，再現(xiàn)原來的撥號過程：（提示：再現(xiàn)過程由定時(shí)器實(shí)現(xiàn)）3、定時(shí)器的時(shí)間間隔為0.5秒；4、文本框最多接受10個(gè)字符：宋體，粗體，三號，蘭色號；5、界面及功能設(shè)計(jì)請參考cx32.exe文件。程序設(shè)計(jì)331、在窗體上放置一個(gè)“三原色配比與預(yù)覽”的框架，框架內(nèi)有

19、三個(gè)水平滾動條構(gòu)成的控件數(shù)組，滾動條的取值范圍為0255；還有一個(gè)長方形形狀控件。2、拖動滾動條的滾動框來選擇紅、綠、蘭三原色的配色取值，配色通過形狀控件的填充效果動態(tài)顯示。3、單擊“應(yīng)用”按鈕，將調(diào)配好的顏色作為標(biāo)簽文字“堅(jiān)持就是勝利！”的文字顏色。4、標(biāo)簽文字“堅(jiān)持就是勝利！”字體為“楷體GB2312”。大小“二號”，設(shè)置相關(guān)屬性使得標(biāo)簽在窗體中水平居中并且標(biāo)簽的大小隨顯示內(nèi)容自動調(diào)整。5、界面及功能設(shè)計(jì)請參考cx33.exe文件。程序設(shè)計(jì)341、程序啟動后窗體正中央有一個(gè)直徑為500Twips的紅色圓球。2、第一次單擊菜單“啟動”，圓球先向右上角方向運(yùn)動，碰壁后改變方向。水平、垂直方向的

20、移動速度均為100Twips/間隔。3、單擊菜單“停止”，圓球停止運(yùn)動，再單擊菜單“啟動”，圓球繼續(xù)運(yùn)動。4、定時(shí)器時(shí)間間隔為0.1秒。5、界面及功能設(shè)計(jì)請參考cx34.exe文件。程序設(shè)計(jì)01題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1CaptionForm1Command1Caption最大化(&L)二、根據(jù)題意，對命令按鈕Command1的Click事件編寫如下事件過程代碼：Private Sub Command1_Click() If Command1.Caption = "最大化(&

21、amp;L)" Then Form1.WindowState = 2 Command1.Caption = "還原(&B)" Else Form1.WindowState = 0Command1.Caption = "最大化(&L)" End IfCommand1.Left = (Form1.Width - Command1.Width) / 2 Command1.Top = (Form1.Height - Command1.Height) / 2End Sub程序設(shè)計(jì)02題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并

22、根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Text1text空Text2text空Text3text空EnabledFalseLabel1Caption商品單價(jià)：Label2Caption商品數(shù)量：Label3Caption應(yīng)付款：Command1Caption清除Command2Caption計(jì)算二、根據(jù)題意，對命令按鈕Command1的Click事件和Command2的Click事件編寫如下事件過程代碼：Private Sub Command1_Click()Text1.Text = ""Text1.SetFocusText2.Text = &quo

23、t;"Text3.Text = ""End SubPrivate Sub Command2_Click()Dim a, b, sum As IntegerText3.Enabled = Truea = Val(Text1.Text)b = Val(Text2.Text)sum = a * bText3.Text = sumEnd Sub程序設(shè)計(jì)03題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Text1textTabIndex0Text2textPassWordChar*TabIndex1Te

24、xt3textPassWordChar*TabIndex2Text4textPassWordChar*TabIndex 3Label1Caption用戶名Label2Caption原密碼Label3Caption新密碼Label4Caption新密碼Command1Caption確定TabIndex4Command2Caption取消TabIndex5二、根據(jù)題意，對命令按鈕Command1的Click事件和Command2的Click事件編寫如下事件過程代碼：Private Sub Command1_Click()If Text1.Text = "admin" And T

25、ext2.Text = "admin" Then If Text3.Text = Text4.Text Then B=MsgBox ("密碼修改成功!", ,”修改密碼”) Else B=MsgBox("新密碼有誤，請重試", , “修改密碼”) Text3.Text = "" Text4.Text = ""End If Else B=MsgBox( "用戶名或密碼無效，請重試！", , “修改密碼”) Text1.Text = "" Text2.Text

26、 = "" End IfEnd SubPrivate Sub Command2_Click()endEnd Sub程序設(shè)計(jì)04題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Option1Caption顯示星期幾Option2Caption顯示年份Option3Caption顯示月份Option4Caption顯示日期Text1textCommand1Caption結(jié)束二、根據(jù)題意，對命令按鈕Command1的Click事件編寫如下事件過程代碼：Private Sub Command1_Click(

27、)EndEnd SubPrivate Sub Option1_Click()Text1.Text = "今天是星期" & Str(Weekday(Date)End SubPrivate Sub Option2_Click()Text1.Text = "今天是" & Str(Year(Date) &"年" End SubPrivate Sub Option3_Click()Text1.Text = "今天是" & Str(Month(Date) &"月" E

28、nd SubPrivate Sub Option4_Click()Text1.Text = "今天是" & Str(Day(Date) &"號" End Sub程序設(shè)計(jì)05題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption作圖Command1Caption坐標(biāo)系Command2Caption扇形Command3Caption結(jié)束二、根據(jù)題意，對命令按鈕的Click事件編寫如下事件過程代碼：注：因本題單位不明確，故對x軸、y軸和圓半徑乘以100

29、后按默認(rèn)單位處理Const PI = 3.1415926Private Sub Command1_Click() Picture1.Scale (-10, 10)-(10, -10) Picture1.Line (-10, 0)-(10, 0) Picture1.Line (0, -10)-(0, 10) Picture1.CurrentX = 0 Picture1.CurrentY = 0 Picture1.Print "(0,0)"End SubPrivate Sub Command2_Click() Picture1.FillStyle = 0 Picture1.Fi

30、llColor = vbGreen Picture1.DrawWidth = 2 Picture1.Circle (0, 0), 5, vbRed, -PI / 6, -5 * PI / 6End SubPrivate Sub Command3_Click() EndEnd Sub程序設(shè)計(jì)06題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Label1Caption高數(shù)Label2Caption英語Label3Caption計(jì)算機(jī)Label4Caption平均成績Text1TextText2TextText3TextT

31、ext4LockedTrue二、根據(jù)題意，對文本text1，text2，text3的Change事件編寫如下事件過程代碼：Private Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Text2_Change() If Val(Text2.Text) > 0 Then Text4.Text = Trim(Str(Val(Text1.Text) + Val(Text2.T

32、ext) + Val(Text3.Text) / 3) End IfEnd SubPrivate Sub Text3_Change() If Val(Text3.Text) > 0 Then Text4.Text = Trim(Str(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) / 3) End IfEnd SubPrivate Sub Text1_Change() If Val(Text1.Text) > 0 Then Text4.Text = Trim(Str(Val(Text1.Text) + Val(Text2.T

33、ext) + Val(Text3.Text) / 3) End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then MsgBox "不能輸入非數(shù)字字符" KeyAscii = 0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii > Asc("9&qu

34、ot;) Or KeyAscii < Asc("0") Then MsgBox "不能輸入非數(shù)字字符" KeyAscii = 0 End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then MsgBox "不能輸入非數(shù)字字符" KeyAscii = 0 End IfEnd Sub程序設(shè)計(jì)07題解：一、根據(jù)題目要求及樣

35、例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption加法器Label1Caption+Command1Caption=Command2Caption清空Text1、Text2、Text3Caption清空Alignment1-Right JustifyText3LockedTrue二、根據(jù)題意，對各命令按鈕的Click事件和各文本框的Change事件編寫如下事件過程代碼：Private Sub Command1_Click() Text3.Text = Trim(Str(Val(Text1.Text) + Val(Text2

36、.Text)End SubPrivate Sub Command2_Click() Text3.Text = "" Text2.Text = "" Text1.Text = "" Text1.SetFocusEnd SubPrivate Sub Form_Load() Text3.Locked = TrueEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc(9) T

37、hen KeyAscii = 0 End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii < Asc("0") Or KeyAscii > Asc(9) Then KeyAscii = 0 End IfEnd Sub程序設(shè)計(jì)08題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1caption字體設(shè)置窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseText1

38、Text心想事稱Combo1Style1-simple comboTextCombo2Style1-simple comboText 二、根題意，編寫如下事件過程代碼：Private Sub Form_Load()combo1.AddItem "宋體"combo1.AddItem "黑體"combo1.AddItem "楷體_GB2312"combo2.AddItem 8combo2.AddItem 9combo2.AddItem 10combo2.AddItem 11combo2.AddItem 12combo2.AddItem 1

39、4combo2.AddItem 16End SubPrivate Sub combo1_Click()Text1.FontName = Combo1.TextEnd SubPrivate Sub combo1_Click()Text1.FontSize = Val(Combo2.Text)End Sub程序設(shè)計(jì)09題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1caption添加和刪除窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseText1Text List1Comman

40、d1Caption添加Command2caption刪除二、根題意，編寫如下事件過程代碼：Private Sub Command1_Click()If Text1.Text = "" Then MsgBox ("沒有內(nèi)容，不予添加")Else List1.AddItem Text1.Text, 0End IfEnd SubPrivate Sub Command2_Click()If List1.ListIndex = -1 Then MsgBox ("請選擇輸出的項(xiàng)目")Else List1.RemoveItem List1.List

41、IndexEnd IfEnd SubPrivate Sub Form_Load()List1.AddItem "Word"List1.AddItem "Excel"List1.AddItem "PowerPoint"List1.AddItem "Outlook"End Sub程序設(shè)計(jì)10題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注List1list111,222增加列表項(xiàng)List2list333,444增加列表項(xiàng)Command1capt

42、ion>Command2caption>>Command3caption<<Command4caption<Command5caption結(jié)束二、根據(jù)題意，編寫如下事件過程代碼：Private Sub Command1_Click() If List1.ListIndex = -1 Then MsgBox "請選擇一列表項(xiàng)" Else List2.AddItem List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex End IfEnd SubPrivate Sub Com

43、mand2_Click() While List1.ListCount > 0 List2.AddItem List1.List(0) List1.RemoveItem 0 WendEnd SubPrivate Sub Command3_Click() While List2.ListCount > 0 List1.AddItem List2.List(0) List2.RemoveItem 0 WendEnd SubPrivate Sub Command4_Click() If List2.ListIndex = -1 Then MsgBox "請選擇一列表項(xiàng)"

44、; Else List1.AddItem List2.List(List2.ListIndex) List2.RemoveItem List2.ListIndexEnd IfEnd SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Load() List1.AddItem "111" List1.AddItem "222" List2.AddItem "333" List2.AddItem "444"End Sub程序設(shè)計(jì)11題解：一、根據(jù)題目要求

45、及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1CaptionForm1Frame1Caption計(jì)算機(jī)Label1caption品牌：combo1text聯(lián)想list聯(lián)想，戴爾，正方Label2Caption數(shù)量：Text1textFrame2Caption操作系統(tǒng)Option1CaptionWindows2000Option2CaptionWindows98Command1Caption 確定二、根據(jù)題意，對命令按鈕Command1的Click事件、復(fù)選框check的click事件和窗體的load事件編寫如下事件過程代碼：Pr

46、ivate Sub Check1_Click()If Check1.Value = 1 ThenCombo1.Enabled = TrueText1.Enabled = TrueElseCombo1.Enabled = FalseText1.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenOption1.Enabled = TrueOption2.Enabled = TrueElseOption1.Enabled = FalseOption2.Enabled = FalseEnd IfE

47、nd SubPrivate Sub Command1_Click()If Check1.Value = 1 Then Label3.Caption = Combo1.Text & Chr(13) & Chr(10) & Text1.Text & Chr(13) & Chr(10)End IfIf Check2.Value = 1 ThenIf Option1.Value Then Label3.Caption = Label3.Caption & Option1.Caption Else Label3.Caption = Label3.Capti

48、on & Option2.Caption End IfEnd IfEnd SubPrivate Sub Form_Load()Combo1.Enabled = FalseText1.Enabled = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd Sub程序設(shè)計(jì)12題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Text1textLabel1Caption請輸入：Label2Caption結(jié)果為：Label3CaptionCommand1Caption判

49、斷二、根據(jù)題意，對命令按鈕Command1的Click事件和Text1的KeyPress事件編寫如下事件過程代碼：Private Sub Command1_Click() Dim n As Integer, k As Integer, L As Integer, c As String, s As String '判斷文本框中的內(nèi)容是否為數(shù)字 s = Trim(Text1.Text) L = Len(s) For k = 1 To L c = Mid(s, k, 1) If c > "9" Or c < "0" Then Exit F

50、or Next k If k > L Then '是數(shù)字 n = Val(s) For k = 2 To Int(Sqr(n) If n Mod k = 0 Then Exit For Next k If k > Int(Sqr(n) Then Label2.Caption = "結(jié)果為：" + Str(n) + "是質(zhì)數(shù)!" Else Label2.Caption = "結(jié)果為：" + Str(n) + "不是質(zhì)數(shù)!" End If Else MsgBox "輸入的不是數(shù)字，無法計(jì)算

51、" End IfEnd Sub程序設(shè)計(jì)13題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Label1Caption查找：Label2Caption替換為：Command1Caption替換二、根據(jù)題意，對命令按鈕Command1的Click事件編寫如下事件過程代碼：Private Sub Command1_Click() Dim fs As String Dim fL As Integer Dim rs As String Dim s As String Dim L As Integer Dim i As Int

52、eger fs = Text2.Text fL = Len(fs) rs = Text3.Text s = Text1.Text L = Len(s) For i = L - f + 1 To 1 Step -1 If Mid(s, i, fL) = fs Then Text1.SetFocus Text1.SelStart = i - 1 Text1.SelLength = fL Text1.SelText = rs End If Next iEnd Sub程序設(shè)計(jì)14題解:一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注

53、Label1Caption簡單動畫Label2（0，1，2，3，4，5）Caption->Timer1intetervel1000Command1Caption演示Command2Caption停止二、根據(jù)題意，對命令按鈕的Click事件和計(jì)時(shí)器的Timer事件編寫如下事件過程代碼： Dim i As IntegerPrivate Sub Command1_Click()If Command1.Caption = "演示" Then Timer1.Enabled = True End IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = "結(jié)束" Then Timer1.Enabled = False End IfEnd SubPrivate Sub Form_Load()Timer1.Enabled = Falselabel2(1) .Visible= falselabel2(2) .Visible= falselabel2(3) .Visible= falselabel2(4) .Visi