vb實用案例例.doc

1、實驗報告11實驗報告2：實驗題目 1：設(shè)計窗體。參考界面如下：運行前運行后要求：1） 在窗體上添加一個標簽，通過屬性窗囗設(shè)置標簽格式：Caption：字體格式Alignment： 2 Center（居中）BorderStyle： 1 Fixed Single（有邊框）Backstyle： 0 Tansparent（背景透明）2）運行時，單擊“字號”，將標簽內(nèi)容的字號設(shè)置為30；單擊“加粗”，將標簽內(nèi)容加粗；單擊“下劃線”，則在標簽內(nèi)容下加下劃線。提示：字號FontSize 、加粗 FontBold 、下劃線FontUnderline實驗題目 1 源程序代碼：Private Sub Comman

2、d1_Click()= 30 End SubPrivate Sub Command2_Click()= true= True End Sub實驗題目 2： 設(shè)計一個計算器。參考界面如下：要求：1）實現(xiàn)算術(shù)運算（+、 - 、 * 、 / ）的功能；2）實現(xiàn)清除和結(jié)束的功能；3）實現(xiàn)清除后，將焦點移到第一個文本框中。實驗題目 2 源程序代碼：Private Sub Command1_Click()= Val + Val End SubPrivate Sub Command2_Click()= Val - Val= Val * Val End SubPrivate Sub Command4_Clic

3、k()= Val / ValEnd Sub實驗題目 3：設(shè)計一個能夠統(tǒng)計某學(xué)生三門課程成績總分和平均分的程序。參考界面如下：要求：沒有計算出總分前，計算均分的命令按鈕不可用，計算出總分后，計算均分的命令按鈕才可用。說明：設(shè)計時先將計算均分的命令按鈕的Enabled 屬性設(shè)置為false。實驗題目 3 源程序代碼：Private Sub Command1_Click()= Val + Val + Val= True= Val / 3 End SubPrivate Sub Command3_Click()= = = = = End Sub實驗題目 4：設(shè)計界面，編寫程序計算圓的周長和面積。參考界面

4、如下：要求：設(shè)置窗體的標題為“計算圓的周長和面積”?！坝嬎恪泵畎粹o的功能：定義變量和符號常量，計算出圓的周長和面積?！扒宄泵畎粹o的功能：將三個文本框的內(nèi)容清除，并將焦點移到第一個文本框中?！巴顺觥泵畎粹o的功能：程序運行結(jié)束。實驗題目 4 源程序代碼：Private Sub Command1_Click()Dim r As Double, s As DoubleConst pi =r = Vals = pi * r * rc = 2 * pi * r= Str(c)= Str(s)= = = End Sub實驗題目 5：設(shè)計界面，編寫程序驗證算術(shù)運算符的功能。參考界面如下：要求：設(shè)置窗體

5、的標題為“驗證算術(shù)運算符”?！坝嬎恪泵畎粹o的功能：計算兩個數(shù)的除、整除和取余?！扒宄泵畎粹o的功能：將五個文本框的內(nèi)容清除，并將焦點移到第一個文本框中?！巴顺觥泵畎粹o的功能：程序運行結(jié)束。實驗題目 5 源程序代碼：Private Sub Command1_Click()= Val / Val= Val Val= Val Mod Val End SubPrivate Sub Command2_Click()= = = = = End SubPrivate Sub Command3_Click()EndEnd Sub實驗題目 6：設(shè)計界面，編寫程序分離出一個三位數(shù)的個位、十位、百位上的數(shù)字。

6、參考界面如下：要求：設(shè)置窗體的標題為“分離三位數(shù)”?！胺蛛x”命令按鈕的功能：分離出一個三位數(shù)的個位、十位、百位上的數(shù)字?！扒宄泵畎粹o的功能：將四個文本框的內(nèi)容清除，并將焦點移到第一個文本框中?！巴顺觥泵畎粹o的功能：程序運行結(jié)束。實驗題目 6 源程序代碼：Private Sub Command1_Click()Dim a As Integera = Val= Str(a 100)= Str(a Mod 100) 10)= Str(a Mod 10)= = = = End SubPrivate Sub Command3_Click()EndEnd Sub實驗題目 7：輸入一個三位數(shù)，將它按逆

7、序輸出。參考界面如下：要求此題用兩種解法：第一種解法：將文本框中的數(shù)據(jù)按字符型數(shù)據(jù)進行處理，用函數(shù)實現(xiàn)；第二種解法：將文本框中的數(shù)據(jù)按數(shù)值型數(shù)據(jù)進行處理，用算術(shù)表達式實現(xiàn)（利用mod、 、* 、+等運算符）。實驗題目 7 源程序代碼：第一種解法：Private Sub Command1_Click()Dim a As String, b As String, c As String, d As Stringa = Trimb = Left(a, 1)c = Mid(a, 2, 1)d = Right(a, 1)= d & c & b End SubPrivate Sub Command2_Cl

8、ick()= = End Sub第二種解法：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Valb = a 100c = (a Mod 100) 10d = a Mod 10= Str(d * 100 + c * 10 + b) End SubPrivate Sub Command2_Click()= = End Sub實驗題目 8：輸入兩個數(shù)，將這兩個數(shù)交換。要求：不允許使用第三個文本框，可以借助一個中間變量。實驗題目 8 源程序代碼：Private Sub

9、Command1_Click()Dim a As Integer, b As Integer, c As Integera = Valb = Valc = aa = bb = c= Str(a)= Str(b) End Sub實驗題目 9：設(shè)計文本編輯窗體。復(fù)制按鈕的功能：移動按鈕的功能：提示：文本框的SelText屬性表示選定的內(nèi)容。要求：文本框可以多行輸入。說明：設(shè)計時先將文本框的multiline屬性設(shè)置為true 。實驗題目 9 源程序代碼：Private Sub Command1_Click()=End SubPrivate Sub Command2_Click()= End Sub

10、Private Sub Command3_Click()= = End SubPrivate Sub Command4_Click()EndEnd Sub實驗報告3：實驗題目 1：編寫程序計算某個學(xué)生三門課程的平均成績。要求：（ 1）單擊“計算”命令按鈕，輸入學(xué)生的成績并在文本框中顯示該學(xué)生的平均分。（調(diào)用三次inputbox函數(shù)輸入三門課程的成績，并用三個內(nèi)存變量保存成績）提示：如課的成績 )a 表示一門課程的成績，則調(diào)用inputbox函數(shù)輸入為：a=val(inputbox(請輸入第一門（ 2）單擊“結(jié)束”命令按鈕結(jié)束程序運行。界面如下：實驗題目 1 源程序代碼：Private Sub

11、Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(InputBox(請輸入第一門成績)b = Val(InputBox(請輸入第二門成績)c = Val(InputBox(請輸入第三門成績)d = (a + b + c) / 3= dEnd Sub實驗題目2：編寫程序計算長方體的體積。要求：（ 1）單擊“計算”命令按鈕，輸入長方體的長、寬和高（調(diào)用三次inputbox函數(shù)輸入，并用三個內(nèi)存變量保存），計算出長方體的體積后通過輸出對話框輸出（調(diào)用MsgBox 函數(shù)， 輸出框的標題為“

12、計算長方體的面積”。）輸出對話框參考界面如下：（ 2）單擊“結(jié)束”命令按鈕結(jié)束程序運行。實驗題目2 源程序代碼：Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer, v As Integera = Val(InputBox(請輸入長方體的長)b = Val(InputBox(請輸入長方體的寬)c = Val(InputBox(請輸入長方體的高)v = a * b * cMsgBox 長方體的體積為： & v, , 計算長方形的體積 End SubPrivate Sub Command2_Click()

13、endEnd Sub實驗報告4：實驗題目 1： 編寫程序求出四個數(shù)中的最小數(shù)。實驗題目 1 源程序代碼：Private Sub Command1_Click()Dim a!, b!, c!, d!, min!a = Val(Text1)b = Val(Text2)c = Val(Text3)d = Val(Text4)min = aIf b min Then min = bIf c min Then min = cIf d min Then min = bLabel1 = 最小的數(shù)是： & minEnd Sub實驗題目 2： 編寫程序判斷某個數(shù)是否是水仙花數(shù)。要求：用inputbox函數(shù)輸入一

14、個數(shù)，將結(jié)果輸出在窗體上。提示：水仙花數(shù)是一個三位數(shù)，這個三位數(shù)各個位上數(shù)字的立方和等于它本身。實驗題目 2 源程序代碼：Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer, d As Integerd = InputBox(請輸入一個三位數(shù)a = d 100b = (d Mod 100) 10c = d Mod 10If d = a 3 + b 3 + c 3 ThenPrint TrueElse, 判斷水仙花數(shù))Print FalseEnd IfEnd Sub實驗題目 3： 編寫程序，實現(xiàn)數(shù)字和英文單詞的

15、對應(yīng)。提示：在文本框1 中輸入 0 到 6 之間的整數(shù)，在文本框2 中顯示對應(yīng)的星期英文單詞。實驗題目 3 源程序代碼：Private Sub Command1_Click()Dim a As Integera = ValIf a = 0 Then= sunday ElseIf a = 1 Then= monday= tuesday ElseIf a = 3 Then= wednesday ElseIf a = 4 Then= thursday ElseIf a = 5 Then= friday= saturday End IfEnd Sub實驗題目 4：設(shè)計程序，判斷從鍵盤上輸入的某個字符為

16、哪類字符。（大寫字母、小寫字母、數(shù)字字符或其他字符）要求：用select case語句實現(xiàn)。提示：字符輸入在一個文本框中，字符類別信息顯示在標簽上。將文本框的maxlength屬性設(shè)置為1，則一次只能輸入一個字符。實驗題目 4 源程序代碼：Private Sub Command1_Click()Dim a As Stringa =Select Case aCase a To z= 它是小寫字母 Case A To Z= 它是大寫字母 Case 0 To 9= 它是數(shù)字字符 Case Else= 其他字符 End Select End Sub實驗題目 5： 設(shè)計一個簡單的文本編輯器，可以實現(xiàn)文本

17、的簡單格式化操作。具體要求如下：（1）可以設(shè)置字號，包括10、 20、 30 號（ 2）可以設(shè)置字體，包括宋體、隸書、幼圓（ 3）可以設(shè)置字型，包括加粗、傾斜、下劃線（ 4）可以設(shè)置字的顏色，包括紅色、綠色、藍色實驗題目 5 源程序代碼：Private Sub Check1_Click()If = 1 Then= True Else= falseEnd If End SubPrivate Sub Check2_Click() If =1 Then= True= falseEnd If End SubPrivate Sub Check3_Click() If =1 Then= TrueElse=

18、 falseEnd If End SubPrivate Sub Option1_Click()= 10= 20 End SubPrivate Sub Option3_Click()= 30End SubPrivate Sub Option4_Click()= 宋體 End SubPrivate Sub Option5_Click()= 隸書End SubPrivate Sub Option6_Click()= 幼圓 End SubPrivate Sub Option7_Click()= vbRed= vbGreen End SubPrivate Sub Option9_Click()= vbB

19、lueEnd Sub實驗報告5：實驗題目 1： 編寫程序輸出圖形，運行界面如下：實驗題目 1 源程序代碼：Private Sub Command1_Click()Dim a%a = 1While a = 6Print *a = a + 1WendEnd Sub實驗題目 2：編寫程序求n！。實驗題目 2 源程序代碼：Private Sub Command1_Click()Dim a as integer, b as integer, c As Longa = Valb = 1: c = 1Do While b = ac = c * bb = b + 1Loop= a & != & c End S

20、ub實驗題目 3：編寫程序，求出某班所有同學(xué)某門課程的平均成績。實驗題目 3 源程序代碼：Private Sub Command1_Click()Dim s As Integer, i As Integer, n As Integer, d As Integer, a As Doubles = 0: i = 1: n = ValDo While i = nd = InputBox( 輸入第 & i & 位同學(xué)的成績 , 成績輸入 )s = s + di = i + 1Loopa = s / nMsgBox 全班 & n & 位同學(xué)的平均分為 : & a, , 求平均分 End Sub實驗題目

21、4：1-100 之間所有能被3 整除的整數(shù)，要求每行輸出5 個。并輸出這些編寫程序輸出整數(shù)的和。（用for語句實現(xiàn)）實驗題目 4 源程序代碼：Private Sub Command1_Click()Dim i As Integer, n As Integer, s As Integers = 0n = 0For i = 1 To 100 Step 1If i Mod 3 = 0 ThenPrint i;n = n + 1If n Mod 5 = 0 ThenPrintEnd Ifs = s + iEnd IfNext iPrint sEnd Sub實驗題目 5： 編寫程序，統(tǒng)計輸入的一個字符串

22、中各類字符的個數(shù)。（用實驗題目 5 源程序代碼：Private Sub Command1_Click()Dim i%, a%, b%, c%, d%, s As Strings =For i = 1 To Len(s) Step 1Select Case Mid(s, i, 1)Case a To za = a + 1Case A To Zb = b + 1Case 0 To 9c = c + 1Case Elsed = d + 1End SelectNext iPrint a, b, c, d,End Sub實驗報告6：for語句實現(xiàn)）實驗題目 1： 編寫程序，定義包含10 個數(shù)組元素的一維

23、數(shù)組，給該數(shù)組中的數(shù)組元素賦值為3，6， 9， 12 數(shù)字，并以順序和逆序兩種方式輸出各元素值。實驗題目 1 源程序代碼：Private Sub Command1_Click()Dim i As IntegerDim a(1 To 10) As IntegerFor i = 1 To 10a(i) = 3 * iPrint a(i);Next iPrintFor i = 10 To 1 Step -1Print a(i);Next iEnd Sub實驗題目 2：隨機生成 20 個 100 以內(nèi)的正整數(shù)，將其中的奇數(shù)和偶數(shù)分兩行顯示在窗體上，并分別統(tǒng)計奇數(shù)和偶數(shù)的個數(shù)。實驗題目 2 源程序代碼：

24、Private Sub Command1_Click()Dim i As Integer, n As Integer, m As IntegerDim a(1 To 20) As IntegerFor i = 1 To 20a(i) = Int(100 * Rnd + 1)If a(i) Mod 2 = 0 ThenPrint a(i);n = n + 1End IfNextPrintFor i = 1 To 20If a(i) Mod 2 0 ThenPrint a(i);m = m + 1End IfNext iPrintPrint m, nEnd Sub實驗題目 3： 用數(shù)組實現(xiàn)從鍵盤輸

25、入10 個學(xué)生的計算機課程成績，求其平均成績和高于平均成績的人數(shù)。實驗題目 3 源程序代碼：Option base 1Private Sub Command1_Click()Dim sum As Integer, i As Integer, n As Integer, m As IntegerDim data(10) As Integer, average As Singlesum = 0: i = 1: n = ValDo While i average Thenm = m + 1位學(xué)生的平均成績?yōu)? & average, , 求平均分End IfNextPrint mEnd Sub實驗題目

26、 4： 用數(shù)組實現(xiàn)從鍵盤輸入10 個學(xué)生的計算機課程成績，求最高分和最低分。實驗題目 4 源程序代碼：Option base 1Private Sub Command1_Click()Dim i As Integer, n As Integer, max As integer, min As integerDim data(10) As Integerdata(1) = InputBox(輸入第 & 1 & 位學(xué)生的成績, max = data(1): min = data(1)For i = 2 To 10data(i) = InputBox(輸入第 & i & 位學(xué)生的成績, If dat

27、a(i) max Thenmax = data(i)成績輸入成績輸入)End IfIf data(i) n Thent = mElset = nEnd IfEnd SubPrivate Sub Form_Click()Dim x%, y%, z%x = Val(InputBox(請輸入數(shù)據(jù))y = Val(InputBox(請輸入數(shù)據(jù))Call max(x, y, z)Print 最大值是 :; zEnd Sub實驗題目 4：以下代碼的功能是：調(diào)用max“函數(shù)過程”，求出兩個數(shù)中的最大值。請將以下代碼補充完整。實驗題目 4 源程序代碼：Function max(m%, n%) As Integ

28、erIf m n Thenmax = mElsemax = nEnd IfEnd FunctionPrivate Sub Form_Click()Dim x%, y%, z%x = Val(InputBox(請輸入數(shù)據(jù) )y = Val(InputBox(請輸入數(shù)據(jù) )z = max(x, y)Print 最大值是 :; zEnd Sub實驗題目 5：command1命令按鈕，比較兩種數(shù)組的區(qū)別。閱讀并運行下面的程序代碼，多次單擊實驗題目 5 兩種數(shù)組的區(qū)別是： 用 static定義的數(shù)組表示靜態(tài)數(shù)組，如果沒有給該數(shù)組賦初值，第一次運行時，各元素的初值都為0，再次運行時以上一次運行的結(jié)果作為初

29、始值；用dim 定義的數(shù)組則表示動態(tài)數(shù)組，如果沒有給該數(shù)組賦初值，每次運行時，各元素的初值都為0。實驗題目 5 程序運行結(jié)果：第一次輸出 2222222222第二次輸出 4444422222實驗報告 8：實驗題目 1： 設(shè)計窗體，界面如下：當單擊“圖片1”，“圖片 2”，“圖片 3”時，圖片（像）框分別加載不同圖片。（要求：圖片自己從網(wǎng)上下載）實驗題目 1 源程序代碼：Private Sub Option1_Click()= LoadPicture + ) End SubPrivate Sub Option2_Click()= LoadPicture + )= LoadPicture + ) End Sub實驗題目 2： 設(shè)計個人情況登記程序。程序初始界面如下：窗體中共包含3 個標簽， 3 個組合框，1 個圖片框和2 個命