vb實(shí)用案例例.doc

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

2、d1_Click()= 30 End SubPrivate Sub Command2_Click()= true= True End Sub實(shí)驗(yàn)題目 2： 設(shè)計(jì)一個(gè)計(jì)算器。參考界面如下：要求：1）實(shí)現(xiàn)算術(shù)運(yùn)算（+、 - 、 * 、 / ）的功能；2）實(shí)現(xiàn)清除和結(jié)束的功能；3）實(shí)現(xiàn)清除后，將焦點(diǎn)移到第一個(gè)文本框中。實(shí)驗(yà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實(shí)驗(yàn)題目 3：設(shè)計(jì)一個(gè)能夠統(tǒng)計(jì)某學(xué)生三門(mén)課程成績(jī)總分和平均分的程序。參考界面如下：要求：沒(méi)有計(jì)算出總分前，計(jì)算均分的命令按鈕不可用，計(jì)算出總分后，計(jì)算均分的命令按鈕才可用。說(shuō)明：設(shè)計(jì)時(shí)先將計(jì)算均分的命令按鈕的Enabled 屬性設(shè)置為false。實(shí)驗(yàn)題目 3 源程序代碼：Private Sub Command1_Click()= Val + Val + Val= True= Val / 3 End SubPrivate Sub Command3_Click()= = = = = End Sub實(shí)驗(yàn)題目 4：設(shè)計(jì)界面，編寫(xiě)程序計(jì)算圓的周長(zhǎng)和面積。參考界面

4、如下：要求：設(shè)置窗體的標(biāo)題為“計(jì)算圓的周長(zhǎng)和面積”。“計(jì)算”命令按鈕的功能：定義變量和符號(hào)常量，計(jì)算出圓的周長(zhǎng)和面積?！扒宄泵畎粹o的功能：將三個(gè)文本框的內(nèi)容清除，并將焦點(diǎn)移到第一個(gè)文本框中。“退出”命令按鈕的功能：程序運(yùn)行結(jié)束。實(shí)驗(yàn)題目 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實(shí)驗(yàn)題目 5：設(shè)計(jì)界面，編寫(xiě)程序驗(yàn)證算術(shù)運(yùn)算符的功能。參考界面如下：要求：設(shè)置窗體

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

6、參考界面如下：要求：設(shè)置窗體的標(biāo)題為“分離三位數(shù)”。“分離”命令按鈕的功能：分離出一個(gè)三位數(shù)的個(gè)位、十位、百位上的數(shù)字。“清除”命令按鈕的功能：將四個(gè)文本框的內(nèi)容清除，并將焦點(diǎn)移到第一個(gè)文本框中?！巴顺觥泵畎粹o的功能：程序運(yùn)行結(jié)束。實(shí)驗(yàn)題目 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實(shí)驗(yàn)題目 7：輸入一個(gè)三位數(shù)，將它按逆

7、序輸出。參考界面如下：要求此題用兩種解法：第一種解法：將文本框中的數(shù)據(jù)按字符型數(shù)據(jù)進(jìn)行處理，用函數(shù)實(shí)現(xiàn)；第二種解法：將文本框中的數(shù)據(jù)按數(shù)值型數(shù)據(jù)進(jìn)行處理，用算術(shù)表達(dá)式實(shí)現(xiàn)（利用mod、 、* 、+等運(yùn)算符）。實(shí)驗(yàn)題目 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實(shí)驗(yàn)題目 8：輸入兩個(gè)數(shù)，將這兩個(gè)數(shù)交換。要求：不允許使用第三個(gè)文本框，可以借助一個(gè)中間變量。實(shí)驗(yàn)題目 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實(shí)驗(yàn)題目 9：設(shè)計(jì)文本編輯窗體。復(fù)制按鈕的功能：移動(dòng)按鈕的功能：提示：文本框的SelText屬性表示選定的內(nèi)容。要求：文本框可以多行輸入。說(shuō)明：設(shè)計(jì)時(shí)先將文本框的multiline屬性設(shè)置為true 。實(shí)驗(yàn)題目 9 源程序代碼：Private Sub Command1_Click()=End SubPrivate Sub Command2_Click()= End Sub

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

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

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

13、endEnd Sub實(shí)驗(yàn)報(bào)告4：實(shí)驗(yàn)題目 1： 編寫(xiě)程序求出四個(gè)數(shù)中的最小數(shù)。實(shí)驗(yàn)題目 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實(shí)驗(yàn)題目 2： 編寫(xiě)程序判斷某個(gè)數(shù)是否是水仙花數(shù)。要求：用inputbox函數(shù)輸入一

14、個(gè)數(shù)，將結(jié)果輸出在窗體上。提示：水仙花數(shù)是一個(gè)三位數(shù)，這個(gè)三位數(shù)各個(gè)位上數(shù)字的立方和等于它本身。實(shí)驗(yàn)題目 2 源程序代碼：Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integer, d As Integerd = InputBox(請(qǐng)輸入一個(gè)三位數(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實(shí)驗(yàn)題目 3： 編寫(xiě)程序，實(shí)現(xiàn)數(shù)字和英文單詞的

15、對(duì)應(yīng)。提示：在文本框1 中輸入 0 到 6 之間的整數(shù)，在文本框2 中顯示對(duì)應(yīng)的星期英文單詞。實(shí)驗(yàn)題目 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實(shí)驗(yàn)題目 4：設(shè)計(jì)程序，判斷從鍵盤(pán)上輸入的某個(gè)字符為

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

17、的簡(jiǎn)單格式化操作。具體要求如下：（1）可以設(shè)置字號(hào)，包括10、 20、 30 號(hào)（ 2）可以設(shè)置字體，包括宋體、隸書(shū)、幼圓（ 3）可以設(shè)置字型，包括加粗、傾斜、下劃線（ 4）可以設(shè)置字的顏色，包括紅色、綠色、藍(lán)色實(shí)驗(yàn)題目 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()= 隸書(shū)End SubPrivate Sub Option6_Click()= 幼圓 End SubPrivate Sub Option7_Click()= vbRed= vbGreen End SubPrivate Sub Option9_Click()= vbB

19、lueEnd Sub實(shí)驗(yàn)報(bào)告5：實(shí)驗(yàn)題目 1： 編寫(xiě)程序輸出圖形，運(yùn)行界面如下：實(shí)驗(yàn)題目 1 源程序代碼：Private Sub Command1_Click()Dim a%a = 1While a = 6Print *a = a + 1WendEnd Sub實(shí)驗(yàn)題目 2：編寫(xiě)程序求n！。實(shí)驗(yà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實(shí)驗(yàn)題目 3：編寫(xiě)程序，求出某班所有同學(xué)某門(mén)課程的平均成績(jī)。實(shí)驗(yàn)題目 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é)的成績(jī) , 成績(jī)輸入 )s = s + di = i + 1Loopa = s / nMsgBox 全班 & n & 位同學(xué)的平均分為 : & a, , 求平均分 End Sub實(shí)驗(yàn)題目

21、4：1-100 之間所有能被3 整除的整數(shù)，要求每行輸出5 個(gè)。并輸出這些編寫(xiě)程序輸出整數(shù)的和。（用for語(yǔ)句實(shí)現(xiàn)）實(shí)驗(yà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實(shí)驗(yàn)題目 5： 編寫(xiě)程序，統(tǒng)計(jì)輸入的一個(gè)字符串

22、中各類字符的個(gè)數(shù)。（用實(shí)驗(yàn)題目 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實(shí)驗(yàn)報(bào)告6：for語(yǔ)句實(shí)現(xiàn)）實(shí)驗(yàn)題目 1： 編寫(xiě)程序，定義包含10 個(gè)數(shù)組元素的一維

23、數(shù)組，給該數(shù)組中的數(shù)組元素賦值為3，6， 9， 12 數(shù)字，并以順序和逆序兩種方式輸出各元素值。實(shí)驗(yàn)題目 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實(shí)驗(yàn)題目 2：隨機(jī)生成 20 個(gè) 100 以內(nèi)的正整數(shù)，將其中的奇數(shù)和偶數(shù)分兩行顯示在窗體上，并分別統(tǒng)計(jì)奇數(shù)和偶數(shù)的個(gè)數(shù)。實(shí)驗(yàn)題目 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實(shí)驗(yàn)題目 3： 用數(shù)組實(shí)現(xiàn)從鍵盤(pán)輸

25、入10 個(gè)學(xué)生的計(jì)算機(jī)課程成績(jī)，求其平均成績(jī)和高于平均成績(jī)的人數(shù)。實(shí)驗(yàn)題目 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é)生的平均成績(jī)?yōu)? & average, , 求平均分End IfNextPrint mEnd Sub實(shí)驗(yàn)題目

26、 4： 用數(shù)組實(shí)現(xiàn)從鍵盤(pán)輸入10 個(gè)學(xué)生的計(jì)算機(jī)課程成績(jī)，求最高分和最低分。實(shí)驗(yàn)題目 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é)生的成績(jī), max = data(1): min = data(1)For i = 2 To 10data(i) = InputBox(輸入第 & i & 位學(xué)生的成績(jī), If dat

27、a(i) max Thenmax = data(i)成績(jī)輸入成績(jī)輸入)End IfIf data(i) n Thent = mElset = nEnd IfEnd SubPrivate Sub Form_Click()Dim x%, y%, z%x = Val(InputBox(請(qǐng)輸入數(shù)據(jù))y = Val(InputBox(請(qǐng)輸入數(shù)據(jù))Call max(x, y, z)Print 最大值是 :; zEnd Sub實(shí)驗(yàn)題目 4：以下代碼的功能是：調(diào)用max“函數(shù)過(guò)程”，求出兩個(gè)數(shù)中的最大值。請(qǐng)將以下代碼補(bǔ)充完整。實(shí)驗(yàn)題目 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(請(qǐng)輸入數(shù)據(jù) )y = Val(InputBox(請(qǐng)輸入數(shù)據(jù) )z = max(x, y)Print 最大值是 :; zEnd Sub實(shí)驗(yàn)題目 5：command1命令按鈕，比較兩種數(shù)組的區(qū)別。閱讀并運(yùn)行下面的程序代碼，多次單擊實(shí)驗(yàn)題目 5 兩種數(shù)組的區(qū)別是： 用 static定義的數(shù)組表示靜態(tài)數(shù)組，如果沒(méi)有給該數(shù)組賦初值，第一次運(yùn)行時(shí)，各元素的初值都為0，再次運(yùn)行時(shí)以上一次運(yùn)行的結(jié)果作為初

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