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