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

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

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

3、1.text=“姓名” End SubPrivate Sub Command2_Click()Text1.text=”End Sub實(shí)驗(yàn)二 簡(jiǎn)單程序設(shè)計(jì)數(shù)據(jù)類(lèi)型及常用內(nèi)部函數(shù)的簡(jiǎn)單應(yīng)用一實(shí)驗(yàn)?zāi)康模?掌握Visual Basic數(shù)據(jù)類(lèi)型的基本概念。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編寫(xiě)一個(gè)華氏溫度和攝氏溫度之間的轉(zhuǎn)換程序，如圖2-2所示,要求用inputbox函數(shù)輸入華氏溫度，用msgbox輸出轉(zhuǎn)換后的攝氏溫度。轉(zhuǎn)換公式是：C= 5 / 9(F - 32

4、)。F為華氏溫度，C為攝氏溫度。 2.用三種除法運(yùn)算（/ 、Mod）做計(jì)算。 要求:在窗體上畫(huà)五個(gè)標(biāo)簽、五個(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ì)象屬性屬性值說(shuō)明Form1CaptionInputbox與msgbox應(yīng)用窗體Command1Caption溫度轉(zhuǎn)換命令按鈕2. 三種除法運(yùn)算（/ 、Mod）做計(jì)算對(duì)象屬性屬性值說(shuō)明Label1Caption被除數(shù)標(biāo)簽Label2Caption除數(shù)標(biāo)簽Label3Caption浮點(diǎn)數(shù)標(biāo)

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

6、碼是什么？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 Sub實(shí)驗(yàn)三 選擇程序設(shè)計(jì)一實(shí)驗(yàn)?zāi)康模?.掌握單分支與雙分支條件語(yǔ)句的使用。2.掌握多分支條件語(yǔ)句（If Then ElseIf）的使用。 3.掌握Select Case語(yǔ)句的使用及與多分支條件語(yǔ)句的區(qū)別。4.熟練掌握時(shí)間過(guò)程的編寫(xiě)方法。二實(shí)驗(yàn)內(nèi)容：1.設(shè)計(jì)一個(gè)模擬簡(jiǎn)易計(jì)算器的程序，界面如圖3-1所示。要求：輸入兩個(gè)操作數(shù)和一個(gè)操作符，根據(jù)操作符

7、決定所進(jìn)行的計(jì)算；如果除數(shù)為0，用msgbox提示出錯(cuò)信息；用if語(yǔ)句和selecet case語(yǔ)句兩種結(jié)構(gòu)實(shí)現(xiàn)。2.通過(guò)單選按鈕和復(fù)選框控制文字的顯示，程序窗口如圖3-2所示。 圖3-1圖3-2三實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1.模擬簡(jiǎn)易計(jì)算器對(duì)象屬性屬性值說(shuō)明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(shuō)明Frame1Caption字

8、體框架Frame2Caption字號(hào)框架Frame3Caption字型框架Label1Caption奧林匹克運(yùn)動(dòng)會(huì)標(biāo)簽Option1Caption宋體單選按鈕Option2Caption仿宋單選按鈕Option3Caption黑體單選按鈕Option4Caption楷體單選按鈕Option5Caption大單選按鈕Option6Caption中單選按鈕Option7Caption小單選按鈕Check1Caption加粗復(fù)選框Check2Caption傾斜復(fù)選框Check3Caption下劃線復(fù)選框Check4Caption刪除線復(fù)選框四實(shí)驗(yàn)思考：1. 模擬簡(jiǎn)易計(jì)算器Command1命令的單擊事

9、件的程序代碼是什么？Private Sub Command1_Click()Dim a!, b!Dim c As Stringa = Val(Text1.Text)b = Val(Text3.Text)c = Text2.TextSelect Case c Case “+” Text4.Text = a + b Case “-” Text4.Text = a - b Case “*” Text4.Text = a * b Case “/”If b = 0 Then MsgBox “除數(shù)為0.”ElseText4.Text = a / bEnd If End SelectEnd Sub2. 模擬

10、簡(jiǎn)易計(jì)算器Command2命令的單擊事件的程序代碼是什么？Private Sub Command1_Click()Dim a!, b!Dim c As Stringa = Val(Text1.Text)b = Val(Text3.Text)c = Text2.TextIf c = “+” Then Text4.Text = a + bElseIf c = “-” Then Text4.Text = a - bElseIf c = “*” Then Text4.Text = a * bElseIf c = “/” ThenIf b = 0 Then MsgBox “除數(shù)為0” else Text

11、4.Text = a / b End If End IfEnd Sub3. 通過(guò)單選按鈕和復(fù)選框控制文字的顯示,Command1命令的單擊事件的程序代碼是什么Private Sub Command1_Click()If Option1.Value = True Then Label1.FontName = “宋體”ElseIf Option2.Value = True Then Label1.FontName = “華文仿宋” ElseIf Option3.Value = True Then Label1.FontName = “黑體” Else Label1.FontName = “楷體_G

12、B2312”End IfIf Option5.Value = True Then Label1.FontSize = 24ElseIf Option6.Value = True Then Label1.FontSize = 16Else Label1.FontSize = 8End IfIf Check1.Value = 1 Then Label1.FontBold = TrueElse Label1.FontBold = FalseEnd IfIf Check2.Value = 1 Then Label1.FontItalic = TrueElse Label1.FontItalic = F

13、alseEnd IfIf Check3.Value = 1 Then Label1.FontUnderline = TrueElse Label1.FontUnderline = FalseEnd IfIf Check4.Value = 1 Then Label1.FontStrikethru = TrueElse Label1.FontStrikethru = FalseEnd IfEnd Sub實(shí)驗(yàn)四 循環(huán)程序設(shè)計(jì)一實(shí)驗(yàn)?zāi)康模?理解循環(huán)程序設(shè)計(jì)的特點(diǎn)。2掌握常用的循環(huán)語(yǔ)句。 3掌握常用的循環(huán)算法。4掌握?qǐng)D片框、圖像框和計(jì)時(shí)器。1k1001k501+二實(shí)驗(yàn)內(nèi)容：1求2設(shè)計(jì)一條滾動(dòng)的廣告字幕。

14、三實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1 求和結(jié)果要求窗體載入時(shí)直接顯示，設(shè)置窗體的某個(gè)屬性。對(duì)象屬性屬性值說(shuō)明Form1AutoRedrawTrue窗體2 滾動(dòng)字幕。對(duì)象屬性屬性值說(shuō)明Label1Caption“歡迎使用VB”標(biāo)簽Timer1Interval1000時(shí)鐘四實(shí)驗(yàn)思考：1求和的窗體載入事件的程序代碼是什么？Private Sub Form_Load() Dim k%, s!s = 0For k = 1 To 100 s = s + 1 / kNext kFor k = 1 To 50 s = s + kNext kPrint sEnd Sub2滾動(dòng)字幕的觸發(fā)時(shí)鐘控件的程序代碼是什么？。Priv

15、ate Sub Timer1_Timer()If Label1.Left Form1.Width Then Label1.Left = 0Else Label1.Left = Label1.Left + 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所示。圖5-1 窗體界面三實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置對(duì)象屬性屬性值說(shuō)明Label1

16、Caption 10個(gè)100到200之間的整數(shù)標(biāo)簽Label2Caption 最大值標(biāo)簽Label3Caption 最小值標(biāo)簽Label4Caption平均值標(biāo)簽Command1Caption計(jì)算命令按鈕Text1Text4Text“文本框四實(shí)驗(yàn)思考：1數(shù)組應(yīng)在過(guò)程內(nèi)還是過(guò)程外定義，定義的語(yǔ)句是什么？過(guò)程外定義Dim a(10) As Integer2在窗體載入時(shí)，在列表框中隨機(jī)產(chǎn)生10個(gè)整數(shù)，則程序代碼是什么？Private Sub Form_Load()Dim i%For i = 1 To 10 a(i) = Int(Rnd * 101 + 100) List1.AddItem a(i)N

17、ext iEnd Sub3單擊命令按鈕，在文本框中顯示結(jié)果信息，則程序代碼是什么？Private Sub Command1_Click()Dim i As Integer, max%, min%, avg!max = a(1)min = a(1)avg = 0For i = 1 To 10 If max a(i) Then min = a(i) avg = avg + a(i)Next iavg = avg / 10Text1.Text = maxText2.Text = minText3.Text = avgEnd Sub實(shí)驗(yàn)六 過(guò)程程序設(shè)計(jì)一實(shí)驗(yàn)?zāi)康模?掌握子過(guò)程的定義和調(diào)用方法。2掌握函

18、數(shù)過(guò)程的定義和調(diào)用方法。3理解作用域和生存期。4. 掌握滾動(dòng)條。二實(shí)驗(yàn)內(nèi)容：1.寫(xiě)兩個(gè)函數(shù)，分別求兩個(gè)數(shù)的最大公約數(shù)和最小公倍數(shù)，編寫(xiě)子過(guò)程求最大公約數(shù)，函數(shù)過(guò)程求最小公倍數(shù)。要求從文本框中輸入兩個(gè)數(shù)。界面如圖6-1所示。圖6-12.設(shè)計(jì)一個(gè)用滾動(dòng)條改變圖片背景色的程序。界面如圖6-2所示圖6-2三實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1結(jié)果要求單擊命令按鈕分別顯示，設(shè)置對(duì)象的屬性。對(duì)象屬性屬性值說(shuō)明Label1captionm標(biāo)簽Label2captionn標(biāo)簽Label3caption最大公約數(shù)標(biāo)簽Label4caption最小公倍數(shù)標(biāo)簽Text1- Text4text”“文本框Command1capti

19、on子過(guò)程命令按鈕Command2caption函數(shù)過(guò)程命令按鈕2設(shè)置滾動(dòng)條主要屬性值。對(duì)象屬性屬性值說(shuō)明HScroll1- HScroll3 min0滾動(dòng)條HScroll1- HScroll3 max255滾動(dòng)條四實(shí)驗(yàn)思考：1單擊子過(guò)程命令按鈕，在文本框Text3中顯示結(jié)果信息，子過(guò)程的程序代碼是什么？Private Sub Command1_Click() Dim m As Integer, n As Integer, r As Integer m = Text1.Text n = Text2.Text If m n Then t = m: m = n: n = t End If Call

20、 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 nLoopr = nEnd Sub 2單擊函數(shù)過(guò)程命令按鈕，在文本框Text4中顯示結(jié)果信息，函數(shù)過(guò)程的程序代碼是什么？Private Sub Command2_Click()Dim m As Integer, n As Integer, p As Integer m = Text1.Text n = Text2.Text p = m * n If m n

21、Then t = m: m = n: n = t End If p = p / gbs(m, n) Text4.Text = pEnd SubPrivate Function 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 nLoopgbs = nEnd Function3. 拖動(dòng)滾動(dòng)條的滑塊，可改變圖片控件的背景顏色，三個(gè)滾動(dòng)條的程序代碼相似，請(qǐng)寫(xiě)出HScroll1的事件過(guò)程。Dim r As Integer, g As Inte

22、ger, b As IntegerPrivate Sub HScroll1_Change()r = HScroll1.Valueg = HScroll2.Valueb = HScroll3.ValueText1.BackColor = RGB(r, g, b)End Sub實(shí)驗(yàn)七 界面設(shè)計(jì)一實(shí)驗(yàn)?zāi)康模?掌握多窗體程序設(shè)計(jì)的方法。2掌握下拉式菜單。3了解通用對(duì)話框。二實(shí)驗(yàn)內(nèi)容：1.編寫(xiě)密碼登錄系統(tǒng)。在窗體1輸入用戶(hù)名和密碼，如果密碼正確就彈出第二個(gè)窗體，第二個(gè)窗體自 行設(shè)計(jì)操作內(nèi)容；如果密碼不正確，彈出信息框，顯示”用戶(hù)名或密碼錯(cuò)誤，請(qǐng)重新輸入”，回到窗體1繼續(xù)輸入用戶(hù)名和密碼。密碼輸入有三次機(jī)會(huì)，超過(guò)三次就彈出第三個(gè)窗口，顯示”對(duì)不起，你不能使用該系統(tǒng)！”（注：凡是文字提示內(nèi)容可自行設(shè)計(jì)，不要求與題目一樣。三個(gè)窗體界面可參照?qǐng)D7-1 圖7-2 圖7-3所示。）圖7-1圖7-2圖7-3 2.利用通用對(duì)話框設(shè)計(jì)一個(gè)簡(jiǎn)單的文本編輯器，具有