【正文】 extmaxlength2Hscroll1Min12Max72二、根據(jù)題意，對命令文本框Text1的Change事件和水平滾動條數(shù)組Hscroll1的Change事件編寫如下事件過程代碼：Private Sub Form_Load() = / 2 / 2 = End SubPrivate Sub HScroll1_Change() = = = / 2 / 2End SubPrivate Sub HScroll1_Scroll() HScroll1_ChangeEnd SubPrivate Sub Text1_Change() If Len() = 2 Then If Val() = 12 And Val() = 72 Then = Val() =val() Else = 0 = Len() End If End IfEnd Sub程序設(shè)計18題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。 End IfEnd IfEnd SubPrivate Sub Form_Load() = False = False = False = FalseEnd Sub程序設(shè)計12題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注List1list111,222增加列表項List2list333,444增加列表項Command1captionCommand2captionCommand3captionCommand4captionCommand5caption結(jié)束二、根據(jù)題意，編寫如下事件過程代碼：Private Sub Command1_Click() If = 1 Then MsgBox 請選擇一列表項 Else () End IfEnd SubPrivate Sub Command2_Click() While 0 (0) 0 WendEnd SubPrivate Sub Command3_Click() While 0 (0) 0 WendEnd SubPrivate Sub Command4_Click() If = 1 Then MsgBox 請選擇一列表項 Else () End IfEnd SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Form_Load() 111 222 333 444End Sub程序設(shè)計11題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。月 End SubPrivate Sub Option4_Click() = 今天是 amp。L) End If = ( ) / 2 = ( ) / 2End Sub程序設(shè)計02題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。單擊菜單“停止”，圓球停止運動，再單擊菜單“啟動”，圓球繼續(xù)運動。拖動滾動條的滾動框來選擇紅、綠、蘭三原色的配色取值，配色通過形狀控件的填充效果動態(tài)顯示。宋體，常規(guī)，三號；文字對齊方式為居中。程序設(shè)計29窗體的右部是圖片框，可以用鼠標左鍵進行繪圖。文本框設(shè)計為帶垂直滾動條。程序設(shè)計24 文件列表框能過濾文本文件。程序設(shè)計20窗體上放置兩個文本框，分別用于輸入身高和體重。改變滾動條可以控制標簽文字的大小，并同時在文本框中顯示標簽的字號；標簽文字為“心想事成”，要求在改變字號時標簽保持在窗體中水平居中；文本框最多接受兩個字符，當輸入一個∈[12，72]的兩位整數(shù)后，也可以改變標簽文字的大小，并同時調(diào)整水平滾動條的滾動框位置；程序設(shè)計16單擊“開始”按鈕，標簽“歡迎光臨”文字在定時器控制下字號自動增加2。程序設(shè)計12當單擊“ ”按鈕時，把list1中，并且清空list2。三個文本框的對齊方式均為右對齊，設(shè)置相關(guān)屬性使得下面一個文本框不能進行編輯操作。 文件。否則彈出錯誤消息，并讓用戶重新輸入。程序設(shè)計02窗體上有三個文體框，上面兩個分別用于輸入商品單價和商品數(shù)量，單擊“計算”，將應(yīng)付款顯示在下面一個文本框中。程序設(shè)計05單擊“坐標系”按鈕，將圖片框的坐標系統(tǒng)設(shè)置為原點在中央，x軸[10,10]，y 軸[10,10]，并畫出該坐標系統(tǒng)；單擊“扇形”按鈕,在圖片框中畫一個圓心在原點，半徑為5,圓周為紅色，線寬為2，內(nèi)部為綠色，起始角為π/6，終止角為5π/6的扇形；設(shè)置相關(guān)屬性使得上面兩個文本框均不接受非數(shù)字鍵。當單擊“”按鈕時，把list2中選中的一項放到list2中，并且在list1中，并且在list1中刪除該項。在“請輸入”文本框中輸入一個數(shù)字后，單擊判斷，可在“結(jié)果為顯示判斷結(jié)果。程序設(shè)計15單擊“開始”按扭,標簽“祝您考試成功”文字在定時器控制下自動地從左向右移動，移動速度為每個時間間隔右移100緹,當標簽移動到窗體外時,再從窗體的左邊進入。同時“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。程序設(shè)計18在窗體上放置一個水平滾動條、一個標簽框和一個命令按鈕。設(shè)置相關(guān)屬性使得兩個文本框文字對起方式均為右對起，最多接受3個字符，不接受數(shù)字鍵。程序設(shè)計22當在文本框中輸入密碼“1234567”，并按回車后，顯示標簽labe12為“歡迎光臨！”。當單擊某文本文件名后，在Textl顯示文件名（包括路徑），在Text2顯示該文件內(nèi)容?！斑x項”框中有兩個單選鈕控件，選擇“細”時，繪圖的線寬設(shè)置為1，選擇“粗”時，繪圖的線寬設(shè)置為5。單擊“應(yīng)用”按鈕，將調(diào)配好的顏色作為標簽文字“堅持就是勝利！”的文字顏色。控件名稱屬性屬性值備注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(Day(Date)) amp?？丶Q屬性屬性值備注Form1CaptionForm1Frame1Caption計算機Label1caption品牌：bo1text聯(lián)想list聯(lián)想，戴爾，正方Label2Caption數(shù)量：Text1textFrame2Caption操作系統(tǒng)Option1CaptionWindows2000Option2CaptionWindows98Command1Caption 確定二、根據(jù)題意，對命令按鈕Command1的Click事件、復選框check的click事件和窗體的load事件編寫如下事件過程代碼：Private Sub Check1_Click()If = 1 Then = True = TrueElse = False = FalseEnd IfEnd SubPrivate Sub Check2_Click()If = 1 Then = True = TrueElse = False = FalseEnd IfEnd SubPrivate Sub Command1_Click()If = 1 Then = amp?？丶Q屬性屬性值備注Text1textLabel1Caption請輸入：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 39?？丶Q屬性屬性值備注Label1Caption歡迎您的使用HScroll1水平滾動條Command1Caption結(jié)束二、根據(jù)題意，對命令按鈕Command1的Click事件和水平滾動條數(shù)組Hscroll1的Change事件編寫如下事件過程代碼：Private Sub Command1_Click()EndEnd SubPrivate Sub Form_Load() = 0 =End SubPrivate Sub HScroll1_Change() = End SubPrivate Sub HScroll1_Scroll()HScroll1_ChangeEnd Sub程序設(shè)計19題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Form1Caption密碼檢驗Label1Caption輸入密碼后按回車（提示：密碼1234567）Label2Caption初始清空AutoSizeTrueFront宋體、三號、常規(guī)ForeColor選紅色Text1Text初始清空PassWordChar*MaxLength7二、根據(jù)題意，對窗體的Load事件和文本框Text1的KeyPress事件編寫如下事件過程代碼：Private Sub Form_Load() = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static n As IntegerIf KeyAscii = 13 Then = True If = 1234567 Then = 歡迎光臨！ Else = 密碼不符，請再輸入一遍！ = n = n + 1 End If If n = 2 Then = 非法用戶，請退出程序！ = False End IfEnd IfEnd Sub程序設(shè)計23題解：一、根據(jù)題目要求及樣例，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。當前表項被選中時刪除數(shù)據(jù) i i i i Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = End IfEnd Sub程序設(shè)計28題解：一、根據(jù)題目要求，在Form1窗體上畫出各控件，并根據(jù)題意按下表對窗體和各控件設(shè)置屬性值。控件名稱屬性屬性值備注Form1Caption撥號盤Text1Text清空MaxLength10Font宋體、粗體、三號ForeColor蘭色Command（0