李欣桐程序設(shè)計語言(vb)實驗報告

華北科技學(xué)院計算機學(xué)院綜合性實驗報告PAGE 第1頁華北科技學(xué)院計算機學(xué)院綜合性實驗實驗報告課程名稱程序設(shè)計語言（VB）實驗學(xué)期2013至2014學(xué)年第2學(xué)期學(xué)生所在院部管理學(xué)院年級大一專業(yè)班級會計B134學(xué)生姓名李欣桐學(xué)號201304044438任課教師于詠霞實驗成績計算機學(xué)院制

實驗報告須知學(xué)生上交實驗報告時，必須為打印稿（A4紙）。頁面空間不夠，可以順延。學(xué)生應(yīng)該填寫的內(nèi)容包括：封面相關(guān)欄目、實驗地點、時間、目的、設(shè)備環(huán)境、內(nèi)容、結(jié)果及分析等。教師應(yīng)該填寫的內(nèi)容包括：實驗成績、教師評價等。教師根據(jù)本課程的《綜合性實驗指導(dǎo)單》中實驗內(nèi)容的要求，評定學(xué)生的綜合性實驗成績；要求在該課程期末考試前將實驗報告交給任課教師。綜合性實驗中，所涉及的程序，文檔等在交實驗報告前，拷貝給任課教師。任課教師統(tǒng)一刻錄成光盤，與該課程的期末考試成績一同上交到系里存檔。未盡事宜，請參考該課程的實驗大綱和教學(xué)大綱。

《程序設(shè)計語言（VB）》課程綜合性實驗報告開課實驗室：基礎(chǔ)實驗室2014年6月10日實驗題目VisualBasic綜合應(yīng)用程序開發(fā)一、實驗?zāi)康恼莆諗?shù)組的應(yīng)用：數(shù)組的定義數(shù)組的基本操作，包括數(shù)組的輸入輸出、數(shù)組元素的比較、求平均值、數(shù)組的排序等。會使用過程編程和字符串操作sub過程的定義與調(diào)用function過程的定義調(diào)用字符串的大小寫轉(zhuǎn)換操作掌握基本控件的使用包括常用標(biāo)準(zhǔn)控件的使用，如標(biāo)簽、按鈕、文本框、單選按鈕、滾動條等。掌握菜單和工具欄的使用二、設(shè)備與環(huán)境硬件：多媒體計算機軟件：Windows2000以上的操作系統(tǒng)、VisualBasic集成開發(fā)環(huán)境三、實驗內(nèi)容先進入歡迎界面，在屏幕上顯示"歡迎您使用本程序"，并彈出密碼框，等待輸入密碼。（5％）密碼正確后進入系統(tǒng)主界面，主界面包括“數(shù)組應(yīng)用”、“過程應(yīng)用”、“控件應(yīng)用”和“退出”等菜單，并提供相關(guān)工具欄或命令按鈕。（10％）“數(shù)組應(yīng)用”菜單中包括“數(shù)組操作”子菜單，單擊此菜單，彈出“數(shù)組操作”對話框，如圖1所示。（35％，每個按鈕功能為5％）。題目描述如下：在名稱為“數(shù)組操作”的窗體上有一個label控件，4個text控件及7個命令按鈕，功能如下：開始啟動工程時，界面上除“輸入”及“返回”按鈕之外，其他按鈕均不可用（灰色顯示）。單擊“輸入”按鈕之后，利用inputbox讓用戶連續(xù)且必須輸入10個整數(shù)。若輸入為非數(shù)字符號，則給出警告“輸入數(shù)據(jù)無效，請重新輸入，請輸入第n個數(shù)”。輸入完畢后，“輸入”按鈕變灰，其他變?yōu)榭捎脿顟B(tài)。按相應(yīng)的按鈕可分別將輸入的數(shù)據(jù)升序或降序排列，及求最大、最小值，并在右側(cè)對應(yīng)的文本框中顯示（注意用A（10）存放最大數(shù)，A（1）存放最小數(shù)）。單擊“清空”按鈕將所有文本框清空?！斑^程應(yīng)用”菜單中包括“字符轉(zhuǎn)換”子菜單，單擊此菜單，彈出“字符轉(zhuǎn)換”對話框，如圖2所示，要求必須將“大小寫轉(zhuǎn)換”功能定義為一個sub過程，通過調(diào)用該過程完成大小寫轉(zhuǎn)換。（25％）題目描述如下：在“字符轉(zhuǎn)換”窗體上有兩個文本框、三個單選按鈕和一個命令按鈕。運行時，在text1中輸入若干個大寫和小寫字母，并選中一個單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標(biāo)題進行轉(zhuǎn)換，結(jié)果放入text2。單擊“控件應(yīng)用”菜單，彈出“數(shù)學(xué)運算”對話框，如圖3所示。（25%）題目描述如下：在“數(shù)學(xué)運算”窗體上有一個名稱為cmd1、標(biāo)題為“計算”的命令按鈕；兩個水平滾動條，名稱為hs1和hs2，其max屬性均為100，min屬性為1；四個標(biāo)簽，名稱為lab1、lab2、lab3和lab4，標(biāo)題分別為“運算數(shù)1”、“運算數(shù)2”、“運算結(jié)果”和空白；此外還包含四個單選按鈕，標(biāo)題為“+”、“-”、“*”和“/”。程序運行后，移動兩個滾動條中的滾動框，用滾動條的當(dāng)前值作為運算數(shù)，如果選中一個單選按鈕，然后單擊命令按鈕，相應(yīng)的計算結(jié)果將顯示在lab4中。單擊“退出”菜單，退出程序運行。四、實驗結(jié)果及分析歡迎及密碼界面（1）程序代碼PrivateSubCommand1_Click()IfText1.Text="4438"ThenForm2.ShowElseMsgBox("密碼錯誤")EndIfEndSubPrivateSubForm_Load()EndSub輸入密碼“4438”點擊登錄進入主界面如果密碼錯誤則彈出窗口。主界面主界面包括數(shù)組應(yīng)用，過程應(yīng)用，空間應(yīng)用，退出菜單及其子菜單。（2）程序代碼PrivateSubForm_Load()EndSubPrivateSub過程應(yīng)用_Click()Form4.ShowEndSubPrivateSub控件應(yīng)用_Click()Form5.ShowEndSubPrivateSub數(shù)組應(yīng)用_Click()Form3.ShowEndSubPrivateSub退出_Click()EndEndSub數(shù)組應(yīng)用界面（3）程序代碼Dimmark(1To10)AsIntegerPrivateSubCommand1_Click()n=UBound(mark)Fori=1Ton-1Forj=i+1TonIfmark(j)<mark(i)Thent=mark(i):mark(i)=mark(j):mark(j)=tEndIfNextjNextiFori=1TonText1=Text1&mark(i)&","NextiEndSubPrivateSubCommand2_Click()n=UBound(mark)Fori=1Ton-1Forj=i+1TonIfmark(j)>mark(i)Thent=mark(i):mark(i)=mark(j):mark(j)=tEndIfNextjNextiFori=1TonText2=Text2&mark(i)&","NextiEndSubPrivateSubCommand3_Click()Max=mark(10)Fori=1To10Ifmark(i)>MaxThenMax=mark(i)NextiText3.Text=Val(Max)EndSubPrivateSubCommand4_Click()Min=mark(1)Fori=1To10Ifmark(i)<MinThenMin=mark(i)NextiText4.Text=Val(Min)EndSubPrivateSubCommand5_Click()Fori=1To10v=InputBox("請輸入第"&i&"個整數(shù)")IfNotIsNumeric(v)ThenMsgBox"輸入數(shù)據(jù)無效，請重新輸入，請輸入第"&i&"個數(shù)",vbInformationv=InputBox("請輸入第"&i&"個整數(shù)")EndIfmark(i)=vNextiCommand5.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand1.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueEndSubPrivateSubCommand6_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand7_Click()Form3.HideForm2.ShowEndSubPrivateSubForm_Load()Command5.Enabled=TrueCommand6.Enabled=FalseCommand7.Enabled=TrueCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseEndSub數(shù)組界面有7個按鈕，4個text，當(dāng)按輸入按鈕時，會彈出輸入框。輸入的不是數(shù)字會彈出提示框。輸入成功10數(shù)字，點擊升序排列，降序排列，最大值，最小值后會在相應(yīng)text中顯示結(jié)果。點擊清除，即可清除text中的數(shù)字。點擊返回，即可返回至主界面。字符轉(zhuǎn)換界面（4）程序代碼Dima,bDimn%PrivateSubCommand1_Click()IfOption1Thenn=Len(Text1)Fori=1Tonmeik=Mid(Text1,i,1)If"a"<kAndk<"z"Thenb=UCase(k)ElseIf"A"<kAndk<"Z"Thenb=LCase(k)EndIfText2=Text2&bNextiEndIfIfOption2ThenText2.Text=bEndIfIfOption3ThenText2.Text=bEndIfEndSubPrivateSubCommand2_Click()Form5.HideForm2.ShowEndSubPrivateSubForm_Load()EndSubPrivateSubOption2_Click()a=Text1.Textb=UCase(a)EndSubPrivateSubOption3_Click()a=Text1.Textb=LCase(a)EndSub字符轉(zhuǎn)換界面中用到了frame和optionbutton，當(dāng)用戶選中frame中的選項時，再按轉(zhuǎn)換按鈕時就會把text1中的小寫字母轉(zhuǎn)換成大寫字母到text2中。數(shù)學(xué)運算界面（5）程序代碼Dima,b,cAsSinglePrivateSubCommand1_Click()Label4.Caption=""IfOption1ThenLabel4.Caption=a&"+"&b&"="&cEndIfIfOption2ThenLabel4.Caption=a&"-"&b&"="&cEndIfIfOption3ThenLabel4.Caption=a&"*"&b&"="&cEndIfIfOption4ThenLabel4.Caption=a&"/"&b&"="&cEndIfEndSubPrivateSubCommand2_Click()Form2.ShowEndSubPrivateSubHScroll1_Change()a=HScroll1.ValueLabel5.Caption=HScroll1.ValueEndSubPrivateSubHScroll2_Change()b=HScroll2.ValueLabel6.Caption=HScroll2.ValueEndSubPrivateSubLabel1_Click()EndSubPrivateSubOption1_Click()c=a+bEndSubPrivateSubOption2_Click()c=a-bEndSubPrivateSubOption3_Click()c=a*bEndSubPrivateSubOption4_Click()c=a/bEndSub數(shù)學(xué)運算界面中用到hscrollbar，左下角有+，-，*，/四個選項，按下計算按鈕，運算式顯示運算結(jié)果后面。也用到label，command，optionbutton。實驗收獲和體會在學(xué)習(xí)初期，VB對我來說是從未接觸過的新事物，開始無法入門，但經(jīng)過不懈的努力，我終于攻克了。首先，要保持良好的學(xué)習(xí)心態(tài)，要積極自信主動學(xué)習(xí)，樹立自信心。其次，要有良好的學(xué)習(xí)習(xí)慣，課前預(yù)習(xí)，上課緊跟老師步伐