vb實(shí)用案例50例

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)簽，通過屬性窗囗設(shè)置標(biāo)簽格式：Caption：字體格式 Alignment：2Center（居中）BorderStyle ：1Fixed Single（有邊框） Backstyle：0Tansparent（背景透明）2） 運(yùn)行時(shí)，單擊“字號”，將標(biāo)簽內(nèi)容的字號設(shè)置為30；單擊“加粗”，將標(biāo)簽內(nèi)容加粗；單擊“下劃線”，則在標(biāo)簽內(nèi)容下加下劃線。提示：字號FontSize、加粗FontBold、下劃線FontUnderline實(shí)驗(yàn)題目1源程序代碼：Private Sub Command1_Cli

2、ck()Label1.FontSize = 30End SubPrivate Sub Command2_Click()Label1.FontBold = trueEnd SubPrivate Sub Command3_Click()Label1.FontUnderline = TrueEnd 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()Text3.Text = Val(Text1.Text) +

3、Val(Text2.Text)End SubPrivate Sub Command2_Click()Text3.Text = Val(Text1.Text) - Val(Text2.Text)End SubPrivate Sub Command3_Click()Text3.Text = Val(Text1.Text) * Val(Text2.Text)End SubPrivate Sub Command4_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)End Sub實(shí)驗(yàn)題目3：設(shè)計(jì)一個(gè)能夠統(tǒng)計(jì)某學(xué)生三門課程成績總分和平均分的程序。參考

4、界面如下：要求：沒有計(jì)算出總分前，計(jì)算均分的命令按鈕不可用，計(jì)算出總分后，計(jì)算均分的命令按鈕才可用。說明：設(shè)計(jì)時(shí)先將計(jì)算均分的命令按鈕的Enabled屬性設(shè)置為false。實(shí)驗(yàn)題目3源程序代碼：Private Sub Command1_Click()Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Text5.Text = Val(Text4.Text) / 3End SubPrivate Sub Co

5、mmand3_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End Sub實(shí)驗(yàn)題目4：設(shè)計(jì)界面，編寫程序計(jì)算圓的周長和面積。參考界面如下：要求：設(shè)置窗體的標(biāo)題為“計(jì)算圓的周長和面積”。“計(jì)算”命令按鈕的功能：定義變量和符號常量，計(jì)算出圓的周長和面積。“清除”命令按鈕的功能：將三個(gè)文本框的內(nèi)容清除，并將焦點(diǎn)移到第一個(gè)文本框中。“退出”命令按鈕的功能：程序運(yùn)行結(jié)束。實(shí)驗(yàn)題目4源程序代碼：Private Sub Command1_Click()Dim r As Double, s As DoubleCo

6、nst pi = 3.1415926r = Val(Text1.Text)s = pi * r * rc = 2 * pi * rText2.Text = Str(c)Text3.Text = Str(s)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd Sub實(shí)驗(yàn)題目5：設(shè)計(jì)界面，編寫程序驗(yàn)證算術(shù)運(yùn)算符的功能。參考界面如下：要求：設(shè)置窗體的標(biāo)題為“驗(yàn)證算術(shù)運(yùn)算符”?！坝?jì)算”命令按鈕的功能：計(jì)算兩個(gè)數(shù)的除、整除和取余?！扒宄泵畎粹o的功能：將五個(gè)文本框的內(nèi)容清

7、除，并將焦點(diǎn)移到第一個(gè)文本框中?！巴顺觥泵畎粹o的功能：程序運(yùn)行結(jié)束。實(shí)驗(yàn)題目5源程序代碼：Private Sub Command1_Click()Text3.Text = Val(Text1.Text) / Val(Text2.Text)Text4.Text = Val(Text1.Text) Val(Text2.Text)Text5.Text = Val(Text1.Text) Mod Val(Text2.Text)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = T

8、ext5.Text = End SubPrivate Sub Command3_Click()EndEnd Sub實(shí)驗(yàn)題目6：設(shè)計(jì)界面，編寫程序分離出一個(gè)三位數(shù)的個(gè)位、十位、百位上的數(shù)字。參考界面如下：要求：設(shè)置窗體的標(biāo)題為“分離三位數(shù)”?！胺蛛x”命令按鈕的功能：分離出一個(gè)三位數(shù)的個(gè)位、十位、百位上的數(shù)字?！扒宄泵畎粹o的功能：將四個(gè)文本框的內(nèi)容清除，并將焦點(diǎn)移到第一個(gè)文本框中?！巴顺觥泵畎粹o的功能：程序運(yùn)行結(jié)束。實(shí)驗(yàn)題目6源程序代碼：Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Text4.Text = St

9、r(a 100)Text3.Text = Str(a Mod 100) 10)Text2.Text = Str(a Mod 10)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub實(shí)驗(yàn)題目7：輸入一個(gè)三位數(shù)，將它按逆序輸出。參考界面如下：要求此題用兩種解法：第一種解法：將文本框中的數(shù)據(jù)按字符型數(shù)據(jù)進(jìn)行處理，用函數(shù)實(shí)現(xiàn)；第二種解法：將文本框中的數(shù)據(jù)按數(shù)值型數(shù)

10、據(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 = Trim(Text1.Text)b = Left(a, 1)c = Mid(a, 2, 1)d = Right(a, 1)Text2.Text = d & c & bEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End Sub第二種解法：Private Su

11、b Command1_Click()Dim a As Integer, b As Integer, c As Integer, d As Integera = Val(Text1.Text)b = a 100c = (a Mod 100) 10d = a Mod 10Text2.Text = Str(d * 100 + c * 10 + b)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End Sub實(shí)驗(yàn)題目8：輸入兩個(gè)數(shù)，將這兩個(gè)數(shù)交換。要求：不允許使用第三個(gè)文本框，可以借助一個(gè)中間變量。實(shí)驗(yàn)題目8源程序代碼：Pri

12、vate Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera = Val(Text1.Text)b = Val(Text2.Text)c = aa = bb = cText1.Text = Str(a)Text2.Text = Str(b)End Sub實(shí)驗(yàn)題目9：設(shè)計(jì)文本編輯窗體。復(fù)制按鈕的功能：移動(dòng)按鈕的功能： 提示：文本框的SelText屬性表示選定的內(nèi)容。要求：文本框可以多行輸入。說明：設(shè)計(jì)時(shí)先將文本框的multiline屬性設(shè)置為true。實(shí)驗(yàn)題目9源程序代碼：Private Sub Command1_C

13、lick()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText1.SelText = End SubPrivate Sub Command3_Click()Text1.Text = Text2.Text = End SubPrivate Sub Command4_Click()EndEnd Sub實(shí)驗(yàn)報(bào)告3：實(shí)驗(yàn)題目1：編寫程序計(jì)算某個(gè)學(xué)生三門課程的平均成績。要求：（1）單擊“計(jì)算”命令按鈕，輸入學(xué)生的成績并在文本框中顯示該學(xué)生的平均分。（調(diào)用三次inputbox

14、函數(shù)輸入三門課程的成績，并用三個(gè)內(nèi)存變量保存成績）提示：如a表示一門課程的成績，則調(diào)用inputbox函數(shù)輸入為：a=val(inputbox(請輸入第一門課的成績)（2）單擊“結(jié)束”命令按鈕結(jié)束程序運(yùn)行。界面如下：實(shí)驗(yàn)題目1源程序代碼：Private Sub 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) /

15、 3Text1.Text = dEnd Sub實(shí)驗(yàn)題目2：編寫程序計(jì)算長方體的體積。要求：（1）單擊“計(jì)算”命令按鈕，輸入長方體的長、寬和高（調(diào)用三次inputbox函數(shù)輸入，并用三個(gè)內(nèi)存變量保存），計(jì)算出長方體的體積后通過輸出對話框輸出（調(diào)用MsgBox函數(shù)，輸出框的標(biāo)題為“計(jì)算長方體的面積”。）輸出對話框參考界面如下：（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(請輸入長

16、方體的長)b = Val(InputBox(請輸入長方體的寬)c = Val(InputBox(請輸入長方體的高)v = a * b * cMsgBox 長方體的體積為： & v, , 計(jì)算長方形的體積End SubPrivate Sub Command2_Click()endEnd Sub實(shí)驗(yàn)報(bào)告4：實(shí)驗(yàn)題目1：編寫程序求出四個(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 = aI

17、f b min Then min = bIf c min Then min = cIf d min Then min = bLabel1 = 最小的數(shù)是： & minEnd Sub實(shí)驗(yàn)題目2：編寫程序判斷某個(gè)數(shù)是否是水仙花數(shù)。要求：用inputbox函數(shù)輸入一個(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(請輸入一個(gè)三位數(shù), 判斷水仙花數(shù)

18、)a = d 100b = (d Mod 100) 10c = d Mod 10If d = a 3 + b 3 + c 3 ThenPrint TrueElsePrint FalseEnd IfEnd Sub實(shí)驗(yàn)題目3：編寫程序，實(shí)現(xiàn)數(shù)字和英文單詞的對應(yīng)。提示：在文本框1中輸入0到6之間的整數(shù)，在文本框2中顯示對應(yīng)的星期英文單詞。實(shí)驗(yàn)題目3源程序代碼：Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)If a = 0 ThenText2.Text = sundayElseIf a = 1 ThenText2.Text

19、 = mondayElseIf a = 2 ThenText2.Text = tuesdayElseIf a = 3 ThenText2.Text = wednesdayElseIf a = 4 ThenText2.Text = thursdayElseIf a = 5 ThenText2.Text = fridayElseIf a = 6 ThenText2.Text = saturdayEnd IfEnd Sub 實(shí)驗(yàn)題目4：設(shè)計(jì)程序，判斷從鍵盤上輸入的某個(gè)字符為哪類字符。（大寫字母、小寫字母、數(shù)字字符或其他字符）要求：用select case語句實(shí)現(xiàn)。提示：字符輸入在一個(gè)文本框中，字符類

20、別信息顯示在標(biāo)簽上。將文本框的maxlength屬性設(shè)置為1，則一次只能輸入一個(gè)字符。實(shí)驗(yàn)題目4源程序代碼： Private Sub Command1_Click()Dim a As Stringa = Text1.TextSelect Case aCase a To zLabel1.Caption = 它是小寫字母Case A To ZLabel1.Caption = 它是大寫字母Case 0 To 9Label1.Caption = 它是數(shù)字字符Case ElseLabel1.Caption = 其他字符End SelectEnd Sub實(shí)驗(yàn)題目5：設(shè)計(jì)一個(gè)簡單的文本編輯器，可以實(shí)現(xiàn)文本的

21、簡單格式化操作。具體要求如下：（1）可以設(shè)置字號，包括10、20、30號（2）可以設(shè)置字體，包括宋體、隸書、幼圓（3）可以設(shè)置字型，包括加粗、傾斜、下劃線（4）可以設(shè)置字的顏色，包括紅色、綠色、藍(lán)色實(shí)驗(yàn)題目5源程序代碼：Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontBold = TrueElseText1.fontbold = falseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value =1 ThenText1.FontItalic = TrueElseText

22、1.fontitalic = falseEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value =1 ThenText1.FontUnderline = TrueElseText1.fontunderline = falseEnd IfEnd SubPrivate Sub Option1_Click()Text1.FontSize = 10End SubPrivate Sub Option2_Click()Text1.FontSize = 20End SubPrivate Sub Option3_Click()Text1.FontSize

23、= 30End SubPrivate Sub Option4_Click()Text1.FontName = 宋體End SubPrivate Sub Option5_Click()Text1.FontName = 隸書End SubPrivate Sub Option6_Click()Text1.FontName = 幼圓End SubPrivate Sub Option7_Click()Text1.ForeColor = vbRedEnd SubPrivate Sub Option8_Click()Text1.ForeColor = vbGreenEnd SubPrivate Sub Op

24、tion9_Click()Text1.ForeColor = vbBlueEnd Sub實(shí)驗(yàn)報(bào)告5：實(shí)驗(yàn)題目1：編寫程序輸出圖形，運(yùn)行界面如下：實(shí)驗(yàn)題目1源程序代碼：Private Sub Command1_Click()Dim a%a = 1While a = 6Print *a = a + 1WendEnd Sub 實(shí)驗(yàn)題目2：編寫程序求n！。實(shí)驗(yàn)題目2源程序代碼：Private Sub Command1_Click()Dim a as integer, b as integer, c As Longa = Val(Text1.Text)b = 1: c = 1Do While b = a

25、c = c * bb = b + 1LoopLabel2.Caption = a & != & cEnd Sub 實(shí)驗(yàn)題目3：編寫程序，求出某班所有同學(xué)某門課程的平均成績。實(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 = Val(Text1.Text)Do While i = nd = InputBox(輸入第 & i & 位同學(xué)的成績, 成績輸入)s = s + di = i + 1Loo

26、pa = s / nMsgBox 全班 & n & 位同學(xué)的平均分為: & a, , 求平均分End Sub實(shí)驗(yàn)題目4：編寫程序輸出1-100之間所有能被3整除的整數(shù)，要求每行輸出5個(gè)。并輸出這些整數(shù)的和。（用for語句實(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

27、 + iEnd IfNext iPrint sEnd Sub 實(shí)驗(yàn)題目5：編寫程序，統(tǒng)計(jì)輸入的一個(gè)字符串中各類字符的個(gè)數(shù)。（用for語句實(shí)現(xiàn)）實(shí)驗(yàn)題目5源程序代碼：Private Sub Command1_Click()Dim i%, a%, b%, c%, d%, s As Strings = Text1.TextFor 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 SelectNex

28、t iPrint a, b, c, d,End Sub實(shí)驗(yàn)報(bào)告6：實(shí)驗(yàn)題目1：編寫程序，定義包含10個(gè)數(shù)組元素的一維數(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)的正

29、整數(shù)，將其中的奇數(shù)和偶數(shù)分兩行顯示在窗體上，并分別統(tǒng)計(jì)奇數(shù)和偶數(shù)的個(gè)數(shù)。 實(shí)驗(yàn)題目2源程序代碼： 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 + 1En

30、d IfNext iPrintPrint m, nEnd Sub實(shí)驗(yàn)題目3：用數(shù)組實(shí)現(xiàn)從鍵盤輸入10個(gè)學(xué)生的計(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 = Val(Text1.Text)Do While i average Then m = m +

31、1 End If Next Print mEnd Sub實(shí)驗(yàn)題目4：用數(shù)組實(shí)現(xiàn)從鍵盤輸入10個(gè)學(xué)生的計(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é)生的成績, 成績輸入)max = data(1): min = data(1)For i = 2 To 10data(i) =

32、InputBox(輸入第 & i & 位學(xué)生的成績, 成績輸入)If data(i) max Then max = 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實(shí)驗(yàn)題目4：以下代碼的功能是：調(diào)用max“函數(shù)過程”，求出兩個(gè)數(shù)中的最大值。請將以下代碼補(bǔ)充完整。實(shí)驗(yàn)題目4源程序代碼：Fun

33、ction max(m%, n%) As IntegerIf 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實(shí)驗(yàn)題目5：閱讀并運(yùn)行下面的程序代碼，多次單擊command1命令按鈕，比較兩種數(shù)組的區(qū)別。實(shí)驗(yàn)題目5兩種數(shù)組的區(qū)別是：用static定義的數(shù)組表示靜態(tài)數(shù)組，如果沒有給該數(shù)組賦初值，第一次運(yùn)行時(shí)，各元素的初值都為0

34、，再次運(yùn)行時(shí)以上一次運(yùn)行的結(jié)果作為初始值；用dim定義的數(shù)組則表示動(dòng)態(tài)數(shù)組，如果沒有給該數(shù)組賦初值，每次運(yùn)行時(shí)，各元素的初值都為0。實(shí)驗(yàn)題目5程序運(yùn)行結(jié)果：第一次輸出 22222 22222第二次輸出 44444 22222實(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()Picture1.Picture = LoadPicture(App.Path + 1.jpg)End SubPrivate Sub Option2_Cl

35、ick()Picture1.Picture = LoadPicture(App.Path + 2.jpg)End SubPrivate Sub Option3_Click()Picture1.Picture = LoadPicture(App.Path + 3.jpg)End Sub實(shí)驗(yàn)題目2：設(shè)計(jì)個(gè)人情況登記程序。程序初始界面如下：窗體中共包含3個(gè)標(biāo)簽，3個(gè)組合框，1個(gè)圖片框和2個(gè)命令按鈕。Combo1提供2個(gè)選項(xiàng)：東校區(qū)、西校區(qū)Combo2提供3個(gè)選項(xiàng)：中文系、外語系、教心系Combo3提供3個(gè)選項(xiàng)：0901、0902、0903程序運(yùn)行時(shí)，當(dāng)在3個(gè)組合框中分別選擇相應(yīng)內(nèi)容后，單擊“確認(rèn)”按鈕，會(huì)將選擇的內(nèi)容在圖片框中打印出來。實(shí)驗(yàn)題目2源程序代碼：Private Sub Command1_Click()Picture1.Print Combo1.Text & Com