浙江省計(jì)算機(jī)二級VB上機(jī)考試設(shè)計(jì)題及答案

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

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

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

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

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

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

7、在按鈕下面的標(biāo)簽中顯示用戶所選擇的信息。3、界面及功能設(shè)計(jì)請參考cx11.exe文件。程序設(shè)計(jì)121、按照cx12.exe所示在窗體上放置按鈕和控件。2、在“請輸入”文本框中輸入一個數(shù)字后，單擊判斷，可在“結(jié)果為顯示判斷結(jié)果。3、若輸入的不是數(shù)字，則彈出消息框，提示信息是“輸入的不是數(shù)字，無法計(jì)算”。4、界面及功能設(shè)計(jì)請參考cx12.exe文件。程序設(shè)計(jì)131、可以在查找文本框中輸入查找文字；2、可以在替換為文本框中輸入替換文字；3、單擊“替換”按鈕，對文本框Text1中與查找內(nèi)容匹配的文字進(jìn)行替換操作；4、文本框Text1可以多行顯示文字；5、界面及功能設(shè)計(jì)請參考cx13.exe文件。程序設(shè)

8、計(jì)141、在窗體上創(chuàng)建一個label1控件用于顯示程序名“簡單動畫”2、在窗體上創(chuàng)建一個label2的控件數(shù)組，數(shù)組長度為6，用于顯示動畫圖象“-”3、在窗體上放置timer控件，用它來控制label2上的圖象位置的變化。4、單擊“開始”按鈕時label2上的圖象開始移動，單擊“結(jié)束”按鈕圖象停止移動，設(shè)置每一秒移動一個箭頭。5、界面及功能設(shè)置請參考cx14.exe文件。程序設(shè)計(jì)151、單擊“開始”按扭,標(biāo)簽“祝您考試成功”文字在定時器控制下自動地從左向右移動，移動速度為每個時間間隔右移100緹,當(dāng)標(biāo)簽移動到窗體外時,再從窗體的左邊進(jìn)入。同時“開始”按扭變?yōu)椤巴Ｖ埂卑磁ぁ?、單擊“停止”按扭，

9、標(biāo)簽“祝您考試成功”文字停止?jié)L動。同時“停止”按扭變?yōu)椤伴_始”按扭。3、要求程序開始運(yùn)行時，標(biāo)簽文字的字體為“宋體”、字形為“粗體”、大小為“二號”。4、定時器的時間間隔為.秒。5、界面及功能設(shè)計(jì)請參考cx15.exe文件。程序設(shè)計(jì)161、單擊“開始”按鈕，標(biāo)簽“歡迎光臨”文字在定時器控制下字號自動增加2。同時“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。2、單擊“停止”按鈕，標(biāo)簽“歡迎光臨”文字停止放大。同時“停止”按鈕變?yōu)椤伴_始”按鈕。3、要求標(biāo)簽文字在放大時保持水平居中。4、定時器的時間間隔為0.2秒。5、界面及功能設(shè)計(jì)請參考cx16.exe文件。程序設(shè)計(jì)171、水平滾動條的取值范圍12，72。改變滾動

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

11、直徑相同，初始值為最大值，SmallChange和LargeChange均為100Twips.3、改變條的值可以控制圓形的直徑，同時在標(biāo)簽Labe12中動態(tài)顯示圓形的直徑。4、要求圓形的直徑在變化時要保持圓形的位置不變。5、界面及功能設(shè)計(jì)請參考cx19.exe文件。程序設(shè)計(jì)201、窗體上放置兩個文本框，分別用于輸入身高和體重。2、設(shè)置相關(guān)屬性使得兩個文本框文字對起方式均為右對起，最多接受3個字符，不接受數(shù)字鍵。3、單擊“健康狀況”按紐，根據(jù)計(jì)算公式分別將提示信息顯示在Labe15中。計(jì)算公式為：標(biāo)準(zhǔn)體重=身高-105；體重高于標(biāo)準(zhǔn)體重*1.1為偏胖，提示“偏胖，注意節(jié)食”；體重低于標(biāo)準(zhǔn)體重*0

12、.9為偏瘦，提示“偏瘦，增加營養(yǎng)”；其他為正常，提示“正常，繼續(xù)保持”。4、界面及功能設(shè)計(jì)請參考cx20.exe文件。程序設(shè)計(jì)211、設(shè)計(jì)2個定時器，一個用于控制時間顯示，時間間隔為一秒；一個用于判斷鬧鐘時間，時間間隔為0.5秒，并且在未輸入鬧鐘時間前不可使用。2、標(biāo)簽Labell用于顯示時間，宋體，粗體，斜體，二號，背景白色，字體居中對齊，固定邊框。3、在文本框中輸入鬧鐘時間并按回車后，啟動判斷鬧鐘時間的定時器，如果時間超過鬧鐘時間，則標(biāo)簽的背景色用紅白兩色交替變換。4、界面及功能設(shè)計(jì)請參考cx21.exe文件。程序設(shè)計(jì)221、當(dāng)在文本框中輸入密碼“1234567”，并按回車后，顯示標(biāo)簽la

13、be12為“歡迎光臨！”。如果輸入的密碼與“1234567”不吻合，顯示標(biāo)簽Labe12為“密碼不符，請?jiān)佥斎胍槐椋　?，同時清空文本框的內(nèi)容，允許再輸入一遍；如果第二次輸入的密碼仍然與“1234567”不吻合，顯示標(biāo)簽Labe12為“非法用戶，請退出程序！”，文本框就不能使用了。2、文本框中輸入的字符顯示為*，并且最多可以接受7個字符。3、標(biāo)簽控件Labe12的文字對齊方式為居中對齊，文字顏色紅色，宋體、常規(guī)、三號；標(biāo)簽的大小隨字體自動調(diào)整，一開始不可見。4、界面及功能設(shè)計(jì)請參考cx22.exe程序設(shè)計(jì)231、窗體上放置驅(qū)動器列表框、目錄列表框和文件列表框三個控件，設(shè)置屬性使得三個控件能夠聯(lián)動

14、。2、設(shè)置文件列表框只顯示*.bap 和*.jpg類型的圖片文件。3、編寫相關(guān)代碼使得單擊文件列表框上的圖片文件名時，圖片顯示在圖片框中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、窗體上引入一個通用對話框控件。2、單擊菜單“字體”，通用對話框，并對文本框字體進(jìn)行修飾。3、單擊菜單“文字顏色”，通用對話框控件顯示為顏色對話框，并對文體框文字顏

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

16、功能設(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)”框中有兩個單選鈕控件，選擇“細(xì)”時，繪圖的線寬設(shè)置為1，選擇“粗”時，繪圖的線寬設(shè)置為5。3、“選項(xiàng)”框中的“顏色”按鈕打開通用對話框?yàn)轭伾珜υ捒?，并設(shè)置繪圖的顏色。4、“選項(xiàng)”框架中的“清除”按鈕用于清除圖片框中的內(nèi)容。

17、5、界面及功能設(shè)計(jì)請參考cx29.exe.文件。程序設(shè)計(jì)301、框架Frame1中有一個復(fù)選框數(shù)組，可以選擇粗體，斜體對標(biāo)簽中的文字進(jìn)行修飾。2、框架Frame2中有一個單選鈕數(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ì)時”按鈕后,程序根據(jù)選擇的時間開始倒計(jì)時，命令按鈕變?yōu)椴豢墒褂谩?、倒計(jì)時過程是將剩余的時間顯示在標(biāo)簽Labell中，直到0分0秒為止，改為顯示“時間到！”：3、框架“選擇時間”內(nèi)有一組單選鈕控

18、件數(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í)現(xiàn)）3、定時器的時間間隔為0.5秒；4、文本框最多接受10個字符：宋體，粗體，三號，蘭色號；5、界面及功能設(shè)計(jì)請參考cx32.exe文件。程序設(shè)計(jì)331、在窗體上放置一個“三原色配比與預(yù)覽”的框架，框架內(nèi)有三個水平滾動條構(gòu)成的控件數(shù)組，滾動條的取值范圍為0255；還有一個長方形形狀控件。2、拖動滾動條的滾動框來選擇紅、綠、

19、蘭三原色的配色取值，配色通過形狀控件的填充效果動態(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、程序啟動后窗體正中央有一個直徑為500Twips的紅色圓球。2、第一次單擊菜單“啟動”，圓球先向右上角方向運(yùn)動，碰壁后改變方向。水平、垂直方向的移動速度均為100Twips/間隔。3、單擊菜單“停止”，圓球停止運(yùn)動，再單擊菜單“啟動”，圓球繼續(xù)運(yùn)動。4、定時器時

20、間間隔為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 = 最大化(&L) Then Form1.WindowState = 2 Command1.Caption = 還原(&B) Else Form1.Wi

21、ndowState = 0Command1.Caption = 最大化(&L) End IfCommand1.Left = (Form1.Width - Command1.Width) / 2 Command1.Top = (Form1.Height - Command1.Height) / 2End Sub程序設(shè)計(jì)02題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Text1text空Text2text空Text3text空EnabledFalseLabel1Caption商品單價：Label2Caption商品數(shù)量：La

22、bel3Caption應(yīng)付款：Command1Caption清除Command2Caption計(jì)算二、根據(jù)題意，對命令按鈕Command1的Click事件和Command2的Click事件編寫如下事件過程代碼：Private Sub Command1_Click()Text1.Text = Text1.SetFocusText2.Text = Text3.Text = End SubPrivate Sub Command2_Click()Dim a, b, sum As IntegerText3.Enabled = Truea = Val(Text1.Text)b = Val(Text2.Te

23、xt)sum = a * bText3.Text = sumEnd Sub程序設(shè)計(jì)03題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Text1textTabIndex0Text2textPassWordChar*TabIndex1Text3textPassWordChar*TabIndex2Text4textPassWordChar*TabIndex 3Label1Caption用戶名Label2Caption原密碼Label3Caption新密碼Label4Caption新密碼Command1Caption確定TabIn

24、dex4Command2Caption取消TabIndex5二、根據(jù)題意，對命令按鈕Command1的Click事件和Command2的Click事件編寫如下事件過程代碼：Private Sub Command1_Click()If Text1.Text = admin And Text2.Text = admin Then If Text3.Text = Text4.Text Then B=MsgBox (密碼修改成功!, ,”修改密碼”) Else B=MsgBox(新密碼有誤，請重試, , “修改密碼”) Text3.Text = Text4.Text = End If Else B=M

25、sgBox( 用戶名或密碼無效，請重試！, , “修改密碼”) Text1.Text = Text2.Text = End IfEnd SubPrivate Sub Command2_Click()endEnd Sub程序設(shè)計(jì)04題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Option1Caption顯示星期幾Option2Caption顯示年份Option3Caption顯示月份Option4Caption顯示日期Text1textCommand1Caption結(jié)束二、根據(jù)題意，對命令按鈕Command1的Cli

26、ck事件編寫如下事件過程代碼：Private Sub Command1_Click()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) &月 End SubPrivate Sub Option4_Click()Text1

27、.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后按默認(rèn)單位處理Const PI = 3.1415926Private Sub Command1_Click() Picture1.Scal

28、e (-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.FillColor = vbGreen Picture1.DrawWidth = 2 Picture1.Circle (0, 0), 5, vbRed, -PI / 6

29、, -5 * PI / 6End SubPrivate Sub Command3_Click() EndEnd Sub程序設(shè)計(jì)06題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Label1Caption高數(shù)Label2Caption英語Label3Caption計(jì)算機(jī)Label4Caption平均成績Text1TextText2TextText3TextText4LockedTrue二、根據(jù)題意，對文本text1，text2，text3的Change事件編寫如下事件過程代碼：Private Sub Form_Load

30、()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.Text) + Val(Text3.Text) / 3) End IfEnd SubPrivate Sub Text3_Change() If Val(Text3.Text) 0 Then Text4.Text = Trim(Str(Val(Text1.Text) + V

31、al(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.Text) + Val(Text3.Text) / 3) End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(9) Or KeyAscii Asc(9) Or KeyAscii Asc(9)

32、 Or KeyAscii Asc(0) Then MsgBox 不能輸入非數(shù)字字符 KeyAscii = 0 End IfEnd Sub程序設(shè)計(jì)07題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1Caption加法器Label1Caption+Command1Caption=Command2Caption清空Text1、Text2、Text3Caption清空Alignment1-Right JustifyText3LockedTrue二、根據(jù)題意，對各命令按鈕的Click事件和各文本框的Change事件編寫

33、如下事件過程代碼：Private Sub Command1_Click() Text3.Text = Trim(Str(Val(Text1.Text) + Val(Text2.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 A

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

35、extCombo2Style1-simple comboText 二、根題意，編寫如下事件過程代碼：Private Sub Form_Load()combo1.AddItem 宋體combo1.AddItem 黑體combo1.AddItem 楷體_GB2312combo2.AddItem 8combo2.AddItem 9combo2.AddItem 10combo2.AddItem 11combo2.AddItem 12combo2.AddItem 14combo2.AddItem 16End SubPrivate Sub combo1_Click()Text1.FontName = Co

36、mbo1.TextEnd SubPrivate Sub combo1_Click()Text1.FontSize = Val(Combo2.Text)End Sub程序設(shè)計(jì)09題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Form1caption添加和刪除窗體中各控件的位置按樣例畫好MinButtonFalseMaxButtonFalseText1Text List1Command1Caption添加Command2caption刪除二、根題意，編寫如下事件過程代碼：Private Sub Command1_Clic

37、k()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.ListIndexEnd IfEnd SubPrivate Sub Form_Load()List1.AddItem WordList1.AddItem ExcelList1.AddItem PowerPointList1

38、.AddItem OutlookEnd Sub程序設(shè)計(jì)10題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注List1list111,222增加列表項(xiàng)List2list333,444增加列表項(xiàng)Command1captionCommand2captionCommand3captionCommand4caption 0 List2.AddItem List1.List(0) List1.RemoveItem 0 WendEnd SubPrivate Sub Command3_Click() While List2.ListC

39、ount 0 List1.AddItem List2.List(0) List2.RemoveItem 0 WendEnd SubPrivate Sub Command4_Click() If List2.ListIndex = -1 Then MsgBox 請選擇一列表項(xiàng) Else List1.AddItem List2.List(List2.ListIndex) List2.RemoveItem List2.ListIndexEnd IfEnd SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Load() List1.A

40、ddItem 111 List1.AddItem 222 List2.AddItem 333 List2.AddItem 444End Sub程序設(shè)計(jì)11題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值?？丶Q屬性屬性值備注Form1CaptionForm1Frame1Caption計(jì)算機(jī)Label1caption品牌：combo1text聯(lián)想list聯(lián)想，戴爾，正方Label2Caption數(shù)量：Text1textFrame2Caption操作系統(tǒng)Option1CaptionWindows2000Option2CaptionWindows

41、98Command1Caption 確定二、根據(jù)題意，對命令按鈕Command1的Click事件、復(fù)選框check的click事件和窗體的load事件編寫如下事件過程代碼：Private 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.Enabl

42、ed = TrueOption2.Enabled = TrueElseOption1.Enabled = FalseOption2.Enabled = FalseEnd IfEnd 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 = Lab

43、el3.Caption & Option1.Caption Else Label3.Caption = Label3.Caption & 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è)置屬性值。控件名稱屬性屬性值備注Text1textLab

44、el1Caption請輸入：Label2Caption結(jié)果為：Label3CaptionCommand1Caption判斷二、根據(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

45、 9 Or c 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ì)算 End IfEnd Sub程序設(shè)計(jì)13題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性

46、值備注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 Integer fs = Text2.Text fL = Len(fs) rs = Text3.Text s = Text1.Text L = Len(s) For i

47、= 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屬性屬性值備注Label1Caption簡單動畫Label2（0，1，2，3，4，5）Caption-Timer1intetervel1000Command1Caption演示C

48、ommand2Caption停止二、根據(jù)題意，對命令按鈕的Click事件和計(jì)時器的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) .Visible= falselabel2(5) .Visible= falseEnd SubPrivate Sub Timer1_Timer()If i = 5 Then i = 0 Lab