VB實(shí)驗(yàn)報(bào)告(含答案)

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

2、文本框中的內(nèi)容，運(yùn)行界面如圖所示。圖實(shí)驗(yàn)1-1 運(yùn)行界面三.實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置對(duì)象屬性屬性值說明Form1caption我的個(gè)vb程序窗體Label1caption請(qǐng)輸入姓名標(biāo)簽Text1text文本框Command1caption顯示命令按鈕Command2caption清除命令按鈕四.實(shí)驗(yàn)思考:1 .標(biāo)簽label控件設(shè)置的屬性代碼有哪些="請(qǐng)輸入姓名”=24=True2 .兩個(gè)按鈕所使用的是什么事件代碼分別是什么Private Sub Command1_Click()=姓名End SubPrivate Sub Command2_Click()=" ”End Sub

3、實(shí)驗(yàn)二 簡單程序設(shè)計(jì)數(shù)據(jù)類型及常用內(nèi)部函數(shù)的簡單應(yīng)用.實(shí)驗(yàn)?zāi)康模? .掌握Visual Basic數(shù)據(jù)類型的基本概念。2 .掌握用Visual Basic的各種運(yùn)算符及表達(dá)式。3 .學(xué)習(xí)使用Visual Basic內(nèi)部函數(shù)和數(shù)據(jù)輸入、輸出方法。4 .掌握命令按鈕、文本框和標(biāo)簽。5 .設(shè)計(jì)順序程序。.實(shí)驗(yàn)內(nèi)容：1 .編寫一個(gè)華氏溫度和攝氏溫度之間的轉(zhuǎn)換程序，如圖2-2所示，要求用inputbox函數(shù)輸入華氏溫度,用msgbox輸出轉(zhuǎn)換后的攝氏溫度。轉(zhuǎn)換公式是： C= 5 / 9（F - 32> F為華氏溫度，C為攝氏溫度。2 .用三種除法運(yùn)算（/、Mod ）做計(jì)算。要求:在窗體上畫五個(gè)標(biāo)簽

4、、五個(gè)文本框和一個(gè)命令按鈕，如圖 2-2所示。程序運(yùn)行后，在第一個(gè)文 本框中輸入被除數(shù)，在第二個(gè)文本框中輸入除數(shù)，然后單擊命令按鈕，即可得到三種不同的相除結(jié)果。圖2-1圖2-2三.實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1.溫度轉(zhuǎn)換對(duì)象屬性屬性值說明Form1CaptionInputbox 與 msgbox 應(yīng)用窗體Command1Caption溫度轉(zhuǎn)換命令按鈕2.三種除法運(yùn)算(/、Mod)做計(jì)算對(duì)象屬性屬性值說明Label1Caption被除數(shù)標(biāo)簽Label2Caption除數(shù)標(biāo)簽Label3Caption浮點(diǎn)數(shù)標(biāo)簽Label4Caption整除數(shù)標(biāo)簽Label5Caption余數(shù)除標(biāo)簽Command1Cap

5、tion執(zhí)行除法運(yùn)算命令按鈕四.實(shí)驗(yàn)思考：1 .溫度轉(zhuǎn)換中的Commandl命令的單擊事件的程序代碼是什么Private Sub Command1_Click()Dim C!,F!F=val(inputbox(輸入華氏溫度”)C=39* (F-32)Msgbox對(duì)應(yīng)的攝氏溫度為：" & CEnd Sub2 .用三種除法運(yùn)算(/、 、Mod)做計(jì)算，說明三種除法的區(qū)別/:兩個(gè)數(shù)相除:兩個(gè)數(shù)整除Mod ：兩個(gè)數(shù)相除，得余數(shù)3 .三種除法運(yùn)算(/、 、Mod)做計(jì)算，Command1命令的單擊事件的程序代碼是什么Private Sub Command1_Click()Dim a!,

6、b!a=valb= val=a/b=ab =a mod bEnd Sub實(shí)驗(yàn)三選擇程序設(shè)計(jì).實(shí)驗(yàn)?zāi)康模? .掌握單分支與雙分支條件語句的使用。2 .掌握多分支條件語句(IfThenElself)的使用。3 .掌握Select Case語句的使用及與多分支條件語句的區(qū)別。4 .熟練掌握時(shí)間過程的編寫方法。.實(shí)驗(yàn)內(nèi)容：1 .設(shè)計(jì)一個(gè)模擬簡易計(jì)算器的程序，界面如圖3-1所示。要求：輸入兩個(gè)操作數(shù)和一個(gè)操作符，根據(jù)操作符決定所進(jìn)行的計(jì)算；如果除數(shù)為0,用msgbox提示出錯(cuò)信息；用if語句和selecet case語句兩種結(jié)構(gòu)實(shí)現(xiàn)。2 .通過單選按鈕和復(fù)選框控制文字的顯示，程序窗口如圖 3-2所示。圖

7、3-1圖3-2三.實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1.模擬簡易計(jì)算器對(duì)象屬性屬性值說明Label1Caption輸入數(shù)1標(biāo)簽Label2Caption運(yùn)算器標(biāo)簽Label3Caption輸入數(shù)2標(biāo)簽Label4Caption結(jié)果標(biāo)簽Command1CaptionCase結(jié)構(gòu)命令按鈕Command2Captionif結(jié)構(gòu)命令按鈕Text1-text4Text文本框2.單選框與復(fù)選框?qū)ο髮傩詫傩灾嫡f明Frame1Caption字體框架Frame2Caption字號(hào)框架Frame3Caption字型框架Label1Caption奧林匹克運(yùn)動(dòng)會(huì)標(biāo)簽Option1Caption宋體單選按鈕Option2Capti

8、on仿宋單選按鈕Option3Caption黑體單選按鈕Option4Caption楷體單選按鈕Option5Caption大單選按鈕Option6Caption中單選按鈕Option7Caption小單選按鈕Check1Caption加粗復(fù)選框Check2Caption傾斜復(fù)選框Check3Caption下劃線復(fù)選框Check4Caption刪除線復(fù)選框四.實(shí)驗(yàn)思考：1 .模擬簡易計(jì)算器Commandl命令的單擊事件的程序代碼是什么 Private Sub Command1_Click() Dim a!, b!Dim c As String a = Val b = Val c = Selec

9、t Case c Case +“ =a + b Case -' =a - b Case *" =a * b Case /"If b = 0 ThenMsgBox除數(shù)為0.”Else=a / bEnd IfEnd SelectEnd Sub2 .模擬簡易計(jì)算器Command2命令的單擊事件的程序代碼是什么Private Sub Command1_Click()Dim a!, b!Dim c As Stringa = Valb = Val c =If c = +“ Then=a + bElseIf c = -0' Then=a - bElseIf c = *&#

10、39;" Then=a * bElseIf c = /" ThenIf b = 0 ThenMsgBox除數(shù)為0”else=a / bEnd IfEnd IfEnd Sub3 .通過單選按鈕和復(fù)選框控制文字的顯示，Command1命令的單擊事件的程序代碼是什么Private Sub Command1_Click()If = True Then=朱體”ElseIf = True Then=華文仿宋”ElseIf = True Then=黑體”Else=楷體 _GB2312”End IfIf = True Then=24ElseIf = True Then=16Else=8En

11、d IfIf = 1 Then=TrueElse=FalseEnd IfIf = 1 Then=TrueElse=FalseEnd IfIf = 1 Then=TrueElse=FalseEnd IfIf = 1 Then=TrueElse=FalseEnd IfEnd Sub實(shí)驗(yàn)四循環(huán)程序設(shè)計(jì)1 .實(shí)驗(yàn)?zāi)康模? .理解循環(huán)程序設(shè)計(jì)的特點(diǎn)。2 .掌握常用的循環(huán)語句。3 .掌握常用的循環(huán)算法。4 .掌握?qǐng)D片框、圖像框和計(jì)時(shí)器。2 .實(shí)驗(yàn)內(nèi)容：100d501 .求 E + E k1 k12.設(shè)計(jì)一條滾動(dòng)的廣告字幕。3 .實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1.求和結(jié)果要求窗體載入時(shí)直接顯示，設(shè)置窗體的某個(gè)屬性。

12、對(duì)象屬性屬性值說明Form1AutoRedrawTrue窗體2.滾動(dòng)字幕。對(duì)象屬性屬性值說明Label1Caption歡迎使用VB”標(biāo)簽Timer1Interval1000時(shí)鐘4 .實(shí)驗(yàn)思考：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.滾動(dòng)字幕的觸發(fā)時(shí)鐘控件的程序代碼是什么。Private Sub Timer1_Timer()If > Then=0Else=+

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

14、ption計(jì)算命令按鈕Text1Text4Text文本框四.實(shí)驗(yàn)思考：1.數(shù)組應(yīng)在過程內(nèi)還是過程外定義，定義的語句是什么 過程外定義Dim a(10) As Integer2 .在窗體載入時(shí)，在列表框中隨機(jī)產(chǎn)生10個(gè)整數(shù)，則程序代碼是什么Private Sub Form_Load()Dim i%Fori = 1 To 10a(i) = Int(Rnd * 101 + 100)a(i)Next iEnd Sub3 .單擊命令按鈕，在文本框中顯示結(jié)果信息，則程序代碼是什么Private Sub Command1_Click()Dim i As Integer, max%, min%, avg!ma

15、x = amin = aavg = 0Fori = 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 / 10=max=min=avgEnd Sub實(shí)驗(yàn)六過程程序設(shè)計(jì).實(shí)驗(yàn)?zāi)康模? .掌握子過程的定義和調(diào)用方法。2 .掌握函數(shù)過程的定義和調(diào)用方法。3 .理解作用域和生存期。4 .掌握滾動(dòng)條。.實(shí)驗(yàn)內(nèi)容：1.寫兩個(gè)函數(shù)，分別求兩個(gè)數(shù)的最大公約數(shù)和最小公倍數(shù)，編寫子過程求最大公約數(shù)，函數(shù)過程求最 小公倍數(shù)。要求從文本框中入兩個(gè)數(shù)。界面如圖6-1

16、所示。 Fotb.1|C |X Ian最關(guān)公髭通 I I I a I a u a ft a u n一;最小公倍數(shù)于過程I國敬過程卜圖6-12.設(shè)計(jì)一個(gè)用滾動(dòng)條改變圖片背景色的程序。界面如圖6-2所示巨叵區(qū)I圖6-2三.實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1.結(jié)果要求單擊命令按鈕分別顯示，設(shè)置對(duì)象的屬性。對(duì)象屬性屬性值說明Label1captionm標(biāo)簽Label2captionn標(biāo)簽Label3caption最大公約數(shù)標(biāo)簽Label4caption最小公倍數(shù)標(biāo)簽Text1- Text4text”，文本框Command1caption子過程命令按鈕Command2caption函數(shù)過程命令按鈕2.設(shè)置滾動(dòng)條主

17、要屬性值。對(duì)象屬性屬性值說明HScroll1- HScroll3min0滾動(dòng)條HScroll1- HScroll3max255滾動(dòng)條四.實(shí)驗(yàn)思考：1 .單擊子過程命令按鈕，在文本框Text3中顯示結(jié)果信息，子過程的程序代碼是什么Private Sub Command1_Click()Dim m As Integer, n As Integer, r As Integer m = n =If m < n Then t = m: m = n: n = tEnd IfCall gys(m, n, r) =rEnd SubPrivate Sub gys(ByVal m%, ByVal n%, r

18、%) r = m Mod n Do While r <> 0 m = n n = r r = m Mod nLoop r = n End Sub2 .單擊函數(shù)過程命令按鈕，在文本框Text4中顯示結(jié)果信息，函數(shù)過程的程序代碼是什么Private Sub Command2_Click()Dim m As Integer, n As Integer, p As Integer m = n = p = m * n If m < n Then t = m: m = n: n = tEnd If p = p / gbs(m, n) =p End SubPrivate Function

19、gbs(m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod nDo While r <> 0 m = n n = r r = m Mod nLoop gbs = nEnd Function3 .拖動(dòng)滾動(dòng)條的滑塊，可改變圖片控件的背景顏色，三個(gè)滾動(dòng)條的程序代碼相似，請(qǐng)寫出HScrollI的事件過程。Dim r As Integer, g As Integer, b As IntegerPrivate Sub HScroll1_Change() r = g = b =RGB(r, g, b) End Sub實(shí)驗(yàn)七界面設(shè)計(jì)1 .實(shí)驗(yàn)?zāi)康模? .掌握多窗體程序設(shè)計(jì)的方法。2 .掌握下拉式菜單。3 . 了解通用對(duì)話框。2 .實(shí)驗(yàn)內(nèi)容：1 .編寫密碼登錄系統(tǒng)。在窗體 1輸入用戶名和密碼，如果密碼正確就彈出第二個(gè)窗體，第二個(gè)窗體自 行設(shè)計(jì)操作內(nèi)容；如果密碼不正確，彈出信息框，顯示 ”用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入 ”，回到 窗體1繼續(xù)輸入用戶名和密碼。密碼輸入有三次機(jī)會(huì)，超過三次就彈出第三個(gè)窗口，顯示”對(duì)不起，你不能使用該系統(tǒng)！”(注：凡是文字提示內(nèi)容可自行設(shè)計(jì)，不要求與題目一樣。三個(gè)窗體界面可參照?qǐng)D7-1 圖7-2圖7-3所示。)圖7-11.Fw2目叵區(qū)恭喜你！密碼輸入正確！圖7-2對(duì)不起！你不