【正文】 End SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Load() 111 222 333 444End Sub程序設(shè)計(jì)11題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q(chēng)屬性屬性值備注Label1Caption高數(shù)Label2Caption英語(yǔ)Label3Caption計(jì)算機(jī)Label4Caption平均成績(jī)Text1TextText2TextText3TextText4LockedTrue二、根據(jù)題意，對(duì)文本text1，text2，text3的Change事件編寫(xiě)如下事件過(guò)程代碼：Private Sub Form_Load() = = = = End SubPrivate Sub Text2_Change() If Val() 0 Then = Trim(Str((Val() + Val() + Val()) / 3)) End IfEnd SubPrivate Sub Text3_Change() If Val() 0 Then = Trim(Str((Val() + Val() + Val()) / 3)) End IfEnd SubPrivate Sub Text1_Change() If Val() 0 Then = Trim(Str((Val() + Val() + Val()) / 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) 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ù)題目要求及樣例，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。月 End SubPrivate Sub Option4_Click() = 今天是 amp。 Str(Weekday(Date))End SubPrivate Sub Option2_Click() = 今天是 amp。L) End If = ( ) / 2 = ( ) / 2End Sub程序設(shè)計(jì)02題解：一、根據(jù)題目要求，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。控件名稱(chēng)屬性屬性值備注Form1CaptionForm1Command1Caption最大化(amp。單擊菜單“停止”，圓球停止運(yùn)動(dòng)，再單擊菜單“啟動(dòng)”，圓球繼續(xù)運(yùn)動(dòng)。拖動(dòng)滾動(dòng)條的滾動(dòng)框來(lái)選擇紅、綠、蘭三原色的配色取值，配色通過(guò)形狀控件的填充效果動(dòng)態(tài)顯示。只有選擇時(shí)間后，命令按鈕才可以使用。宋體，常規(guī)，三號(hào)；文字對(duì)齊方式為居中。程序設(shè)計(jì)29窗體的右部是圖片框，可以用鼠標(biāo)左鍵進(jìn)行繪圖。在文本框控件數(shù)組中輸入相應(yīng)信息后，點(diǎn)擊“添加”后在組合框中會(huì)出現(xiàn)該項(xiàng)的姓名。文本框設(shè)計(jì)為帶垂直滾動(dòng)條。程序設(shè)計(jì)25窗體上引入一個(gè)通用對(duì)話框控件。程序設(shè)計(jì)24 文件列表框能過(guò)濾文本文件。標(biāo)簽控件Labe12的文字對(duì)齊方式為居中對(duì)齊，文字顏色紅色，宋體、常規(guī)、三號(hào)；標(biāo)簽的大小隨字體自動(dòng)調(diào)整，一開(kāi)始不可見(jiàn)。程序設(shè)計(jì)20窗體上放置兩個(gè)文本框，分別用于輸入身高和體重。程序設(shè)計(jì)19窗體上引入一個(gè)紅色的圓形形狀控體，圓的直徑為3400Twips。改變滾動(dòng)條可以控制標(biāo)簽文字的大小，并同時(shí)在文本框中顯示標(biāo)簽的字號(hào)；標(biāo)簽文字為“心想事成”，要求在改變字號(hào)時(shí)標(biāo)簽保持在窗體中水平居中；文本框最多接受兩個(gè)字符，當(dāng)輸入一個(gè)∈[12，72]的兩位整數(shù)后，也可以改變標(biāo)簽文字的大小，并同時(shí)調(diào)整水平滾動(dòng)條的滾動(dòng)框位置；要求標(biāo)簽文字在放大時(shí)保持水平居中。程序設(shè)計(jì)16單擊“開(kāi)始”按鈕，標(biāo)簽“歡迎光臨”文字在定時(shí)器控制下字號(hào)自動(dòng)增加2。同時(shí)“停止”按扭變?yōu)椤伴_(kāi)始”按扭。程序設(shè)計(jì)13可以在查找文本框中輸入查找文字；可以在替換為文本框中輸入替換文字；單擊“替換”按鈕，對(duì)文本框Text1中與查找內(nèi)容匹配的文字進(jìn)行替換操作；文本框Text1可以多行顯示文字；程序設(shè)計(jì)12界 。當(dāng)單擊“ ”按鈕時(shí)，把list1中，并且清空l(shuí)ist2。程序設(shè)計(jì)08左邊一個(gè)簡(jiǎn)單組合框，對(duì)文本框的字體進(jìn)行設(shè)置；右邊一個(gè)簡(jiǎn)單組合框，對(duì)文本框的文字大小進(jìn)行設(shè)置；文本框中文字為“心想事成”三個(gè)文本框的對(duì)齊方式均為右對(duì)齊，設(shè)置相關(guān)屬性使得下面一個(gè)文本框不能進(jìn)行編輯操作?！捌骄煽?jī)”文本框不允許編輯，即不能手工修改。 文件。否則彈出錯(cuò)誤消息，并讓用戶(hù)重新輸入。B．程序設(shè)計(jì)題程序設(shè)計(jì)01在窗體上放置一個(gè)命令按鈕，命名為CmdMaxSize.取消窗體（Form）的最大化和最小化按鈕當(dāng)單擊CmdMaxSize按鈕時(shí)，實(shí)現(xiàn)窗口放大功能，放大后再單擊該按鈕則還原窗口。程序設(shè)計(jì)02窗體上有三個(gè)文體框，上面兩個(gè)分別用于輸入商品單價(jià)和商品數(shù)量，單擊“計(jì)算”，將應(yīng)付款顯示在下面一個(gè)文本框中。程序設(shè)計(jì)03程序設(shè)計(jì)04在窗體上放置4個(gè)單選按鈕，分別用于顯示星期、年份、月份和日期。程序設(shè)計(jì)05單擊“坐標(biāo)系”按鈕，將圖片框的坐標(biāo)系統(tǒng)設(shè)置為原點(diǎn)在中央，x軸[10,10]，y 軸[10,10]，并畫(huà)出該坐標(biāo)系統(tǒng)；單擊“扇形”按鈕,在圖片框中畫(huà)一個(gè)圓心在原點(diǎn)，半徑為5,圓周為紅色，線寬為2，內(nèi)部為綠色，起始角為π/6，終止角為5π/6的扇形；各單科成績(jī)框中只能輸入數(shù)字，不能輸入字母或漢字，否則不顯示字母并發(fā)出錯(cuò)誤提示音。設(shè)置相關(guān)屬性使得上面兩個(gè)文本框均不接受非數(shù)字鍵。程序設(shè)計(jì)09單擊“添加”按鈕，將本文框中的內(nèi)容加到列表框中的第一項(xiàng)，如果文本框有內(nèi)容,則給出提示“沒(méi)有內(nèi)容，不予貼加”單擊“刪除”按鈕，將選紅表項(xiàng)刪除，如果沒(méi)有選擇要?jiǎng)h除的表項(xiàng)，則給出提示“請(qǐng)選擇輸出的項(xiàng)目”。當(dāng)單擊“”按鈕時(shí)，把list2中選中的一項(xiàng)放到list2中，并且在list1中，并且在list1中刪除該項(xiàng)。程序設(shè)計(jì)11窗體上有二個(gè)CheckBox，當(dāng)這兩個(gè)選項(xiàng)未被選定時(shí)，它們所在框架的其它控件不能使用。在“請(qǐng)輸入”文本框中輸入一個(gè)數(shù)字后，單擊判斷，可在“結(jié)果為顯示判斷結(jié)果。程序設(shè)計(jì)14在窗體上創(chuàng)建一個(gè)label1控件用于顯示程序名“簡(jiǎn)單動(dòng)畫(huà)”在窗體上創(chuàng)建一個(gè)label2的控件數(shù)組，數(shù)組長(zhǎng)度為6，用于顯示動(dòng)畫(huà)圖象“224。程序設(shè)計(jì)15單擊“開(kāi)始”按扭,標(biāo)簽“祝您考試成功”文字在定時(shí)器控制下自動(dòng)地從左向右移動(dòng)，移動(dòng)速度為每個(gè)時(shí)間間隔右移100緹,當(dāng)標(biāo)簽移動(dòng)到窗體外時(shí),再?gòu)拇绑w的左邊進(jìn)入。要求程序開(kāi)始運(yùn)行時(shí)，標(biāo)簽文字的字體為“宋體”、字形為“粗體”、大小為“二號(hào)”。同時(shí)“開(kāi)始”按鈕變?yōu)椤巴Ｖ埂卑粹o。程序設(shè)計(jì)18在窗體上放置一個(gè)水平滾動(dòng)條、一個(gè)標(biāo)簽框和一個(gè)命令按鈕。水平滾動(dòng)條的最大值與圓的直徑相同，初始值為最大值，SmallChange和LargeChange均為100Twips.改變條的值可以控制圓形的直徑，同時(shí)在標(biāo)簽Labe12中動(dòng)態(tài)顯示圓形的直徑。設(shè)置相關(guān)屬性使得兩個(gè)文本框文字對(duì)起方式均為右對(duì)起，最多接受3個(gè)字符，不接受數(shù)字鍵。程序設(shè)計(jì)21設(shè)計(jì)2個(gè)定時(shí)器，一個(gè)用于控制時(shí)間顯示，時(shí)間間隔為一秒；一個(gè)用于判斷鬧鐘時(shí)間，并且在未輸入鬧鐘時(shí)間前不可使用。程序設(shè)計(jì)22當(dāng)在文本框中輸入密碼“1234567”，并按回車(chē)后，顯示標(biāo)簽labe12為“歡迎光臨！”。程序設(shè)計(jì)23窗體上放置驅(qū)動(dòng)器列表框、目錄列表框和文件列表框三個(gè)控件，設(shè)置屬性使得三個(gè)控件能夠聯(lián)動(dòng)。當(dāng)單擊某文本文件名后，在Textl顯示文件名（包括路徑），在Text2顯示該文件內(nèi)容。單擊菜單“字體”，通用對(duì)話框，并對(duì)文本框字體進(jìn)行修飾。在組合框中選中某項(xiàng)，可以在文本框數(shù)組中顯示該項(xiàng)的用戶(hù)信息，點(diǎn)擊“刪除”，可以刪除該項(xiàng)的所有信息?！斑x項(xiàng)”框中有兩個(gè)單選鈕控件，選擇“細(xì)”時(shí)，繪圖的線寬設(shè)置為1，選擇“粗”時(shí)，繪圖的線寬設(shè)置為5。程序設(shè)計(jì)30框架Frame1中有一個(gè)復(fù)選框數(shù)組，可以選擇粗體，斜體對(duì)標(biāo)簽中的文字進(jìn)行修飾。單擊“應(yīng)用”按鈕，將調(diào)配好的顏色作為標(biāo)簽文字“堅(jiān)持就是勝利！”的文字顏色。程序設(shè)計(jì)34程序啟動(dòng)后窗體正中央有一個(gè)直徑為500Twips的紅色圓球。L)二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件編寫(xiě)如下事件過(guò)程代碼：Private Sub Command1_Click() If = 最大化(amp?？丶Q(chēng)屬性屬性值備注Text1text空Text2text空Text3text空EnabledFalseLabel1Caption商品單價(jià)：Label2Caption商品數(shù)量：Label3Caption應(yīng)付款：Command1Caption清除Command2Caption計(jì)算二、根據(jù)題意，對(duì)命令按鈕Command1的Click事件和Command2的Click事件編寫(xiě)如下事件過(guò)程代碼：Private Sub Command1_Click() = = = End SubPrivate Sub Command2_Click()Dim a, b, sum As Integer = Truea = Val()b = Val()sum = a * b = sumEnd Sub程序設(shè)計(jì)03題解：一、根據(jù)題目要求，在Form1窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值。 Str(Year(Date)) amp。 Str(Day(Date)) amp?？丶Q(chēng)屬性屬性值備注Form1Caption加法器Label1Caption+Command1Caption=Command2Caption清空TextTextText3Caption清空Alignment1Right JustifyText3LockedTrue二、根據(jù)題意，對(duì)各命令按鈕的Click事件和各文本框的Change事件編寫(xiě)如下事件過(guò)程代碼：Private Sub Command1_Click() = Trim(Str(Val() + Val()))End SubPrivate Sub Command2_Click() = = = End SubPrivate Sub Form_Load() = TrueEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc(0) Or KeyAscii Asc(9) Then 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窗體上畫(huà)出各控件，并根據(jù)題意按下表對(duì)窗體和各控件設(shè)置屬性值?？丶Q(chēng)屬性屬性值備注Form1CaptionForm1Frame1Caption計(jì)算機(jī)Label1caption品牌：bo1text聯(lián)想list聯(lián)想，戴爾，正方Label2Capti