VB程序設(shè)計(jì)課程實(shí)驗(yàn)報(bào)告(樣本參考一).doc

計(jì)算機(jī)與信息學(xué)院（VB程序設(shè)計(jì)課程）實(shí)驗(yàn)報(bào)告課程名稱(chēng)：VB程序設(shè)計(jì)教程姓 名：系：計(jì)算機(jī)與信息學(xué)院專(zhuān) 業(yè)：計(jì)算機(jī)應(yīng)用技術(shù)年 級(jí)：學(xué) 號(hào)：指導(dǎo)教師：職 稱(chēng)：200x 年 xx 月 xx 日實(shí)驗(yàn)項(xiàng)目列表序號(hào)實(shí)驗(yàn)項(xiàng)目名稱(chēng)成績(jī)指導(dǎo)教師1VB環(huán)境和程序設(shè)計(jì)初步2順序程序設(shè)計(jì)3選擇結(jié)構(gòu)程序設(shè)計(jì)4循環(huán)結(jié)構(gòu)程序設(shè)計(jì)及數(shù)組的運(yùn)用5過(guò)程6窗體和常用控件7常用控件8氣泡法排序程序9實(shí)驗(yàn)九10菜單設(shè)計(jì)和多文檔界面計(jì)算機(jī)與信息學(xué)院實(shí)驗(yàn)報(bào)告（一）Visual Basic環(huán)境和程序設(shè)計(jì)的初步一、 實(shí)驗(yàn)?zāi)康?、 了解Visual Basic系統(tǒng)對(duì)計(jì)算機(jī)軟件、硬件的要求。2、 掌握啟動(dòng)與退出Visual Basic的方法。3、 熟悉Visual Basic的集成開(kāi)發(fā)環(huán)境（IDE）。4、 掌握在窗體上添加控件的各種方法。5、 掌握建立、編輯、運(yùn)行和保存一個(gè)簡(jiǎn)單的Visual Basic應(yīng)用程序的全過(guò)程。二、 實(shí)驗(yàn)內(nèi)容1、 啟動(dòng)Visual Basic6.0,觀察標(biāo)題欄、菜單欄、工具欄與Microsoft其他應(yīng)用程序的不同之處；熟悉各個(gè)控件以及窗體設(shè)計(jì)和工程管理器窗口、屬性窗口、代碼窗口的功能、組成以及它們各種不同的打開(kāi)方法。2、 在窗體上畫(huà)一文本框個(gè)一個(gè)命令按鈕，在文本框中顯示“VB程序設(shè)計(jì)”。（1） 編寫(xiě)適當(dāng)事件過(guò)程，當(dāng)單擊命令按鈕時(shí)，文本框內(nèi)容消失。（2） 以解釋方式運(yùn)行程序。（3） 把程序保存。然后關(guān)掉該工程。裝入上面建立的程序，并在窗體上增加一個(gè)命令按鈕。當(dāng)單擊該命令按鈕，結(jié)束程序運(yùn)行。保存程序。（4） 把當(dāng)前程序編譯為可執(zhí)行文件。（5） 生成當(dāng)前工程并退出。在windows環(huán)境下運(yùn)行該工程。3、 創(chuàng)建一個(gè)“標(biāo)準(zhǔn)EXE”類(lèi)型的應(yīng)用程序。要求：在屏幕上顯示“歡迎您的到來(lái)！”，并請(qǐng)輸入您的名字。三、 實(shí)驗(yàn)環(huán)境 Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟1、 熟悉vb的環(huán)境。2、 先創(chuàng)建一個(gè)文本框和命令按鈕，并設(shè)置相應(yīng)的代碼如下：Private Sub Form_Load()Text1.Text = VB程序設(shè)計(jì)End SubPrivate Sub Command1_Click()Text1.Text = End Sub3、 創(chuàng)建兩個(gè)標(biāo)簽和一個(gè)文本框。在屬性窗口設(shè)置兩個(gè)標(biāo)簽的caption的值分別為：歡迎你的到來(lái)！和請(qǐng)留下您的尊姓大名：，并設(shè)置相應(yīng)的字體。五、 調(diào)試過(guò)程無(wú)錯(cuò)誤六、 實(shí)驗(yàn)結(jié)果1、 2、七、 總結(jié)答：從中的到的知識(shí)是更了解了VB集成開(kāi)發(fā)環(huán)境，掌握了在窗體上添加控件的各種方法。（二）順序程序設(shè)計(jì)一、 實(shí)驗(yàn)?zāi)康暮鸵?. 掌握常用內(nèi)部函數(shù)的使用2. 掌握表達(dá)式，賦值語(yǔ)句的正確書(shū)寫(xiě)規(guī)則3. 掌握InpueBox和MsgBox的使用二、 實(shí)驗(yàn)內(nèi)容和原理1. 用立即窗口試驗(yàn)每一個(gè)內(nèi)部函數(shù)的操作，并驗(yàn)證數(shù)值以及日期時(shí)間的各種格式化輸出方式。2. 創(chuàng)建如圖所示的應(yīng)用程序，要求：?jiǎn)螕舸绑w顯示如圖所示的圖形。3. 創(chuàng)建如圖所示的應(yīng)用程序，要求：?jiǎn)螕簟胺糯蟆卑粹o后，將文本中顯示的字符串放大倍；若單擊按鈕“還原”按鈕。則將文本框顯示的字符串大小返原。三、 實(shí)驗(yàn)環(huán)境Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟1. Private Sub Form_Click()Print Int(3.3); Spc(1);: Print Int(-5.3); Spc(1);: Print Fix(6.9); Spc(1);Print Fix(-7.6); Spc(1);: Print Round(7.5); Spc(1);: Print Round(-7.5); Spc(1);Print Hex(20); Spc(1);: Print Oct(20); Spc(1);: Print Asc(w); Spc(1);Print Chr(70); Spc(1);: Print Val(132); Spc(1);: Print Str(122); Spc(1)Print Sin(30); Spc(1);: Print Cos(30); Spc(1): Print Tan(45); Spc(1);Print Atn(453); Spc(1): Print Abs(-8); Spc(1);: Print Sgn(-4); Spc(1)Print Sqr(4); ; Spc(1);: Print Exp(6); Spc(1);: Print Log(4); Spc(1)Print Day(Now); Spc(1);: Print Month(Now); Spc(1);: Print Year(Now); Spc(1);Print Hour(Now); Spc(1);: Print Minute(Now); Spc(1);: Print Second(Now); Spc(1)Print Trim(wgx); Spc(1);: Print LTrim(wgxwgx); Spc(1);: Print RTrim(wgxwgx ); Spc(1);Print Left(wgx, 2); Spc(1);: Print Mid(wgxwgx, 2, 3); Spc(1);: Print Right(wgxgwx, 3); Spc(1);Print Len(wWgGxX); Spc(1);: Print String(3, 65); Spc(1);: Print InStr(wgxwGX, x); Spc(1)Print UCase(wgx); Spc(1);: Print LCase(WGX); Spc(1);End Sub2. Private Sub Form_Click()Print Tab(20); *Print Tab(20); * *Print Tab(20); *; Spc(4); *Print Tab(20); *; Spc(6); *Print Tab(20); *; Spc(8); *Print Tab(20); *; Spc(10); *Print Tab(20); *; Spc(12); *Print Tab(20); *; Spc(14); *Print Tab(20); * * * * * * * * *End Sub3. Private Sub Command1_Click()Text1.FontSize = 12Text1.FontSize = Int(Rnd * 2 + 2) * Text1.FontSizeEnd SubPrivate Sub Command2_Click() Text1.FontSize = 12End Sub五、 實(shí)驗(yàn)結(jié)果1.2.3. 六、 總結(jié)答:從這節(jié)實(shí)驗(yàn)中掌握了常用內(nèi)部函數(shù)的使用,還有表達(dá)式賦值語(yǔ)句的正確書(shū)寫(xiě)規(guī)則,掌握了Inputbox與MSGBOX的使用.(三)選擇結(jié)構(gòu)程序設(shè)計(jì)一、 實(shí)驗(yàn)?zāi)康暮鸵?. 掌握If條件語(yǔ)句的使用。2. 掌握情況語(yǔ)句的使用，以及情況語(yǔ)句與多分支條件語(yǔ)句的使用區(qū)別。二、 實(shí)驗(yàn)內(nèi)容和原理1. 請(qǐng)編一程序用于在期末時(shí)根據(jù)學(xué)生總分情況給于獎(jiǎng)勵(lì)，條件如下:四門(mén)總分不低與360分(含360分)，特等獎(jiǎng):四門(mén)總分320(含320分)360分(不含360分),優(yōu)秀獎(jiǎng):單科成績(jī)不低于95分,特別獎(jiǎng)。2. 輸入X,Y,Z三個(gè)數(shù),按從小到大的次序顯示出來(lái).要求:程序中不得使用循環(huán)結(jié)果和轉(zhuǎn)向語(yǔ)句;掌握兩個(gè)數(shù)據(jù)交換的方法。3. 編一個(gè)簡(jiǎn)易計(jì)算器的應(yīng)用程序。要求：掌握Select語(yǔ)句和If語(yǔ)句的正確使用；掌握對(duì)輸入數(shù)據(jù)合法性檢驗(yàn)的能力和當(dāng)輸入有錯(cuò)誤時(shí)出錯(cuò)處理的能力。三、 實(shí)驗(yàn)環(huán)境Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟1. Private Sub Command1_Click() Dim t1 As IntegerDim t2 As Integer Dim t3 As IntegerDim t4 As Integer Dim sum As Integer t1 = Val(Text1.Text) t2 = Val(Text2.Text) t3 = Val(Text3.Text) t4 = Val(Text4.Text) sum = t1 + t2 + t3 + t4 If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then MsgBox 請(qǐng)輸入成績(jī)值, 0, 成績(jī)不為空 ElseIf sum = 360 Then MsgBox 您獲得了特等獎(jiǎng), 0, 祝賀 ElseIf sum = 320 Then MsgBox 您獲得了優(yōu)秀獎(jiǎng), 0, 祝賀 ElseIf t1 = 95 Or t3 = 95 Or t3 = 95 Or t4 = 95 Then MsgBox 您獲得了特別獎(jiǎng), 0, 祝賀 End IfLabel2.Caption = t1 + t2 + t3 + t4End sub2. Dim t1 As IntegerDim t2 As IntegerDim t3 As IntegerDim temp As IntegerPrivate Sub Pro() t1 = Val(Text1.Text) t2 = Val(Text2.Text) t3 = Val(Text3.Text) If t1 t2 Then temp = t1 t1 = t2 t2 = temp End If If t1 t3 Then temp = t1 t1 = t3 t3 = temp End If If t2 t3 Then temp = t2 t2 = t3 t3 = temp End If Text4.Text = Str(t1) Text5.Text = Str(t2) Text6.Text = Str(t3)End SubPrivate Sub Text1_Change() Text1.Text = Val(Text1.Text) Call ProEnd SubPrivate Sub Text2_Change() Text2.Text = Val(Text2.Text) ProEnd SubPrivate Sub Text3_Change() Text3.Text = Val(Text3.Text) ProEnd Sub3. Dim oper As StringPrivate Sub Command1_Click() If Text1.Text = Or Text2.Text = Or Text3.Text = Then MsgBox 有某數(shù)沒(méi)有數(shù)值!, 5, 錯(cuò)誤提示 Else If Text3.Text = + Then Text4.Text = Str(Val(Text1.Text) + Val(Text2.Text) ElseIf Text3.Text = - Then Text4.Text = Str(Val(Text1.Text) - Val(Text2.Text) ElseIf Text3.Text = * Then Text4.Text = Str(Val(Text1.Text) * Val(Text2.Text) Else Text4.Text = Str(Val(Text1.Text) / Val(Text2.Text) End If End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Text1_Change() Text1.Text = Val(Text1.Text)End SubPrivate Sub Text2_Change() If Text3.Text = / Then If Val(Text2.Text) = 0 Then MsgBox 除數(shù)分母不能為零, 5, 錯(cuò)誤提示 Text2.Text = End If End IfEnd SubPrivate Sub Text3_Change() If Text3.Text = * Or Text3.Text = / Or Text3.Text = - Or Text3.Text = + Then Else MsgBox 運(yùn)算操作符有錯(cuò)誤!, 5, 錯(cuò)誤提示 Text3.Text = Text3.SetFocus End IfEnd Sub 五、 調(diào)試過(guò)程 無(wú)錯(cuò)誤。六、 實(shí)驗(yàn)結(jié)果1. 2.3.七、 總結(jié)答:從此此實(shí)驗(yàn)中掌握了IF語(yǔ)句的使用.掌握情況語(yǔ)句的使用,以及情況語(yǔ)句與多分支語(yǔ)句的使用區(qū)別.(四)循環(huán)結(jié)構(gòu)程序設(shè)計(jì)及數(shù)組的運(yùn)用一、 實(shí)驗(yàn)?zāi)康暮鸵?.掌握For語(yǔ)句的使用。2.掌握Do語(yǔ)句的各種形式的使用。3.掌握如何控制循環(huán)條件,防止死循環(huán)和不循環(huán)。4.掌握數(shù)組的聲明以及數(shù)組元素的引用。5.掌握靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組的使用差別。6.應(yīng)用數(shù)組解決與數(shù)組有關(guān)的常用算法問(wèn)題。二、 實(shí)驗(yàn)內(nèi)容和原理編程計(jì)算1-2+3-4+5-6+n的值，其中n由文本框輸入。運(yùn)行結(jié)果可參考如下圖。要求：掌握For語(yǔ)句的正確使用。三、 實(shí)驗(yàn)環(huán)境Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟Dim sum As LongPrivate Sub Command1_Click() If Val(Text1.Text) = 0 Then MsgBox 不能為零, 5, 錯(cuò)誤 ElseIf Val(Text1.Text) 6 Then For i = 1 To Val(Text1.Text) If i Mod 2 0 And i 1 Then Label2.Caption = Label2.Caption + + End If Label2.Caption = Label2.Caption + Str(-1) (i + 1) * i) Next Add Label2.Caption = Label2.Caption + Str(sum) Else Label2.Caption = 1-2+3-4+5+ If Val(Text1.Text) Mod 2 = 0 Then Label2.Caption = Label2.Caption + - + Text1.Text + = Else Label2.Caption = Label2.Caption + + + Text1.Text + = End If Add Label2.Caption = Label2.Caption + Str(sum) End IfEnd SubPrivate Sub Text1_LostFocus() Text1.Text = Str(Val(Text1.Text)End SubPrivate Sub Add() For i = 1 To Val(Text1.Text) sum = sum + (-1) (i + 1) * i NextEnd Sub五、 調(diào)試過(guò)程無(wú)錯(cuò)誤六、 實(shí)驗(yàn)結(jié)果七、 總結(jié)答:從此次實(shí)驗(yàn)中得到的是掌握了FOR語(yǔ)句的使用,還有的是DO語(yǔ)句的各種形式的使用,如何控制循環(huán)和防止死循環(huán)或不循環(huán).(五)過(guò) 程一、 實(shí)驗(yàn)?zāi)康暮鸵?1、掌握自定義函數(shù)過(guò)程和子過(guò)程的定義和調(diào)用方法。 2、掌握形參和實(shí)參的對(duì)應(yīng)關(guān)系。 3、掌握值傳遞和地址傳遞的傳遞方式。 4、掌握遞歸的概念和使用方法。二、 實(shí)驗(yàn)內(nèi)容和原理1、 編程計(jì)算的子過(guò)程和函數(shù)過(guò)程，并分別調(diào)用。要求：其中X和n的值由用戶(hù)給定。2、 編寫(xiě)函數(shù)S（m As Integer，n As Integer）As Long，此函數(shù)返回m+mm+mmm+mmm（n個(gè)m）的值。比如S（2，5）的返回值為2+22+222+2222+22222的值。運(yùn)行后的結(jié)果如圖所示。3、 編寫(xiě)遞歸函數(shù)求1+2+3+n的值，并顯示結(jié)果。其中n的值由用戶(hù)給定。三、 實(shí)驗(yàn)環(huán)境Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟Dim sum As LongPrivate Sub Command1_Click() Text2.Text = S Val(Text1.Text) If (Val(Text1.Text) = 3) Then Label1.Caption = 1+2+22+2 + Text1.Text + = Else For i = 0 To Val(Text1.Text) If i = Val(Text1.Text) Then Label1.Caption = Label1.Caption + Str(2 i) + = Else Label1.Caption = Label1.Caption + Str(2 i) + + End If Next End If Text2.Text = Str(sum)End SubPrivate Function S(count As Integer) As Long sum = 0 For i = 0 To count sum = sum + 2 i NextEnd Function五、 調(diào)試過(guò)程無(wú)錯(cuò)誤六、 實(shí)驗(yàn)結(jié)果七、 總結(jié)答：此次實(shí)驗(yàn)中得到的結(jié)果是掌握自定義函數(shù)過(guò)程和子過(guò)程的定義和調(diào)用方法。一、 實(shí)驗(yàn)?zāi)康暮鸵?掌握窗體與常用控件的重要屬性、事件和方法。二、 實(shí)驗(yàn)內(nèi)容和原理1. 設(shè)計(jì)一個(gè)界面，要求程序運(yùn)行時(shí)選中組合框中的某一項(xiàng)，將彈出對(duì)話(huà)框加以說(shuō)明。2. 在窗體上畫(huà)一個(gè)名稱(chēng)為HIS的水平滾動(dòng)條，標(biāo)題分別為：“左端”、“居中”、“右端”的命令按鈕。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行后，如果單擊“左端”，則滾動(dòng)條在最左端處，如果單擊“居中”，則滾動(dòng)條在最中間處如果單擊“右端”，則滾動(dòng)條在最右處，三、 實(shí)驗(yàn)環(huán)境Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟1. Private Sub Combo1_Click()MsgBox 我的興趣愛(ài)好是 + Combo1.Text, 0, 興趣愛(ài)好End Sub2. Private Sub Command1_Click(Index As Integer) HScroll1.Value = 0 End SubPrivate Sub Command2_Click()HScroll1.Value = 10End SubPrivate Sub Command3_Click(Index As Integer) HScroll1.Value = 5End Sub 五、 調(diào)試過(guò)程無(wú)錯(cuò)誤六、 實(shí)驗(yàn)結(jié)果1. 2. 七、 總結(jié)答：此次實(shí)驗(yàn)最重要的是掌握了窗體和常用控件的重要屬性、事件和方法（七）常用控件一、 實(shí)驗(yàn)?zāi)康暮鸵?掌握常用空間的重要屬性、時(shí)間和方法。二、 實(shí)驗(yàn)內(nèi)容和原理 1、在窗體上畫(huà)一個(gè)圖片框和兩個(gè)命令按鈕。程序運(yùn)行后，如果單擊“顯示圖片”命令按鈕，則在圖片框裝入一個(gè)用圖形編輯軟件（如Windows下的“畫(huà)圖”）畫(huà)的簡(jiǎn)單的圖形。單擊“清除圖片”按鈕，則清楚圖片框的圖形。 2、編寫(xiě)一個(gè)模擬秒表操作的程序，運(yùn)行時(shí)的界面如圖所示。程序運(yùn)行后，單擊“啟動(dòng)”按鈕，該按鈕變灰（不可用），在上面的標(biāo)簽中顯示開(kāi)始時(shí)間。過(guò)一會(huì)兒，單擊“停止”按鈕，該按鈕變灰，同時(shí)“啟動(dòng)”按鈕可用，并在中間標(biāo)簽中顯示當(dāng)前時(shí)間，在下面的標(biāo)簽中顯示經(jīng)過(guò)的時(shí)間三、 實(shí)驗(yàn)環(huán)境Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟1. Private Sub Command1_Click() Picture1.Picture = LoadPicture(E:VB實(shí)驗(yàn)圖片顯示49519_200702042023295.gif)End SubPrivate Sub Command2_Click() Picture1.Picture = LoadPictureEnd Sub2. Private Sub Command1_Click() Label2.Caption = DateTime.TimeEnd SubPrivate Sub Command2_Click() Timer1.Enabled = False Label4.Caption = DateTime.Time Label6.Caption = DateDiff(s, CDate(Label2.Caption), CDate(Label4.Caption)End SubPrivate Sub Timer1_Timer() Label4.Caption = DateTime.TimeEnd Sub五、 調(diào)試過(guò)程無(wú)錯(cuò)誤六、 實(shí)驗(yàn)結(jié)果1. 2.七、 總結(jié)答：在此次的實(shí)驗(yàn)中掌握了常用控件的重要一些屬性、事件和方法。（八）氣泡法排序程序一、 實(shí)驗(yàn)?zāi)康暮鸵髮?shí)現(xiàn)數(shù)組的賦值與大小的排列。二、 實(shí)驗(yàn)內(nèi)容和原理將相鄰兩個(gè)數(shù)進(jìn)行比較，按由小到大將這兩個(gè)數(shù)排好序，在將下一組數(shù)組進(jìn)行比較，依此處理，直到將最后兩個(gè)數(shù)比較并處理完畢。最大的數(shù)已換到最后位置。這是第一輪的比較處理。每進(jìn)行一輪，就把剩下的數(shù)中最大的一個(gè)移動(dòng)最后位置。共進(jìn)行若干輪。三、 實(shí)驗(yàn)環(huán)境Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟Sub form_click()Dim a(1 to 10) as integerPrint “要排序的數(shù)組為:”For i=1 to 10a (i)=inputbox(“請(qǐng)輸入10個(gè)整數(shù):”)Print tab (i*6);a(i);Next iPrint For i=1 to 9For j=to 10-iIf a(j)a(j+1) thenTemp=a(j)A(j)=a(j+1)A(j+1)=tempEnd ifNext jNext iPrint “排序后的數(shù)組為：” For i=1 to 10Print tab(i*6);a(i);Next iEnd sub 五、 調(diào)試過(guò)程無(wú)錯(cuò)誤六、 實(shí)驗(yàn)結(jié)果（九）一、 實(shí)驗(yàn)?zāi)康暮鸵蠖?實(shí)驗(yàn)內(nèi)容和原理三、 實(shí)驗(yàn)環(huán)境Microsoft Visual Basic 6.0 中文版四、 算法描述及實(shí)驗(yàn)步驟Private Sub Form_Click()Dim a(100, 100), n, i, j As Integern = InputBox(請(qǐng)輸入行數(shù):)For i = 1 To n For j = 1 To n a(0, 0) = 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j)Next j, iFor i = 1 To n For j = 1 To n Print Spc(5 - Len(Str(a(i, j); a(i, j); Next j PrintNext iEnd Sub五、 調(diào)試過(guò)程無(wú)錯(cuò)誤六、 實(shí)驗(yàn)結(jié)果 （十）菜單設(shè)計(jì)和多文檔界面一、 實(shí)驗(yàn)?zāi)康暮鸵蠖?實(shí)驗(yàn)內(nèi)容和原理設(shè)計(jì)