VB實驗報告(含答案)

1、VB實驗報告（含答案）實驗報告課程名稱_程序設(shè)計基礎(chǔ)Visual Basic_班 級姓 名實驗日期：實驗一 VB環(huán)境和創(chuàng)建一個簡單的 VB程序.實驗?zāi)康模? .了解VB系統(tǒng)對計算機軟件、硬件的要求。2 .掌握啟動和退出VB的方法。3 .了解和使用VB集成開發(fā)環(huán)境各窗口、菜單的一般 功能。4 .熟悉建立、編輯、運行、保存一個簡單的VB應(yīng)用程序的全過程5 . 了解文本框、標(biāo)簽框、命令按鈕的構(gòu)造及其屬性、事件和方法。.實驗內(nèi)容：1 .設(shè)計一個簡單的應(yīng)用程序，要求在窗體上畫一鈕示序示文 兩 程 分運本框、一個標(biāo)簽 個命令按鈕編 序，并把命令按 別設(shè)置為"顯 和“清除“。程 行后，單擊”顯 按

2、鈕，在文本框中輸出一行信息；單擊“清除"按鈕，則清除文本 框中的內(nèi)容，運行界面如圖1.1所示。1實驗日期:圖1.1實驗1-1 運行界面三.實驗結(jié)果：對象屬性設(shè)置對象屬性屬性值說明Form1caption我的第一個vb程序窗體Label1caption請輸入姓名標(biāo)簽Text1text一文本框Command1caption顯示命令按鈕Command2caption清除命令按鈕四.實驗思考：1 .標(biāo)簽label控件設(shè)置的屬性代碼有哪些？Label1.Caption= " 請輸入姓名”Label1.fontsize=24Label1.fontbold=True2 .兩個按鈕所使用的

3、是什么事件？代碼分別是什么?Private Sub Command1Click()Text1.text="姓名”End SubPrivate Sub Command2_Click()Text1.text= " ” 一End Sub3實驗日期：實驗二簡單程序設(shè)計數(shù)據(jù)類型及常用內(nèi)部函數(shù)的簡單應(yīng)用一.實驗?zāi)康模? .掌握Visual Basic 數(shù)據(jù)類型的基本概念。2 .掌握用Visual Basic 的各種運算符及表達式。3 .學(xué)習(xí)使用Visual Basic內(nèi)部函數(shù)和數(shù)據(jù)輸入、輸 出方法。4 .掌握命令按鈕、文本框和標(biāo)簽。5 .設(shè)計順序程序。二.實驗內(nèi)容：1 .編寫一個華氏溫

4、度和攝氏溫度之間的轉(zhuǎn)換程序， 如圖2-2所示，要求用inputbox函數(shù)輸入華氏 溫度，用msgbox輸出轉(zhuǎn)換后的攝氏溫度。轉(zhuǎn)換 公式是：C= 5 / 9(F - 32)。F為華氏溫度，C為攝氏溫度。2 .用三種除法運算(/、 、MoO做計算。要求：在窗體上畫五個標(biāo)簽、五個文本框和一個 命令按鈕，如圖2-2所示。程序運行后，在第一個文 本框中輸入被除數(shù)，在第二個文本框中輸入除數(shù)，然 后單擊命令按鈕，即可得到三種不同的相除結(jié)果。)111»1葉卜(1R與,不Ehn#的而用_ n x崗度轉(zhuǎn)換5圖2-1圖2-2三.實驗結(jié)果：對象屬性設(shè)置1.溫度轉(zhuǎn)換對象屬性屬性值說明FormlCaptionI

5、nputbox 與 msgbox應(yīng)用窗體CommandlCaption溫度轉(zhuǎn)換命令按鈕2.三種除法運算（/、Mod）做計算對象屬性屬性值說明Label1Caption被除數(shù)標(biāo)簽Label2Caption除數(shù)標(biāo)簽Label3Caption浮點數(shù)標(biāo)簽Label4Caption整除數(shù)標(biāo)簽Label5Caption余數(shù)除標(biāo)簽Command1Caption執(zhí)行除法運命令按鈕算四.實驗思考：1.溫度轉(zhuǎn)換中的Command命令的單擊事件的程序代碼Private Sub Command1_Click()Dim C!,F!一F=val(inputbox("輸入華氏溫度”)C=5/9* F-32Msgb

6、ox “對應(yīng)的攝氏溫度為："& CEnd Sub2 .用三種除法運算(/、 、Mo。做計算，說明三種 除法的區(qū)別？/ :兩個數(shù)相除:兩個數(shù)整除Mo(L兩個數(shù)相除，得余數(shù)3 .二種除法運算(/、Mo。做計算)Command命 令的單擊事件的程序代碼是什么？Private Sub Command1_Click()Dim a!,b!一a=val(text1.text)b= val(text2.text)text3.text=a/btext4.text=abtext5.text=a mod bEnd Sub9實驗日期： 實驗三選擇程序設(shè)計1 .實驗?zāi)康模? .掌握單分支與雙分支條件語

7、句的使用。2 .掌握多分支條件語句(If ThenElself ) 的使用。3 .掌握Select Case語句的使用及與多分支條件語 句的區(qū)別。4 .熟練掌握時間過程的編寫方法。2 .實驗內(nèi)容：1 .設(shè)計一個模擬簡易計算器的程序，界面如圖3-1所示。要求：輸入兩個操作數(shù)和一個操作符，根 據(jù)操作符決定所進行的計算；如果除數(shù)為 0,用 msgbox提示出錯信息；用if語句和selecet case 語句兩種結(jié)構(gòu)實現(xiàn)。2 .通過單選按鈕和復(fù)選框控制文字的顯示，程序窗 口如圖3-2所示。圖3-1圖3-2三.實驗結(jié)果：對象屬性設(shè)置1.模擬簡易計算器對象屬性屬性值說明LabellCaption輸入數(shù)1標(biāo)

8、簽Label2Caption運算器標(biāo)簽Label3Caption輸入數(shù)2標(biāo)簽Label4Caption結(jié)果標(biāo)簽CommandlCaptionCase結(jié)構(gòu)命令按鈕Command2Captionif結(jié)構(gòu)命令按鈕Text1-text4 Te漢t一文本框2.單選框與復(fù)選框?qū)ο髮傩詫傩灾嫡f明Frame1Caption字體框架Frame2Caption字號框架Frame3Caption字型框架Label1Caption奧林匹克運 動會標(biāo)簽Option1Caption宋體單選按鈕實驗日期：Option2Caption仿宋單選按鈕Option3Caption黑體單選按鈕Option4Caption楷體單選按鈕

9、Option5Caption大單選按鈕Option6Caption中單選按鈕Option7Caption小單選按鈕ChecklCaption加粗復(fù)選框Check2Caption傾斜復(fù)選框Check3Caption下劃線復(fù)選框Check4Caption刪除線復(fù)選框四.實驗思考：1.模擬簡易計算器Command命令的單擊事件的程序代 碼是什么？Private Sub Command1_Click()Dim a!, b!一Dim c As Stringa = Val(Text1.Text)b = Val(Text3.Text)c = Text2.TextSelect Case cCase'

10、+”Text4.Text = a + bCase“-”Text4.Text = a - bCaseText4.Text = a * bCase'/ ”If b = 0 ThenMsgBox“除數(shù)為 0.”ElseText4.Text = a / bEnd IfEnd SelectEnd Sub9實驗日期：2 .模擬簡易計算器Command命令的單擊事件的程序代Private Sub Command1_Click()Dim a!, b!一Dim c As Stringa = Val(Text1.Text)b = Val(Text3.Text)c = Text2.TextIf c =&qu

11、ot;+” ThenText4.Text = a + bElseIf c ="-"ThenText4.Text = a -bElseIf c =ThenText4.Text = a * bElse If c ="/"ThenIf b = 0 ThenMsgBox“除數(shù)為0”elseText4.Text = a / bEnd IfEnd IfEnd Sub3 .通過單選按鈕和復(fù)選框控制文字的顯示 Command命 令的單擊事件的程序代碼是什么Private Sub Command1_Click()If Optionl.Value = True ThenLa

12、bell.FontName ="宋體”ElseIf Option2.Value = True ThenLabell.FontName ="華文仿宋”ElseIf Option3.Value = True ThenLabell.FontName =黑體ElseLabell.FontName ="楷體 _GB2312End If一If Option5.Value = True ThenLabell.FontSize = 24ElseIf Option6.Value = True ThenLabell.FontSize = 16ElseLabell.FontSize =

13、 8End If11實驗日期： If Checkl.Value = 1 ThenLabell.FontBold = TrueElseLabell.FontBold = FalseEnd IfIf Check2.Value = 1 ThenLabel1.FontItalic = TrueElseLabel1.FontItalic = FalseEnd If If Check3.Value = 1 ThenLabel1.FontUnderline = True ElseLabel1.FontUnderline = False End If If Check4.Value = 1 ThenLabel

14、1.FontStrikethru = True ElseLabel1.FontStrikethru = False End If End Sub實驗四循環(huán)程序設(shè)計一.實驗?zāi)康模? .理解循環(huán)程序設(shè)計的特點。2 .掌握常用的循環(huán)語句。3 .掌握常用的循環(huán)算法。4 .掌握圖片框、圖像框和計時器 二.實驗內(nèi)容：101 + 411,求 k 1 2.設(shè)計一條滾動的廣告字幕三.實驗結(jié)果：對象屬性設(shè)置#實驗日期:1.求和結(jié)果要求窗體載入時直接顯示，設(shè)置窗體的某 個屬性。對象屬性屬性值說明Form1AutoRedrawTrue窗體2.滾動字幕對象屬性屬性值說明Label1Caption“歡迎使用VB'

15、標(biāo)簽Timer1Interval1000時鐘四.實驗思考：1.求和的窗體載入事件的程序代碼是什么?Private Sub Form_Load()Dim k%, s!s = 0For k = 1 To 100s = s + 1 / kNext kFor k = 1 To 50s = s + kNext kPrint sEnd Sub2.滾動字幕的觸發(fā)時鐘控件的程序代碼是什么?Private Sub Timer1_Timer()If Labell.Left > Forml.Width ThenLabell.Left = 0ElseLabell.Left = Label1.Left + 100

16、End IfEnd Sub17實驗五數(shù)組程序設(shè)計.實驗?zāi)康模? .熟練掌握固定數(shù)組。2 .掌握動態(tài)數(shù)組。3 .掌握列表框和組合框。4 . 了解直線控件和形狀控件。.實驗內(nèi)容：1.設(shè)計一個程序，找出數(shù)組中的最大值、最小值， 并計算所有元素的平均值。在列表框中隨機產(chǎn)生10 個100到200之間的整數(shù)，在文本框中顯示結(jié)果信 息。界面如圖5-1所示。圖5-1窗體界面三.實驗結(jié)果：對象屬性設(shè)置對象屬性屬性值說明Label1Caption10個100到 200之間的整數(shù)標(biāo)簽Label2Caption最大值標(biāo)簽Label3Caption最小值標(biāo)簽Label4Caption平均值標(biāo)簽Command1Capti

17、on計算命令按鈕Text1 Text4 '"ext文本框四.實驗思考:1 .數(shù)組應(yīng)在過程內(nèi)還是過程外定義，定義的語句是什么？過程外定義Dim a(10) As Integer2 .在窗體載入時，在列表框中隨機產(chǎn)生10個整數(shù)，則程序代碼是什么？Private Sub Form_Load()Dim i%For i = 1 To 10a(i) = Int(Rnd * 101 + 100)List1.AddItem a(i)Next iEnd Sub3 .單擊命令按鈕，在文本框中顯示結(jié)果信息，則程序代碼是什么？Private Sub Command1_Click()Dim i As

18、Integer, max%,"min%, avg!max = a(1)min = a(1)avg = 0For i = 1 To 10If max < a(i) Then max = a(i)實驗日期：If min > a(i) Then min = a(i) avg = avg + a(i)Next iavg = avg / 10Textl.Text = maxText2.Text = minText3.Text = avgEnd Sub#實驗六過程程序設(shè)計一.實驗?zāi)康模? .掌握子過程的定義和調(diào)用方法。2 .掌握函數(shù)過程的定義和調(diào)用方法。3 .理解作用域和生存期。4

19、.掌握滾動條。2 .實驗內(nèi)容：1 .寫兩個函數(shù)，分別求兩個數(shù)的最大公約數(shù)和最小 公倍數(shù)，編寫子過程求最大公約數(shù)，函數(shù)過程求 最小公倍數(shù)。要求從文本框中輸入兩個數(shù)。界面 如圖6-1所示。1F工I. | 0 |'X |最大公約數(shù)I一一;二;最小公倍數(shù)|子過程|函數(shù)過程|圖6-12 .設(shè)計一個用滾動條改變圖片背景色的程序。界面 如圖6-2所示實驗日期:圖6-23 .實驗結(jié)果：對象屬性設(shè)置1.結(jié)果要求單擊命令按鈕分別顯示，設(shè)置對象的屬 性。對象屬性屬性值說明Labellcaptionm標(biāo)簽Label2captionn標(biāo)簽Label3caption最大公約數(shù)標(biāo)簽Label4caption最小公倍

20、數(shù)標(biāo)簽Textl-Text4text”，文本框Command'1 caption子過程命令按鈕Command；c caption函數(shù)過程命令按鈕2.設(shè)置滾動條主要屬性值。對象屬性屬性值說明HScroll1-HScroll3min0滾動條HScroll1-HScroll3max255滾動條四.實驗思考:1 .單擊子過程命令按鈕，在文本框 Text3中顯示結(jié)果 信息，子過程的程序代碼是什么？Private Sub Command1_Click()Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Tex

21、t If m < n Then t = m: m = n: n = tEnd IfCall gys(m, n, r)Text3.Text = rEnd SubPrivate Sub gys(ByVal m%, ByVal n%, r%) r = m Mod nDo While r <> 0 m = n n = r r = m Mod nLoop r = nEnd Sub19實驗日期:2 .單擊函數(shù)過程命令按鈕，在文本框Text4中顯示結(jié)果信息，函數(shù)過程的程序代碼是什么？Private Sub Command2_Click()Dim m As Integer, n As Int

22、eger, p As Integer m = Text1.Text n = Text2.Text p = m * n If m < n Then t = m: m = n: n = tEnd Ifp = p / gbs(m, n)Text4.Text = pEnd SubPrivate Function gbs(m As Integer, n As Integer)As IntegerDim r As Integer r = m Mod nDo While r <> 0 m = n n = r r = m Mod nLoop gbs = n 20實驗日期：End Functi

23、on3 .拖動滾動條的滑塊，可改變圖片控件的背景顏色， 三個滾動條的程序代碼相似，請寫出 HScrollI的事 件過程。Dim r As Integer, g As Integer, b As IntegerPrivate Sub HScroll1_Change()r = HScroll1.Valueg = HScroll2.Valueb = HScroll3.ValueText1.BackC010r = RGB(r, g, b)End Sub實驗七界面設(shè)計1 .實驗?zāi)康模? .掌握多窗體程序設(shè)計的方法。2 .掌握下拉式菜單。3 . 了解通用對話框。2 .實驗內(nèi)容：1 .編寫密碼登錄系統(tǒng)。在窗體1輸入用戶名和密碼， 如果密碼正確就彈出第二個窗體，第二個窗體自行設(shè)計操作內(nèi)容；如果密碼不正確，彈出信息框， 顯示”用戶名或密碼錯誤，請重新輸入”，回到窗體1繼續(xù)輸入用戶名和密碼。密碼輸入有三次 機會，超過三次就彈出第三個窗口，顯示”對不 起，你不能使用該系統(tǒng)！” (注：凡是文字提示內(nèi)容21實驗日期：可自行設(shè)計，不要求與題目一樣。三個窗體界面可參照圖7-1 圖7-2圖7-3所示。）圖7-11 Fcr*2d恭喜你！密碼輸入正確！圖7-223回區(qū)對不起！你不能使用該系統(tǒng)7-32.利用通用對話框設(shè)計一個簡