VB實(shí)驗(yàn)參考答案.doc

呼倫貝爾學(xué)院計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院實(shí) 驗(yàn) 報(bào) 告課程名稱_班級(jí)_姓名_ 學(xué)號(hào)_ _實(shí)驗(yàn)地點(diǎn)_指導(dǎo)教師_成績(jī)_20實(shí)驗(yàn)日期：實(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集成開發(fā)環(huán)境各窗口、菜單的一般功能。4.熟悉建立、編輯、運(yùn)行、保存一個(gè)簡(jiǎn)單的VB應(yīng)用程序的全過程。5.了解文本框、標(biāo)簽框、命令按鈕的構(gòu)造及其屬性、事件和方法。二實(shí)驗(yàn)內(nèi)容：1設(shè)計(jì)一個(gè)簡(jiǎn)單的應(yīng)用程序，要求在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和兩個(gè)命令按鈕編一程序，并把命令按鈕分別設(shè)置為“顯示”和“清除”。程序運(yùn)行后，單擊“顯示”按鈕，在文本框中輸出一行信息；單擊“清除”按鈕，則清除文本框中的內(nèi)容，運(yùn)行界面如圖1.1所示。圖1.1 實(shí)驗(yàn)1-1 運(yùn)行界面三實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置對(duì)象屬性屬性值說明Form1caption我的第一個(gè)vb程序改變標(biāo)題內(nèi)容Label1captionxxxxx改變標(biāo)題內(nèi)容Text1textxxxxx設(shè)置文本框里的內(nèi)容Command1caption顯示改變標(biāo)題內(nèi)容Command2caption清除改變標(biāo)題內(nèi)容四實(shí)驗(yàn)思考：1.標(biāo)簽label控件設(shè)置的屬性代碼有哪些？Caption,autosize,backstyle,boderstyle2.兩個(gè)按鈕所使用的是什么事件？代碼分別是什么？Private Sub Command1_Click()Text1.text=“xxxxx”End SubPrivate Sub Command2_Click()Text1.text=“”End Sub實(shí)驗(yàn)二 簡(jiǎn)單程序設(shè)計(jì)數(shù)據(jù)類型及常用內(nèi)部函數(shù)的簡(jiǎn)單應(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)簽、五個(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)用設(shè)置標(biāo)題欄的文本。Command1caption溫度轉(zhuǎn)換設(shè)置標(biāo)題的文本。2. 三種除法運(yùn)算（/ 、Mod）做計(jì)算對(duì)象屬性屬性值說明Label1caption被除數(shù)設(shè)置標(biāo)題的文本。Label2caption除數(shù)設(shè)置標(biāo)題的文本。Label3caption浮點(diǎn)數(shù)設(shè)置標(biāo)題的文本。Label4caption整除數(shù)設(shè)置標(biāo)題的文本。Label5caption余數(shù)除設(shè)置標(biāo)題的文本。Command1caption執(zhí)行除法運(yùn)算設(shè)置標(biāo)題的文本。四實(shí)驗(yàn)思考：1.溫度轉(zhuǎn)換中的Command1命令的單擊事件的程序代碼是什么？Private Sub Command1_Click()Dim f, c As Single f = Val(InputBox(請(qǐng)輸入華氏溫度：, 華氏溫度, 100) c = 5 / 9 * (f - 32) MsgBox (轉(zhuǎn)化后的攝氏度為：) & c End Sub2. 用三種除法運(yùn)算（/ 、Mod）做計(jì)算，說明三種除法的區(qū)別？/ ： : 保留整數(shù)部分，不保留小數(shù)部分Mod:求余數(shù)。3. 三種除法運(yùn)算（/ 、Mod）做計(jì)算，Command1命令的單擊事件的程序代碼是什么？Private Sub Command1_Click()Dim a，b As Singlea = Val(Text1.Text)b = Val(Text2.Text)Text3.Text = a / bText4.Text = a bText5.Text = a Mod bEnd Sub實(shí)驗(yàn)三 選擇程序設(shè)計(jì)一實(shí)驗(yàn)?zāi)康模?.掌握單分支與雙分支條件語句的使用。2.掌握多分支條件語句（If Then ElseIf）的使用。 3.掌握Select Case語句的使用及與多分支條件語句的區(qū)別。4.熟練掌握時(shí)間過程的編寫方法。二實(shí)驗(yàn)內(nèi)容：1.設(shè)計(jì)一個(gè)模擬簡(jiǎn)易計(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所示。 圖3-1圖3-2三實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1.模擬簡(jiǎn)易計(jì)算器對(duì)象屬性屬性值說明Label1caption輸入數(shù)1設(shè)置標(biāo)題內(nèi)容Label2caption運(yùn)算器設(shè)置標(biāo)題內(nèi)容Label3caption輸入數(shù)2設(shè)置標(biāo)題內(nèi)容Label4caption結(jié)果設(shè)置標(biāo)題內(nèi)容Command1captionCase結(jié)構(gòu)設(shè)置標(biāo)題內(nèi)容Command2captionIf結(jié)構(gòu)設(shè)置標(biāo)題內(nèi)容Text1-text4text“”設(shè)置文本框中包含的文本2.單選框與復(fù)選框?qū)ο髮傩詫傩灾嫡f明Frame1caption字體設(shè)置標(biāo)題內(nèi)容Frame2caption字號(hào)設(shè)置標(biāo)題內(nèi)容Frame3caption字型設(shè)置標(biāo)題內(nèi)容Label1caption奧林匹克運(yùn)動(dòng)會(huì)設(shè)置標(biāo)題內(nèi)容Option1caption宋體設(shè)置標(biāo)題內(nèi)容Option2caption仿宋設(shè)置標(biāo)題內(nèi)容Option3caption黑體設(shè)置標(biāo)題內(nèi)容Option4caption楷體設(shè)置標(biāo)題內(nèi)容Option5caption大設(shè)置標(biāo)題內(nèi)容Option6caption中設(shè)置標(biāo)題內(nèi)容Option7caption小設(shè)置標(biāo)題內(nèi)容Check1caption加粗設(shè)置標(biāo)題內(nèi)容Check2caption傾斜設(shè)置標(biāo)題內(nèi)容Check3caption下劃線設(shè)置標(biāo)題內(nèi)容Check4caption刪除線設(shè)置標(biāo)題內(nèi)容四實(shí)驗(yàn)思考：1. 模擬簡(jiǎn)易計(jì)算器Command1命令的單擊事件的程序代碼是什么？Private Sub Command1_Click()Dim x, y, z As Single, k As Stringx = Val(Text1.Text)y = Val(Text3.Text)k = Text2.TextSelect Case kCase +z = x + yCase -z = x - yCase *z = x * yCase /z = x / yIf y = 0 ThenMsgBox (除數(shù)不能為零)Text3.Text = Text3.SetFocusElsez = x / yEnd IfEnd SelectText4.Text = zEnd Sub2. 模擬簡(jiǎn)易計(jì)算器Command2命令的單擊事件的程序代碼是什么？Private Sub Command2_Click()Dim x, y, z As Single, k As Stringx = Val(Text1.Text)y = Val(Text3.Text)k = Text2.TextIf k = + Thenz = x + yElseIf k = - Thenz = x - yElseIf k = * Thenz = x * yElseIf k = / ThenIf y = 0 ThenMsgBox (除數(shù)不能為零)Text3.Text = Text3.SetFocusElsez = x / yEnd IfEnd IfText4.Text = zEnd Sub3. 通過單選按鈕和復(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 = 楷體_GB2312End 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 = FalseEnd IfIf Check3.Value = 1 Then Text1.FontUnderline = TrueElse Text1.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)語句。 3掌握常用的循環(huán)算法。4掌握?qǐng)D片框、圖像框和計(jì)時(shí)器。1k1001k501+二實(shí)驗(yàn)內(nèi)容：1求2設(shè)計(jì)一條滾動(dòng)的廣告字幕。三實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1 求和結(jié)果要求窗體載入時(shí)直接顯示，設(shè)置窗體的某個(gè)屬性。對(duì)象屬性屬性值說明Form1caption“求和”這個(gè)窗體是求和用的2 滾動(dòng)字幕。對(duì)象屬性屬性值說明Label1caption“滾動(dòng)文字”填寫廣告詞Timer1interval1000每一秒運(yùn)行一次四實(shí)驗(yàn)思考：1求和的窗體載入事件的程序代碼是什么？Private Sub Form_Load()Dim k%, s1!, s2%, s%k = 1s1 = 0s2 = 0s = 0For k = 1 To 100s1 = s1 + 1 / kNext kPrint s1: & s1For k = 1 To 50s2 = s2 + kNext kPrint s2: & s2s = s1 + s2Print s: & s End Sub2滾動(dòng)字幕的觸發(fā)時(shí)鐘控件的程序代碼是什么？。Private Sub Timer1_Timer()If Label1.Left + Label1.Width 0 ThenLabel1.Move Label1.Left - 20ElseLabel1.Left = Form1.ScaleWidthEnd 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ì)象屬性屬性值說明Label1caption10個(gè)100到200之間的整數(shù)設(shè)置標(biāo)題內(nèi)容Label2caption最大值設(shè)置標(biāo)題內(nèi)容Label3caption最小值設(shè)置標(biāo)題內(nèi)容Label4caption平均值設(shè)置標(biāo)題內(nèi)容Command1caption計(jì)算設(shè)置標(biāo)題內(nèi)容Text1Text4text“”設(shè)置文本框文本屬性四實(shí)驗(yàn)思考：1數(shù)組應(yīng)在過程內(nèi)還是過程外定義，定義的語句是什么？Dim a(9) As Integer2在窗體載入時(shí)，在列表框中隨機(jī)產(chǎn)生10個(gè)整數(shù)，則程序代碼是什么？Private Sub Form_Load()For i = o To 9a(i) = Int(Rnd * (200 - 100 + 1) + 100)List1.AddItem Str(a(i)NextEnd Sub3單擊命令按鈕，在文本框中顯示結(jié)果信息，則程序代碼是什么？Private Sub Command1_Click()Dim max%, min%, average As Single, sum%max = 100min = 200sum = 0For i = 0 To 9If a(i) max Then max = a(i)If a(i) min Then min = a(i)sum = sum + a(i)Next iaverage = sum / 10Text1.Text = maxText2.Text = minText3.Text = averageEnd 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所示。圖6-12.設(shè)計(jì)一個(gè)用滾動(dòng)條改變圖片背景色的程序。界面如圖6-2所示圖6-2三實(shí)驗(yàn)結(jié)果：對(duì)象屬性設(shè)置1結(jié)果要求單擊命令按鈕分別顯示，設(shè)置對(duì)象的屬性。對(duì)象屬性屬性值說明Label1captionm設(shè)置標(biāo)題內(nèi)容Label2captionnLabel3caption最大公約數(shù)Label4caption最小公倍數(shù)Text1- Text4text“”Command1caption子過程Command2caption函數(shù)過程2設(shè)置滾動(dòng)條主要屬性值。對(duì)象屬性屬性值說明HScroll1- HScroll3 min0設(shè)置最小值HScroll1- HScroll3 max255設(shè)置最大值四實(shí)驗(yàn)思考：1單擊子過程命令按鈕，在文本框Text3中顯示結(jié)果信息，子過程的程序代碼是什么？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 gys(m, n, r) Text3.Text = rEnd SubPrivate Sub gys(ByVal m%, ByVal n%, r%) Do r = x Mod y If r = 0 Then z = y Exit Do End If x = y y = rLoopEnd Sub 2單擊函數(shù)過程命令按鈕，在文本框Text4中顯示結(jié)果信息，函數(shù)過程的程序代碼是什么？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 0 ThenLabel1.Move Label1.Left - 20ElseLabel1.Left = Picture1.ScaleWidthEnd IfEnd Sub實(shí)驗(yàn)七 界面設(shè)計(jì)一實(shí)驗(yàn)?zāi)康模?掌握多窗體程序設(shè)計(jì)的方法。2掌握下拉式菜單。3了解通用對(duì)話框。二實(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-1圖7-2圖7-3 2.利用通用對(duì)話框設(shè)計(jì)一個(gè)簡(jiǎn)單的文