VB上機(jī)參考答案

1、1、 編制通用函數(shù)過程，計算1+2+N 的值。在窗體的Click事件中調(diào)用該函數(shù)。Private Function sum(n As Integer) As long Dim i As Integer For i = 1 To n sum = sum + i Next iEnd FunctionPrivate Sub Form_Click() Print sum(100)'任意選取一個數(shù)對函數(shù)過程進(jìn)行調(diào)試就可End Sub2、 編制通用函數(shù)過程，計算N！的值。在窗體的Click事件中調(diào)用該函數(shù)。Private Function fact(n As Integer) As Double

2、Dim i As Integer fact = 1 '必須賦初值 For i = 1 To n fact = fact * i Next iEnd FunctionPrivate Sub Form_Click() Print fact(5) End Sub3、 編制通用函數(shù)過程，用于判斷1個整數(shù)是否為素數(shù)，若是則顯示true，若不是則顯示false。在窗體的Click事件中調(diào)用該函數(shù)。Private Function prime(n As Integer) As Boolean' Boolean邏輯型 Dim i As Integer If n < 2 Then prim

3、e = False Else For i = 2 To Int(Sqr(n) If n Mod i = 0 Then Exit For Next i If i > Int(Sqr(n) Then prime = True Else prime = False End If End IfEnd FunctionPrivate Sub Form_Click() Print prime(4),prime(7) End Sub4、 編制一個判斷奇偶數(shù)的Function函數(shù)過程。在窗體的Click事件中調(diào)用該函數(shù)，輸入一個整數(shù)，判斷其奇偶性。比如：輸入10則顯示“10是偶數(shù)”，輸入3則顯示“3是奇

4、數(shù)”Private Function Odd(n As Integer) As stringIf n Mod 2 = 0 Then Odd =n & “是偶數(shù)”Else Odd = n & “是奇數(shù)”End ifEnd FunctionPrivate Sub Form_Click() Print Odd(4),Odd(5) End Sub5、 新建一個工程，完成“密碼檢驗”程序的設(shè)計。具體要求如下：（1）參照運行時界面完成界面設(shè)計。（2）文本框Text1，用于輸入密碼。文本框中輸入的字符顯示為*，并且最多可以接受7個字符。（3）窗體的下半部有一個標(biāo)簽控件Label2，用來顯示密

5、碼輸入后的提示信息。（4）當(dāng)在文本框中輸入密碼“1234567”，并按回車后，標(biāo)簽Label2顯示為“歡迎光臨！”；如果輸入的密碼與“1234567”不吻合，標(biāo)簽Label2顯示為“密碼不符，請再輸入一遍！”，同時清空文本框的內(nèi)容，允許再輸入一遍；如果第二次輸入的密碼仍然與“1234567”不吻合，標(biāo)簽Label2顯示為“非法用戶，請退出程序！”，文本框就不能使用了。Private Sub Form_Load() Label1.Caption = "輸入密碼后按回車" & chr(13) & chr(10) & "（提示：密碼1234567

6、）" Text1.PasswordChar = "*" Text1.MaxLength = 7End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static n As Integer'n用來記錄輸入次數(shù) If KeyAscii = 13 Then'表示單擊回車后 If Text1.Text = "1234567" Then'判斷密碼是否正確 Label2.Caption = "歡迎光臨！" Label1.Visible = False Text

7、1.Visible = FalseElse n = n + 1'計算輸入次數(shù) If n<2 Then Label2.Caption = "密碼不符，請再輸入一遍！" Text1.Text = "" Else Label2.Caption = "非法用戶，請退出程序！" Text1.Enabled = False'文本框不可用 End If End If End IfEnd Sub6、 新建一個工程，完成“編輯”程序的設(shè)計。具體要求如下：（1）窗體的標(biāo)題為“編輯”。（2）窗體中有以下控件：一個文本框、四個命令按鈕。

8、（3）完成以下功能：文本框?qū)崿F(xiàn)文本編輯功能，單擊按鈕實現(xiàn)相應(yīng)功能。Private Sub Command1_Click() Clipboard.Clear '清除剪貼板中的內(nèi)容' Clipboard.SetText Text1.SelText '將選中文本送入剪貼板End SubPrivate Sub Command2_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = "" '清空文本框內(nèi)被選中的文本'End SubPrivate Sub C

9、ommand3_Click() Text1.SelText = Clipboard.GetText '將剪貼板上的文本復(fù)制到指定文本框的光標(biāo)處'End SubPrivate Sub Command4_Click() Text1.SelText = "" '清空文本框內(nèi)被選中的文本'End SubPrivate Sub Form_Load() Text1.Text = ""End Sub7、新建一個工程，完成“替換”程序的設(shè)計。具體要求如下：(1) 窗體的標(biāo)題為“替換”。(2) 窗體中有以下控件：一個文本框可以多行編輯，兩個

10、文本框，兩個標(biāo)簽框，一個命令按鈕。(3) 完成以下功能：輸入查找內(nèi)容，把編輯框中所有與查找內(nèi)容一樣的部分替換成另外一個內(nèi)容。單擊“替換”按鈕執(zhí)行。Private Sub Command1_Click() Dim len1 As Integer, len2 As Integer, len3 As Integer len1 = Len(Text1)'計算文本框1的長度放入變量len1中 len2 = Len(Text2)'計算文本框2的長度放入變量len2中 len3 = Len(Text3) '計算文本框3的長度放入變量len3中 Do While i <= len

11、1 - len2 If Text2 = Mid(Text1, i + 1, len2) Then'判斷文本是否與查找的對象一致 Text1.SetFocus Text1.SelStart = i Text1.SelLength = len2 Text1.SelText = Text3 i = i + len3'替換后光標(biāo)的位置 len1 = len1 - len2 + len3 Else i = i + 1 End If LoopEnd Sub8、 新建一個工程，完成“字體修飾” 程序的設(shè)計。具體要求如下：（1） 按照下圖所示在窗體上放置按鈕和控件。窗體的標(biāo)題為“字體修飾”。（

12、2） 框架Frame1中有一個復(fù)選框數(shù)組，可以選擇粗體，斜體對標(biāo)簽中的文字進(jìn)行修飾。（3） 框架Frame2中有一個單選鈕框數(shù)組，可以選擇宋體或楷體對標(biāo)簽中的文字進(jìn)行修飾。（4） 標(biāo)簽Label1的文字內(nèi)容為“Visual Basic程序設(shè)計“，宋體，常規(guī)，三號；文字對齊方式為居中。Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 If Check1(0).Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If Cas

13、e 1 If Check1(1).Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End SelectEnd SubPrivate Sub Option1_Click(Index As Integer) Select Case Index Case 0 Label1.FontName = "宋體" Case 1 Label1.FontName = "楷體_gb2312" End SelectEnd Sub9、 新建一個工程，完成“點餐”程序的設(shè)計。

14、具體要求如下：（1） 窗體的標(biāo)題為“點餐”。（2） 窗體中有以下控件：一個框架控件作為容器，內(nèi)有三個復(fù)選框數(shù)組、對應(yīng)三個文本框數(shù)組、三個標(biāo)簽框、一個命令按鈕。（3） 要求文本框只能接受數(shù)字鍵，并且只有選取了相應(yīng)的套餐后才可以進(jìn)行輸入；如果沒有選取大套餐，那么文本框不能編輯，并清空。（4） 完成以下功能：選擇所需套餐種類及份數(shù)，單擊確定按鈕后計算所需的錢，并用消息框顯示。Private Sub Form_Load()Form1.Caption = "點餐"Command1.Caption = "確定"Frame1.Caption = "菜單&qu

15、ot;Check1(0).Caption = "兒童套餐館18元"Check1(1).Caption = "標(biāo)準(zhǔn)套餐23元"Check1(2).Caption = "商務(wù)餐28元"For i = 0 To 2 Label1(i).Caption = "份數(shù)" Check1(i).Value = 0 Text1(i).Enabled = FalseNextEnd SubPrivate Sub Check1_Click(Index As Integer) If Check1(Index).Value = 1 Then

16、'若當(dāng)前復(fù)選框被選中,文本框被啟用,同時獲得焦點 Text1(Index).Enabled = True Text1(Index).SetFocus Else Text1(Index).Text=""Text1(Index).Enabled=False End IfEnd SubPrivate Sub Command1_Click() Dim a%, b%, c%, sum% a = Val(Text1(0).Text) b = Val(Text1(1).Text) c = Val(Text1(2).Text) sum = a * 18 + b * 23 + c *

17、 28 MsgBox "一共" & sum & "元", , "總價"End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then '輸入非數(shù)字時彈出對話框,同時文本框重新獲得焦點 KeyAscii = 0 MsgBox "請輸入數(shù)字" Text1(Index).SetFocus End IfEnd Sub10、 某公司

18、對員工的工資進(jìn)行調(diào)整：若原有工資大于等于1000元，增加工資35%；若小于1000元大于等于800元，則增加工資25%；若小于800元，則增加工資15%。請根據(jù)用戶輸入的原有工資，計算出增加后的工資。Private Sub Command1_Click()Text1.SetFocusText1.Text = ""Text2.Text = ""Option1.Value = FalseOption2.Value = FalseOption3.Value = FalseEnd SubPrivate Sub Command2_Click()EndEnd Sub

19、Private Sub Option1_Click() If Val(Text1.Text) >= 1000 Then Text2.Text = Val(Text1.Text) * 1.35 End IfEnd SubPrivate Sub Option2_Click() If Val(Text1.Text) >= 800 And Val(Text1.Text) < 1000 Then Text2.Text = Val(Text1.Text) * 1.25 End IfEnd SubPrivate Sub Option3_Click() If Val(Text1.Text)

20、< 800 And Val(Text1.Text) > 0 Then Text2.Text = Val(Text1.Text) * 1.15 End IfEnd Sub11、 設(shè)計一個“家電提貨單”管理程序，程序運行界面如下圖所示。具體要求如下：（1）單擊“確定”后，根據(jù)選擇的內(nèi)容將清單及總價在列表框中列出。（2）每選擇一種家電，光標(biāo)自動定位在相應(yīng)的文本框中，取消選擇時，相應(yīng)的文本框自動清空。（3）“清除”按鈕用于清空列表框中的項目。（4）所有文本框只接受數(shù)字。Private Sub Check1_Click(Index As Integer) Text1(Index) = &qu

21、ot;" If Check1(Index).Value = 1 Then Text1(Index).SetFocus End IfEnd SubPrivate Sub Command1_Click() Dim i As Integer Dim sum As Long, n% Dim title As String, price As Integer sum = 0 For i = 0 To 4 Select Case i Case 0 title = "電視機(jī)" price = 3580 Case 1 title = "微波爐" price =

22、 660 Case 2 title = "電冰箱" price = 1850 Case 3 title = "DVD" price = 2880 Case 4 title = "分體空調(diào)" price = 5500 End Select If Check1(i).Value = 1 And Text1(i).Text <> "" Then List1.AddItem title & Text1(i).Text & "臺" sum = sum + Val(Text1(i

23、) * price n = n + Val(Text1(i) End If Next i If sum <> 0 Then List1.AddItem "共: " & n & "臺 " & "合計金額:" & sum & "元" End IfEnd SubPrivate Sub Command2_Click() List1.ClearEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As In

24、teger) If KeyAscii < 48 Or KeyAscii > 57 Then '輸入非數(shù)字時彈出對話框,同時文本框重新獲得焦點 KeyAscii = 0 MsgBox "請輸入數(shù)字" Text1(Index).SetFocus End IfEnd Sub12、 設(shè)計一個“個人資料”輸入窗口，程序運行界面如下圖所示。具體要求如下：（1）按照運行界面設(shè)計窗體，其中“民族”用組合列表框顯示。（2）單擊“確定”按鈕，將個人資料信息輸出在“個人資料”框架的標(biāo)簽框中。Private Sub Form_Load()'初始化民族組合框 Combo1

25、.AddItem "回族" Combo1.AddItem "漢族" Combo1.Text = "漢族"'組合框的默認(rèn)值為漢族End SubPrivate Sub Command1_Click() Dim Sex As String, Hobby As String If Option1.Value Then '判斷性別 Sex = Option1.Caption Else Sex = Option2.Caption End If '判斷愛好 If Check1.Value = 1 Then Hobby = H

26、obby & " " & Check1.Caption' Hobby為變量名，存放愛好 If Check2.Value = 1 Then Hobby = Hobby & " " & Check2.Caption If Check3.Value = 1 Then Hobby = Hobby & " " & Check3.Caption If Check4.Value = 1 Then Hobby = Hobby & " " & Check4.Ca

27、ption '顯示Label4.Caption = Txtname.Text & " " & Sex & " " & Txtage & " " & Combo1.Text & " 愛好： " & Hobby' Txtname表示姓名文本框的名稱，Txtage表示年齡文本框的名稱End SubPrivate Sub Command2_Click() EndEnd Sub13、 新建一個工程，完成應(yīng)用程序的設(shè)計。具體要求如下：（1） 按照下

28、圖所示在窗體上放置按鈕和控件。品牌用組合框顯示。（2） 窗體上有兩個CheckBox，當(dāng)這兩個選項未被選定時，它們所在框架的其他控件不能使用。（3） 如果單擊“確定”按鈕，則在按鈕下面的標(biāo)簽框中顯示用戶所選擇的信息。Private Sub Form_Load() Label3.BorderStyle = 1 Frame1.Caption = "" Frame2.Caption = "" Check1.Value = 0 Check2.Value = 0 Text1.Text = ""End SubPrivate Sub Check1_

29、Click() If Check1.Value = 1 ThenText1.Enabled = TrueCombo1. Enabled = True Else Combo1.Enabled = False Text1.Enabled = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Option1.Enabled = True Option2.Enabled = True Else Option1.Enabled = False Option2.Enabled = False End IfEnd S

30、ubPrivate Sub Command1_Click() Label3.Caption = "" If Check1.Value = 1 Then Label3.Caption = Label3.Caption + "計算機(jī):" + Chr(13) + Chr(10) Label3.Caption = Label3.Caption + Combo1.Text + Text1 + "臺" + Chr(13) + Chr(10) End If If Check2.Value = 1 Then Label3.Caption = Labe

31、l3.Caption + "操作系統(tǒng)" + Chr(13) + Chr(10) If Option1.Value = True Then Label3.Caption = Label3.Caption + Option1.Caption Else Label3.Caption = Label3.Caption + Option2.Caption End If End IfEnd Sub14、（1） 參照運行時界面完成界面設(shè)計。（2）單擊“添加單詞”按鈕，將Text1中的單詞添加到列表框，并使Text1獲得焦點，可直接輸入另一個單詞。（3）單擊“刪除單詞”按鈕，刪除列表框中被

32、選中的列表項。（4）單擊“全部刪除”按鈕，刪除列表框中的全部表項。（5）單擊“退出”按鈕，結(jié)束該程序。Private Sub Command1_Click() If Text1.Text<>"" Then List1.AddItem Text1.Text Text1.Text="" Text1.SetFocus End IfEnd SubPrivate Sub Command2_Click() If list1.listindex<>-1 then List1.removeitem list1.listindex End ifEn

33、d SubPrivate Sub Command3_Click() List1.ClearEnd SubPrivate Sub Command4_Click() EndEnd Sub15、（1）參照運行時界面完成界面設(shè)計。（2）列表框內(nèi)容中有四項，分別為“Word、Excel、PowerPoint、Outlook”。（3）單擊“添加”按鈕（Command1），將文本框中的內(nèi)容回到列表框中的第一項，如果文本框中沒有內(nèi)容，則給出提示“沒有內(nèi)容，不予添加”。（4）單擊“刪除”按鈕（Command2），將選中表項刪除，如果沒有選擇要刪除的表項，則給出提示“請選擇輸出的項目”。Private Sub F

34、orm_Load() List1.AddItem "word" List1.AddItem "excel" List1.AddItem "frontpage" List1.AddItem "outlook"Form1.Caption = "添加和刪除"Form1.BorderStyle = 1 '固定邊框Command1.Caption = "添加"Command2.Caption = "刪除" Text1.Text = ""E

35、nd SubPrivate Sub Command1_Click() If Text1.Text = "" Then MsgBox ("沒有內(nèi)容,不予添加") Else List1.AddItem Text1.Text, 0 '添加到第一項 Text1.Text = "" Text1.SetFocus End IfEnd SubPrivate Sub Command2_Click() If List1.ListIndex = -1 Then '如果沒有選中任何一項,則該屬性值為-1 MsgBox ("請選擇輸

36、出的項目") Else List1.RemoveItem List1.ListIndex End IfEnd Sub16、（1）參照運行時界面完成界面設(shè)計。（2）窗體的上邊有一個文本框Text1，文字內(nèi)容為“心想事成”，F(xiàn)ont：宋體、常規(guī)、三號。（3）左邊簡單組合框Combo1，有三項內(nèi)容，分別是“左對齊、居中、右對齊”，單擊時對文本框的對齊方式進(jìn)行設(shè)置。（3）右邊簡單組合框Combo2，有四項內(nèi)容，分別是“常規(guī)、斜體、粗體、粗斜體”，單擊時對文本框的字型進(jìn)行設(shè)置。Private Sub Combo1_Click() Select Case Combo1.Text Case &qu

37、ot;左對齊" Text1.Alignment = 0 Case "居中" Text1.Alignment = 2 Case "右對齊" Text1.Alignment = 1 End SelectEnd SubPrivate Sub Combo2_Click()Select Case Combo2.ListIndex Case 0 Text1.FontBold = False Text1.FontItalic = False Case 1 Text1.FontItalic = True Case 2 Text1.FontBold = True

38、 Case 3 Text1.FontBold = True Text1.FontItalic = TrueEnd SelectEnd Sub17、（1）參照運行時界面完成界面設(shè)計。（2）能完成以下功能：單擊“產(chǎn)生”按鈕，實現(xiàn)隨機(jī)產(chǎn)生10個兩位正整數(shù)，在左邊列表框內(nèi)顯示；單擊“>”按鈕，把左邊列表框中的偶數(shù)全部移到右邊列表框中。Private Sub Form_Load() List1.Clear List2.ClearEnd SubPrivate Sub Command1_Click() '產(chǎn)生 Dim i As Integer Randomize List1.Clear Lis

39、t2.Clear For i = 1 To 10 List1.AddItem (Int(Rnd * 90) + 10) Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer i = 0 Do Until i >= List1.ListCount If Val(List1.List(i) Mod 2 = 0 Then List2.AddItem List1.List(i) List1.RemoveItem i Else i = i + 1 End If LoopEnd Sub18、 設(shè)計一個程序在兩個列表框之間進(jìn)行操作。(1)

40、>>>：移動選擇的表項至右邊列表框（允許選多個）(2)<：移動表項至左邊列表框(3)全選：將所有表項添加至右邊列表框( 全部右移)(4)還原：將所有表項添加至左邊列表框( 全部左移)Private Sub Form_Load() List1.AddItem "藍(lán)球" List1.AddItem "足球" List1.AddItem "排球" List1.AddItem "羽毛球" List1.AddItem "乒乓球" List1.AddItem "跑步&quo

41、t; List1.AddItem "登山" List1.AddItem "網(wǎng)球" List1.Multiselect=1 '實現(xiàn)多選End SubPrivate Sub Command1_Click() '>>>Dim i As Integeri = 0Do While i <= List1.ListCount - 1 If List1.Selected(i) = True Then List2.AddItem List1.List(i) List1.RemoveItem i Else i = i + 1 End

42、IfLoopEnd SubPrivate Sub Command2_Click() '<If List2.ListIndex <> -1 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndexElse MsgBox "請先選擇右邊列表框中的某項，再移至左邊"End IfEnd SubPrivate Sub Command3_Click() '全選Do While List1.ListCount <> 0 '判斷是否還有表項 List2.AddItem

43、List1.List(0) '每次移動最前面的表項 List1.RemoveItem 0 '刪除最前面的表項LoopEnd SubPrivate Sub Command4_Click() '還原Do While List2.ListCount <> 0 List1.AddItem List2.List(0) List2.RemoveItem 0LoopEnd Sub19、（1）參照運行時界面完成界面設(shè)計。（2）在兩個列表框控件的list中輸入一些內(nèi)容。（3）當(dāng)單擊“<”按鈕時，把list2中選中的一項放到list1中，并且在list2中刪除該項。（4）

44、當(dāng)單擊“<<”按鈕時，把list2中所有的項放到list1中，并且清空list2。（5）當(dāng)單擊“結(jié)束”按鈕時，退出應(yīng)用程序。Private Sub Command1_Click() '> If List1.ListIndex <> -1 Then List2.AddItem List1.Text'或者：List2.AddItem List1.List(List1.ListIndex) List1.removeitem (List1.ListIndex Else MsgBox "先選擇，再移動" End IfEnd SubPriv

45、ate Sub Command2_Click() '>> For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next i List1.ClearEnd SubPrivate Sub Command3_Click() '<< Do While List2.ListCount <> 0 List1.AddItem List2.List(0) List2.RemoveItem 0 LoopEnd SubPrivate Sub Command4_Click() '<

46、 If List2.ListIndex <> -1 Then List1.AddItem List2.List(List2.ListIndex) Else MsgBox "先選擇，再移動" End IfEnd SubPrivate Sub Command5_Click() '結(jié)束 EndEnd Sub20、（1）參照運行時界面完成界面設(shè)計。（2）左邊一個簡單組合框，對文本框的字體進(jìn)行設(shè)置；有三項內(nèi)容，分別是“宋體、黑體、楷體_GB2312”。（3）右邊一個簡單組合框，對文本框的文字大小進(jìn)行設(shè)置；大小范圍為820。Private Sub Form_Load

47、()Text1.Text = "心想事成"Combo1.Additem "宋體"Combo1.Additem "黑體"Combo1.Additem "楷體_Gb2312"Combo1.Text = "宋體"For i=8 to 20 Combo2.Additem iNext Combo2.Text = "9"End SubPrivate Sub Combo1_Click() Text1.FontName = Combo1.TextEnd SubPrivate Sub Comb

48、o2_Click() Text1.FontSize = Val(Combo2.Text)End Sub21、 設(shè)計一個暢銷書排行榜程序，運行界面如下圖所示。具體要求如下：（1）在左邊列表框中顯示排名前5名的暢銷書； （2）輸入新書名和名次，單擊“入榜”，添加到左邊列表框中相應(yīng)位置；（3）單擊“下榜”，將選擇的書從排行榜中刪除，如未選擇，則顯示“請先選擇！”；（4）單擊“清除”，可以刪除文本框中的輸入內(nèi)容，文本框2只允許輸入數(shù)字15；（5）單擊“結(jié)束”，退出程序運行。Private Sub Form_Load() list1.AddItem "西游記" list1.AddIt

49、em "紅樓夢" list1.AddItem "史記" list1.AddItem "水滸" list1.AddItem "鏡花緣"End SubPrivate Sub Command1_Click() '上榜 Dim book As String, index As Integer book = Text1.Text index = Val(Text2.Text) - 1 If book <> "" And index >= 0 And index <= lis

50、t1.ListCount - 1 Then '判斷是否已輸入書名和有效的排名 list1.AddItem book, index End If list1.RemoveItem list1.ListCount - 1End SubPrivate Sub Command2_Click() '下榜 Dim index As Integer index = list1.ListIndex If index <> -1 Then list1.RemoveItem index End IfEnd SubPrivate Sub Command3_Click()'清除 T

51、ext1.Text= "": Text2.Text=""End SubPrivate Sub Command4_Click()'結(jié)束 EndEnd Sub22、 （1）參照運行時界面完成界面設(shè)計。（2）單擊滾動條左右箭頭時，標(biāo)簽上的字可以左右移動，標(biāo)簽移動范圍等于滾動條的范圍。Private Sub Form_Load() HScroll1.Max = Form1.Width - Label1.Width'標(biāo)簽移動到最右邊的Left值即為滾動條的最大值 HScroll1.Value = Label1.Left'標(biāo)簽移動到最左邊的L

52、eft值即為滾動條的最小值End SubPrivate Sub HScroll1_Change() Label1.Left = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Call HScroll1_ChangeEnd SubPrivate Sub Command1_Click() '結(jié)束 EndEnd Sub23、（1）參照運行時界面完成界面設(shè)計。（2）滾動條的取值范圍均為10-40。（3）完成以下功能：根據(jù)設(shè)定字號改變標(biāo)簽框內(nèi)顯示文字的大小。要求水平滾動條與文本框相關(guān)聯(lián)。Private Sub Form_Load() HSc

53、roll1.Max = 40 HScroll1.Min = 10 Label1.FontSize = HScroll1.Value Form1.Caption = "改變字號"End SubPrivate Sub HScroll1_Change() Text1.Text = HScroll1.Value Label1.FontSize = HScroll1.ValueEnd SubPrivate Sub HScroll1_Scroll() Call HScroll1_ChangeEnd SubPrivate Sub Text1_Change() Dim i As Integ

54、er i = Val(Text1.Text) If i >= 10 And i <= 40 Then Label1.FontSize = i HScroll1.Value = i End IfEnd Sub24、（1）參照運行時界面完成界面設(shè)計。（2）在屬性窗口中將標(biāo)簽（Label1）的標(biāo)題設(shè)為“祝您考試成功”，字體設(shè)置為“宋體”、字形為“粗體”、大小為“二號”、文字顏色為“紅色”，格式設(shè)置為在窗體中水平居中對齊。（3）單擊“開始”按鈕（Command1），標(biāo)簽文字在定時器控制下自動交替以紅蘭兩種顏色顯示。同時“開始”按鈕變?yōu)椤巴Ｖ埂卑粹o。（4）單擊“停止”按鈕，標(biāo)簽文字停止閃爍，

55、同時“停止”按鈕變?yōu)椤伴_始”按鈕。（5）定時器（Timer1）的時間間隔為0.3秒。Private Sub Form_Load() Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 Command1.Caption = "開始" Timer1.Enabled = False Label1.ForeColor = vbRedEnd SubPrivate Sub Command1_Click() If Command1.Caption = "開始" Then Command1.Caption = "停止" Timer1.Enabled