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