VB上機實驗題

1、(截止目前所有上機實驗及代碼。不用畫窗體界面，只寫題目和代碼。填寫實驗報告也是復(fù)習(xí)的過程，請務(wù)必認真！)實驗一：第二章 在名稱為Form1的窗體上畫一個標(biāo)簽，其名稱為Label1，標(biāo)題為“等級考試”，BorderStyle屬性值為1，可以根據(jù)標(biāo)題自動調(diào)整大??；然后再畫一個命令按鈕，其名稱和標(biāo)題均為Command1，編寫適當(dāng)?shù)氖录^程。程序運行后，界面如圖所示，此時如果單擊命令按鈕，則標(biāo)簽消失，同時用標(biāo)簽的標(biāo)題作為命令按鈕的標(biāo)題。Private sub command1_click()Label1.visible=falseCommand1.caption=label1.captionEnd s

2、ub 在名稱為Form1的窗體上畫一個標(biāo)簽，其名稱為Label1，標(biāo)題為“輸入信息”、一個文本框，名稱為Text1，Text屬性為空白、一個命令按鈕，名稱為Command1，標(biāo)題為“顯示”。然后編寫命令按鈕的Click事件過程。程序運行后，在文本框輸入“計算機等級考試”，然后單擊命令按鈕，則標(biāo)簽和文本框消失，并在窗體上顯示文本框的內(nèi)容。要求程序中不得使用任何變量。上機代碼：Private sub command1_click()Label1.visible=falseText1.visible=falsePrint text1.textEnd sub 在名稱為Form1的窗體上畫兩個文本框，名

3、稱分別為Text1和Text2，再畫兩個命令按鈕，名稱分別為Command1和Command2，標(biāo)題分別為“復(fù)制”和“刪除”。程序運行時，在Text1中輸入一串字符，并用鼠標(biāo)拖曳的方法選擇幾個字符，然后分別單擊“復(fù)制”按鈕，則被選中的字符被復(fù)制到Text2中；若單擊“刪除”按鈕，則被選中的字符從Text1中被刪除。請編寫兩個命令按鈕的Click過程完成上述功能。Private sub command1_click()Text2=text1.seltextEnd subPrivate sub command2_click()Text1.seltext=”End sub4 在名稱為Form1的窗體

4、上畫一個文本框，名稱為Text1，Text屬性值為“VB可視化程序設(shè)計”，采用宋體四號字；再畫三個命令按鈕，名稱分別為Command1、Command2和Command3，標(biāo)題分別為“黑體”、“隸書”和“楷體_GB2312”。程序運行時，單擊不同的命令按鈕，則文本框的字體變?yōu)橄鄳?yīng)的字體。請編寫三個命令按鈕的Click過程完成上述功能。Private sub command1_click()Text1.fontname=command1.captionEnd subPrivate sub command2_click()Text1.fontname=command2.captionEnd sub

5、Private sub command3_click()Text1.fontname=command3.captionEnd sub5 在名稱為Form1的窗體上畫一個文本框，名稱為T1，Text屬性值為空。要求在文本框里輸入“VB程序設(shè)計”，并按下回車鍵以后，窗體的標(biāo)題欄顯示文本框的內(nèi)容。Private sub text1_keypress(keyascii as integer)If keyascii=13 thenCaption=text1End ifEnd sub實驗二：第三章1 在名稱為Form1的窗體上畫兩個文本框，名稱分別為T1和T2，Text屬性值均為空。程序運行時，在T1輸入

6、“abcdefg”，立即在T2里顯示“ABCDEFG”。程序中不得使用任何變量?！咎崾尽亢瘮?shù)Ucase()將小寫字母轉(zhuǎn)換為大寫字母。Private sub T1_change()T2=ucase(T1)End sub 在名稱為Form1的窗體上畫兩個文本框，名稱分別為T1和T2，Text屬性值均為空；畫一個命令按鈕，名稱為C1，標(biāo)題為“確定”。程序運行時，在T1中輸入“abcdefg”，按下回車鍵或者“確定”按鈕以后，在T2里顯示“ABCDEFG”。程序中不得使用任何變量。Private sub T1_lostfocus( )T2=Ucase(T1)End sub或：private sub T

7、1_keypress(keyascii as integer)If keyascii=13 thenTt2=Ucase(T1)End sub 在名稱為Form1的窗體上畫一個標(biāo)簽，名稱為L1，標(biāo)題為“請輸入圓半徑”；一個文本框，名稱為T1，Text屬性值為空；一個命令按鈕，名稱為C1，標(biāo)題為“計算圓面積”。程序運行時，在文本框里輸入一個整數(shù)，按下“計算圓面積”命令按鈕后，在窗體上輸出相應(yīng)的圓面積。Private sub command1_click()Dim r as integerR=text1Print 3.14*r*rEnd sub 在名稱為Form1的窗體上畫一個文本框，名稱為T1，T

8、ext屬性值為空；一個標(biāo)簽，名稱為L1，標(biāo)題為“歡迎您和我們一起學(xué)習(xí)VB”，標(biāo)簽的大小能夠隨著標(biāo)題文字的多少自動調(diào)整。程序運行時，在文本框里輸入你的姓名，并按下回車鍵，則標(biāo)簽的標(biāo)題改為“歡迎××和我們一起學(xué)習(xí)VB”（××為你的姓名）。Private Sub T1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then L1.Caption = Mid(L1, 1, 2) & T1 & Mid(L1, 4) End IfEnd Sub實驗三：第三章2 在名稱為Form1的窗體上畫一個標(biāo)簽，名稱

9、為L1，標(biāo)題為“現(xiàn)在離北京奧運會開幕還有××天”，采用3號黑體字。程序運行時，該標(biāo)簽處于隱藏狀態(tài)；單擊窗體，該標(biāo)簽顯示倒計時；雙擊窗體，隱藏標(biāo)簽。提示：兩個日期型數(shù)據(jù)進行減法運算的結(jié)果是數(shù)值型，意義是兩個日期之間的天數(shù)。Date函數(shù)返回當(dāng)天的日期。Private Sub Form_Click() L1.Visible = True L1 = “現(xiàn)在離2009年國慶還有" & #2009/10/01# - Date & "天"End SubPrivate Sub Form_DblClick() L1.Visible = False

10、End Sub 在名稱為Form1的窗體上畫一個名稱為Label1的標(biāo)簽，其初始內(nèi)容為空，且能根據(jù)指定的標(biāo)題內(nèi)容自動調(diào)整標(biāo)簽的大小；再畫2個命令按鈕，標(biāo)題分別是“日期”和“時間”，名稱分別為Command1和Command2。請編寫2個命令按鈕的Click事件過程，標(biāo)簽內(nèi)顯示系統(tǒng)當(dāng)前日期；單擊“時間”按鈕時，標(biāo)簽內(nèi)顯示系統(tǒng)當(dāng)前時間。如圖所示。要求：程序中不得使用變量，每個事件過程中只能寫一條語句。注意：存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm 。Private Sub Command1_Click() Label1 = DateEnd

11、SubPrivate Sub Command2_Click() Label1 = TimeEnd Sub 在Form1的窗體上畫一個名稱為Text1，內(nèi)容為“程序設(shè)計”的文本框，顯示字體為三號字、居中；再畫二個命令按鈕，標(biāo)題分別是“粗體”和“斜體”，名稱分別為Command1和Command2，如圖所示。要求：編寫兩個命令按鈕的Click事件過程，使得單擊“粗體”按鈕時，文本框的內(nèi)容顯示為粗體格式；單擊“斜體”按鈕時，文本框的內(nèi)容顯示為斜體格式。注意：程序中不得使用變量，每個事件過程中只能寫一條語句。存盤時必須存放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm

12、60;。Private Sub Command1_Click() Text1.FontBold = TrueEnd SubPrivate Sub Command2_Click() Text1.FontItalic = TrueEnd Sub 在名稱為Form1的窗體上，畫兩個名稱為Label1、Label2，標(biāo)題分別為“開始位置”、“選中的字符數(shù)”的標(biāo)簽；畫三個文本框，名稱分別為Text1、Text2、Text3，再畫一個名稱為Command1，標(biāo)題為“顯示選中信息”的命令按鈕。程序運行時在Text1中輸入若干字符，并用鼠標(biāo)選中一些字符后，單擊“顯示選中信息”按鈕，則把選中的第一個字符的順序號

13、顯示在Text2中，選中的字符個數(shù)顯示在Text3中，如圖所示。要求：畫出所有控件，編寫命令按鈕的Click事件過程。注意：要求程序中不得使用任何變量，每個事件過程只能寫兩條語句，分別用于顯示第一個字符的順序號和顯示選中的字符個數(shù)。存盤時必須放在考生文件夾下，工程文件名為sjt2.vbp，窗體文件名為sjt2.frm。Private Sub Command1_Click() Text2 = Text1.SelStart + 1 Text3 = Text1.SelLengthEnd Sub實驗四：第四章1基礎(chǔ)練習(xí) 在名稱為Form1的窗體上畫兩個文本框，名稱分別為T1和T2，Text屬性值分別為

14、“學(xué)習(xí)”和“快樂”，字體分別為“華文彩云”和“方正舒體”，背景顏色分別為紅和綠，字體均為3號；畫一個命令按鈕，名稱為C1，標(biāo)題為“交換”。程序運行時，單擊“交換”按鈕，則交換兩個文本框的字體或背景顏色。Private Sub Command1_Click() Dim s As String s = Text1.FontName Text1.FontName = Text2.FontName Text2.FontName = sEnd Sub 設(shè)計一個名稱Form1的窗體，要求： 在文本框Text1里輸入攝氏溫度后，單擊命令按鈕Command1后，文本框Text2顯示相應(yīng)的華氏溫度，反之亦然；

15、初始啟動表單時，焦點位于Text1，命令按鈕Command1的標(biāo)題為“攝氏變?nèi)A氏”； 當(dāng)在Text1里輸入攝氏溫度并按下命令按鈕后，命令按鈕Command1的標(biāo)題變?yōu)椤叭A氏變攝氏”，焦點位于Text2?！咎崾尽繑z氏轉(zhuǎn)華氏：華氏=攝氏*9/5+32華氏轉(zhuǎn)攝氏：攝氏=（華氏-32）*5/9Private Sub Command1_Click()If Command1.Caption = "攝氏變?nèi)A氏" Then Text2 = Text1 * 9 / 5 + 32 Command1.Caption = "華氏變攝氏" Text2.SetFocusElse T

16、ext1 = (Text2 - 32) * 5 / 9 Command1.Caption = "攝氏變?nèi)A氏" Text1.SetFocusEnd IfEnd Sub 參考教材（p.67）例4.3，啟動窗體時輸出如下圖形；單擊窗體，清除圖形。【提示】設(shè)置窗體的ForeColor和BackColor屬性。Private Sub Form_Load() AutoRedraw = True Print : Print : Print : Print : Print Print Tab(17); "" Spc(6); "" Print Tab(

17、18); "" Spc(6); "" Print Tab(19); "" Spc(6); "" Print Tab(20); "" Spc(6); "" Print Tab(21); "" Spc(6); ""End Sub3-1在名稱為Form1的窗體上畫1個名稱為Label1標(biāo)簽，三號字，背景色為綠色；3個單選按鈕，名稱分別為Option1、Option2、Option3，標(biāo)題分別為“華文彩云”、“黑體”、“隸書”，當(dāng)按下不同按鈕時

18、，標(biāo)簽的文字用相應(yīng)的字體顯示。實驗五：第四章2綜合練習(xí) 在名稱為Form1的窗體上畫3個標(biāo)簽，名稱分別為Label1、Label2和Label3，標(biāo)題分別為“姓名”、“性別”和“歡迎您和我們一起學(xué)習(xí)VB”，并且Label3的大小能夠隨著標(biāo)題文字的多少自動調(diào)整；2個文本框，名稱分別為Text1和Text2，Text屬性值均為空；1個名稱為Command1的命令按鈕，標(biāo)題為“確定”。程序運行時，在Text1里輸入姓名，在Text2里輸入性別，按下“確定”按鈕后，Label3的標(biāo)題改為“××先生或女士，歡迎您和我們一起學(xué)習(xí)VB”（××為姓名，如果是男性，輸出先

19、生；否則輸出女士）。Private Sub Command1_Click() Dim temp As String If Text2 = "男" Then temp = "先生" Else temp = "女士" End If Label3 = Text1 & temp & ",歡迎您和我們一起學(xué)習(xí)VB"End Sub 在名稱為Form1的窗體上畫1個標(biāo)簽，名稱為Label1，初始為空白，能夠自動調(diào)整大?。?個命令按鈕，名稱分別為Command1和Command2，標(biāo)題分別為“輸入3個數(shù)”和“求最大

20、的數(shù)”。程序運行時，單擊Command1按鈕，依次彈出3個InputBox，要求用戶輸入任意3個整數(shù)；單擊Command2按鈕，求出3個數(shù)中最大的數(shù)，并在Label1里輸出結(jié)果。Private Sub Command1_Click() a = InputBox("請輸入數(shù)a", "輸入數(shù)a", 0) b = InputBox("請輸入數(shù)b", "輸入數(shù)b", 0) c = InputBox("請輸入數(shù)c", "輸入數(shù)c", 0)End SubPrivate Sub Comma

21、nd2_Click() Dim max As Integer If a > b And a > c Then max = a ElseIf b > a And b > c Then max = b Else max = c End If Label1.Caption = a & "、" & b & "、" & c & "中最大的數(shù)是：" & maxEnd Sub 在名稱為Form1的窗體上畫2個標(biāo)簽，名稱分別為Label1和Label2，標(biāo)題分別為“姓名”和“歡迎

22、您和我們一起學(xué)習(xí)VB”，并且Label3的大小能夠隨著標(biāo)題文字的多少自動調(diào)整；1個文本框，名稱為Text1，Text屬性值為空；1個框架，包含2個單選按鈕；1個名稱為Command1的命令按鈕，標(biāo)題為“確定”。程序運行時，在Text1里輸入姓名，在框架里選擇性別，按下“確定”按鈕后，Label2的標(biāo)題改為“××先生或女士，歡迎您和我們一起學(xué)習(xí)VB”（××為姓名，如果選擇男性，輸出先生；否則輸出女士）。Private Sub Command1_Click() Dim temp As String If Option1 Then temp = "女

23、士" Else temp = "先生" End If Label2 = Text1 & temp & ",歡迎您和我們一起學(xué)VB"End Sub 在名稱為Form1的窗體上畫2個標(biāo)簽，名稱分別為Label1和Label2，標(biāo)題分別為“請輸入一個字母”和空白，并且Label2的大小能夠隨著標(biāo)題文字的多少自動調(diào)整；1個文本框，名稱為Text1，Text屬性值為空。程序運行時，在文本框里輸入字母并按下回車鍵，判斷該字母是元音字母還是輔音字母，在Label2里顯示結(jié)果。要求用Select Case結(jié)構(gòu)完成。Private Sub Tex

24、t1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then c = Text1 Select Case c Case "a", "e", "i", "o", "u" Label2 = c & "是元音" Case "A", "E", "I", "O", "U" Label2 = c & "是元音&quo

25、t; Case Else Label2 = c & "不是元音" End Select End IfEnd Sub 在名稱為Form1的窗體上畫1個標(biāo)簽，名稱為Label1，標(biāo)題為空白，標(biāo)簽的大小能夠隨著標(biāo)題文字的多少自動調(diào)整；2個框架，各包含2個單選按鈕，標(biāo)題分別為“男”、“女”、“教師”、“學(xué)生”；1個名稱為Command1的命令按鈕，標(biāo)題為“確認”。程序運行時，在單選按鈕里選擇性別和身份，按下“確認”按鈕后，Label1的標(biāo)題顯示“您是一個女（或男）教師（或?qū)W生）”。Private sub command1_click()If option1 and opti

26、on3 thenLabel1.caption=”您是一位” & option1.caption & option3.captionElseif option1 and option4 thenLabel1.caption=”您是一位” & option1.caption & option4.captionElseif option2 and option3 thenLabel1.caption=”您是一位” & option2.caption & option3.captionElseLabel1.caption=”您是一位” & opt

27、ion2.caption & option4.captionEnd ifEnd sub 在名稱為Form1的窗體上畫1個標(biāo)簽，名稱為Label1，標(biāo)題為“大家都來學(xué)VB”，小二號“方正舒體”；1個名稱為Frame1的框架，標(biāo)題為“請選擇文字顏色”，內(nèi)含3個單選按鈕，名稱分別為Option1、Option2、Option3，標(biāo)題為空，背景色分別為綠、黃、紅；1個名稱為Frame2的框架，標(biāo)題為“請選擇文字效果”，內(nèi)含3個復(fù)選框，標(biāo)題分別為“粗體”、“斜體”、“下劃線”。當(dāng)按下不同按鈕時，標(biāo)簽的文字用相應(yīng)的顏色和效果顯示。Private Sub Check1_Click() If Chec

28、k1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 Then Label1.FontUnderline = TrueElse Label1.FontUn

29、derline = FalseEnd IfEnd SubPrivate Sub Option1_Click() Label1.ForeColor = Option1.BackColorEnd SubPrivate Sub Option2_Click() Label1.ForeColor = Option2.BackColorEnd SubPrivate Sub Option3_Click() Label1.ForeColor = Option3.BackColorEnd Sub:實驗6：第四章3基礎(chǔ)練習(xí) 在Form1的窗體上畫一個名稱為Text1的文本框，初始內(nèi)容為空；然后再畫三個單選按鈕，其

30、名稱分別為Op1、Op2和Op3，標(biāo)題分別為北京、西安和杭州。編寫適當(dāng)?shù)氖录^程。程序運行后，選擇Op1，在文本框顯示“頤和園”；選擇Op2，文本框顯示“兵馬俑”；選擇Op3，文本框顯示“西湖。Private Sub Option1_Click() Text1 = "頤和園"End SubPrivate Sub Option2_Click() Text1 = "兵馬俑"End SubPrivate Sub Option3_Click() Text1 = "西湖"End Sub 在名稱為Form1的窗體上畫1個標(biāo)簽，標(biāo)題為空，可以自動調(diào)

31、節(jié)大小；再畫1個命令按鈕，標(biāo)題為“輸入/顯示”。程序運行時，單擊命令按鈕，顯示輸入對話框，在對話框里輸入某個月份后，在標(biāo)簽里顯示該月份所在季節(jié)：3-5：春季6-8：夏季9-11：秋季12-2：冬季Private Sub Command1_Click() Dim n As Integer n = InputBox("請輸入月份") Select Case n Case 3, 4, 5 Label1 = n & "月是春季" Case 6, 7, 8 Label1 = n & "月是夏季" Case 9, 10, 11 L

32、abel1 = n & "月是秋季" Case Else Label1 = n & "月是冬季" End SelectEnd Sub 在窗體上畫一個名稱為Label1的標(biāo)簽，標(biāo)題為“神奇的循環(huán)”，方正舒體小五號字，紅色，隨字體變化自動調(diào)整大?。淮绑w的標(biāo)題欄顯示您的專業(yè)和姓名。程序運行時，單擊窗體，自動逐步放大字體。圖為放大后的界面。Private Sub Form_Click()Dim i As IntegerFor i = 1 To 28 Label1.Font.Size = Label1.Font.Size + 1Next iEnd

33、Sub 在窗體上畫2個標(biāo)簽，標(biāo)題分別為“輸入字符串”和空白；1個文本框，初始內(nèi)容為空；1個命令按鈕，標(biāo)題為“反向輸出”。程序運行時，在文本框輸入任意字符串后單擊命令按鈕，在Label2反向顯示該字符串。Private Sub Command1_Click() Dim s As String, i As Integer For i = Len(Text1) To 1 Step -1 s = s & Mid(Text1, i, 1) Next i Label2 = sEnd Sub實驗七：第四章4綜合練習(xí) 統(tǒng)計一串字符中元音字母和輔音字母的個數(shù)。Private Sub Text1_KeyP

34、ress(KeyAscii As Integer) Dim n1, n2 As Integer If KeyAscii = 13 Then L= Len(Text1) For i = 1 To L c = Mid(Text1, i, 1) Select Case c Case "a", "e", "i", "o", "u" n1 = n1 + 1 Case "A", "E", "I", "O", "U&qu

35、ot; n1 = n1 + 1 Case Else n2 = n2 + 1 End Select Next i Label2 = "元音字母有" & n1 & "個" Label3 = "輔音字母有" & n2 & "個" End IfEnd Sub 編程，用QBColor函數(shù)顯示16種不同的顏色的文字。Private Sub Form_Click() For i = 0 To 15 ForeColor = QBColor( i ) Print "顏色代碼：" &

36、amp; i Next iEnd Sub 有如圖所示的窗體。程序執(zhí)行時先在Text1文本框中輸入編號，當(dāng)焦點試圖離開Text1時，程序檢查編號的合法性，若編號合法，則焦點可以離開Text1文本框；否則，顯示相應(yīng)錯誤信息，并自動選中錯誤的字符，且焦點不能離開Text1文本框（見圖）。合法編號的組成是：前2個字符是大寫英文字母，第3個字符是“-”，后面是數(shù)字字符（至少1個）。下面程序可實現(xiàn)此功能，請?zhí)羁?。Private Sub Text1_LostFocus() n = Len(Text1) For i = 1 To IIf(n > 3, n, 4) c = Mid(Text1, i, 1)

37、 Select Case【i】 Case 1, 2 If c < "A" Or c > "Z" Then MsgBox ("第" & i & "個字符必須是大寫字母！") Text1.SelStart =【i-1】 Text1.SelLength = 1 Text1.【SetFocus 】 Exit For End If Case 3 If c <> "-" Then MsgBox ("第" & i & "個字

38、符必須是字符" & "'-'") Text1.SelStart = 【i-1】 Text1.SelLength = 1 Text1.【setfocus】 Exit For End If Case Else If c < "0" Or c > "9" Then MsgBox ("第" & i & "個字符必須是數(shù)字！") Text1.SelStart =【i-1】 Text1.SelLength = 1 Text1.【setfocus】

39、 Exit For End If End Select Next iEnd Sub實驗八：第五章1:列表框和組合框 在Form1的窗體上畫一個列表框，名稱為L1，通過屬性窗口向列表框中添加四個項目，分別為“AAAA”、“BBBB”、“CCCC”和“DDDD”，編寫適當(dāng)?shù)氖录^程。程序運行后，如果單擊列表框中的某一項，則該項就從列表框中消失。Private sub list1_click()List1.removeitem list1.listindexEnd sub 窗體上畫2個命令按鈕，標(biāo)題分別為“添加項目”和“刪除項目”，再畫一個列表框和一個文本框。程序運行后，單擊“添加項目”按鈕，則從鍵

40、盤輸入要添加到列表框中的項目內(nèi)容；單擊“刪除項目”按鈕，則從鍵盤輸入要刪除的項目內(nèi)容。下面提供的代碼不完整，請補充完整。Private Sub Command1_Click() Text1.Text = InputBox("請輸入要添加的項目") List1.AddItem text1End SubPrivate Sub Command2_Click() Text1.Text = InputBox("請輸入要刪除的項目")'For i = 0 To list1.listcount -1 'If List1.List(i) = text1

41、Then 'List1.RemoveItem i End If Next iEnd Sub 在名稱為Form1的窗體上畫一個名稱為Label1、標(biāo)題為“添加項目：”的標(biāo)簽；畫一個名稱為Text1的文本框，沒有初始內(nèi)容；畫一個名稱為Combo1的下拉式組合框，并通過屬性窗口輸入若干項目（不少于3個，內(nèi)容任意）；再畫兩個命令按鈕，名稱分別為Command1和Command2，標(biāo)題分別為“添加”、“統(tǒng)計”。在運行時，向Text1中輸入字符，單擊“添加”按鈕后，則Text1中的內(nèi)容作為一個列表項被添加到組合框的列表中；單擊“統(tǒng)計”按鈕，則在窗體上顯示組合框中列表項的個數(shù)，請編寫兩個命令按鈕的Click事件過程。程序中不得使用變量，也不能使用循環(huán)。Private sub command1_click()Combo1.additem text1Text1=”Text1.setfoc