華北科技學(xué)院VB實(shí)驗(yàn)報(bào)告

華北科技學(xué)院計(jì)算機(jī)學(xué)院綜合性實(shí)驗(yàn)報(bào)告PAGE 第12頁(yè)華北科技學(xué)院計(jì)算機(jī)學(xué)院綜合性實(shí)驗(yàn)實(shí)驗(yàn)報(bào)告課程名稱(chēng)程序設(shè)計(jì)語(yǔ)言（VB）實(shí)驗(yàn)學(xué)期2013至2014學(xué)年第2學(xué)期學(xué)生所在系部環(huán)境工程學(xué)院年級(jí)2013級(jí)專(zhuān)業(yè)班級(jí)學(xué)生姓名學(xué)號(hào)任課教師實(shí)驗(yàn)成績(jī)計(jì)算機(jī)學(xué)院制

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

《程序設(shè)計(jì)語(yǔ)言（VB）》課程綜合性實(shí)驗(yàn)報(bào)告開(kāi)課實(shí)驗(yàn)室：基礎(chǔ)三2014年5月11日實(shí)驗(yàn)題目VisualBasic綜合應(yīng)用程序開(kāi)發(fā)一、實(shí)驗(yàn)?zāi)康恼莆諗?shù)組的應(yīng)用：數(shù)組的定義數(shù)組的基本操作，包括數(shù)組的輸入輸出、數(shù)組元素的比較、求平均值、數(shù)組的排序等。會(huì)使用過(guò)程編程和字符串操作sub過(guò)程的定義與調(diào)用function過(guò)程的定義調(diào)用字符串的大小寫(xiě)轉(zhuǎn)換操作掌握基本控件的使用包括常用標(biāo)準(zhǔn)控件的使用，如標(biāo)簽、按鈕、文本框、單選按鈕、滾動(dòng)條等。掌握菜單和工具欄的使用二、設(shè)備與環(huán)境硬件：多媒體計(jì)算機(jī)軟件：Windows2000以上的操作系統(tǒng)、VisualBasic集成開(kāi)發(fā)環(huán)境三、實(shí)驗(yàn)內(nèi)容先進(jìn)入歡迎界面，在屏幕上顯示"歡迎您使用本程序"，并彈出密碼框，等待輸入密碼。（5％）密碼正確后進(jìn)入系統(tǒng)主界面，主界面包括“數(shù)組應(yīng)用”、“過(guò)程應(yīng)用”、“控件應(yīng)用”和“退出”等菜單，并提供相關(guān)工具欄或命令按鈕。（10％）“數(shù)組應(yīng)用”菜單中包括“數(shù)組操作”子菜單，單擊此菜單，彈出“數(shù)組操作”對(duì)話(huà)框，如圖1所示。（35％，每個(gè)按鈕功能為5％）。題目描述如下：在名稱(chēng)為“數(shù)組操作”的窗體上有一個(gè)label控件，4個(gè)text控件及7個(gè)命令按鈕，功能如下：開(kāi)始啟動(dòng)工程時(shí)，界面上除“輸入”及“返回”按鈕之外，其他按鈕均不可用（灰色顯示）。單擊“輸入”按鈕之后，利用inputbox讓用戶(hù)連續(xù)且必須輸入10個(gè)整數(shù)。若輸入為非數(shù)字符號(hào)，則給出警告“輸入數(shù)據(jù)無(wú)效，請(qǐng)重新輸入，請(qǐng)輸入第n個(gè)數(shù)”。輸入完畢后，“輸入”按鈕變灰，其他變?yōu)榭捎脿顟B(tài)。按相應(yīng)的按鈕可分別將輸入的數(shù)據(jù)升序或降序排列，及求最大、最小值，并在右側(cè)對(duì)應(yīng)的文本框中顯示（注意用A（10）存放最大數(shù)，A（1）存放最小數(shù)）。單擊“清空”按鈕將所有文本框清空?！斑^(guò)程應(yīng)用”菜單中包括“字符轉(zhuǎn)換”子菜單，單擊此菜單，彈出“字符轉(zhuǎn)換”對(duì)話(huà)框，如圖2所示，要求必須將“大小寫(xiě)轉(zhuǎn)換”功能定義為一個(gè)sub過(guò)程，通過(guò)調(diào)用該過(guò)程完成大小寫(xiě)轉(zhuǎn)換。（25％）題目描述如下：在“字符轉(zhuǎn)換”窗體上有兩個(gè)文本框、三個(gè)單選按鈕和一個(gè)命令按鈕。運(yùn)行時(shí)，在text1中輸入若干個(gè)大寫(xiě)和小寫(xiě)字母，并選中一個(gè)單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標(biāo)題進(jìn)行轉(zhuǎn)換，結(jié)果放入text2。單擊“控件應(yīng)用”菜單，彈出“數(shù)學(xué)運(yùn)算”對(duì)話(huà)框，如圖3所示。（25%）題目描述如下：在“數(shù)學(xué)運(yùn)算”窗體上有一個(gè)名稱(chēng)為cmd1、標(biāo)題為“計(jì)算”的命令按鈕；兩個(gè)水平滾動(dòng)條，名稱(chēng)為hs1和hs2，其max屬性均為100，min屬性為1；四個(gè)標(biāo)簽，名稱(chēng)為lab1、lab2、lab3和lab4，標(biāo)題分別為“運(yùn)算數(shù)1”、“運(yùn)算數(shù)2”、“運(yùn)算結(jié)果”和空白；此外還有一個(gè)包含四個(gè)單選按鈕的控件數(shù)組，名稱(chēng)為opt1，標(biāo)題為“+”、“-”、“*”和“/”。程序運(yùn)行后，移動(dòng)兩個(gè)滾動(dòng)條中的滾動(dòng)框，用滾動(dòng)條的當(dāng)前值作為運(yùn)算數(shù)，如果選中一個(gè)單選按鈕，然后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果將顯示在lab4中。單擊“退出”菜單，退出程序運(yùn)行。四、實(shí)驗(yàn)結(jié)果及分析1.工程資源管理器窗口：系統(tǒng)組成情況圖1工程資源管理器2.歡迎窗體：圖2歡迎界面(1)計(jì)時(shí)器控件（timer1）:實(shí)現(xiàn)字幕移動(dòng)PrivateSubForm_Load()Timer1.Interval=100Timer1.Enabled=TrueLabel2.Tag="1"Timer2.Interval=500EndSubPrivateSubTimer1_Timer()IfLabel1.Left<Val(Form1.Width)ThenLabel1.Left=Label1.Left+100ElseLabel1.Left=0-Val(Label1.Width)EndIfEndSub（2）計(jì)時(shí)器控件（timer2）:實(shí)現(xiàn)字幕閃爍PrivateSubTimer2_Timer()DimctlAsControlForEachctlInMeIfTypeOfctlIsLabelAndctl.Tag="1"Thenctl.Visible=Notctl.VisibleEndIfNextEndSub(3)form的click事件：進(jìn)入登錄界面PrivateSubForm_Click()Form2.ShowUnloadMeEndSub3、登錄窗體圖3登錄界面PrivateSubCommand1_Click()IfText1.Text="123"AndText2="123"Theni=MsgBox("歡迎使用",0+64,"正常登錄")Form3.ShowUnloadMeElsei=MsgBox("賬號(hào)或密碼錯(cuò)",0+16,"錯(cuò)誤提示")EndEndIfEndSub4.功能選擇圖4功能選擇界面PrivateSubForm_Load()Option1.Value=FalseOption2.Value=FalseOption3.Value=FalseEndSubPrivateSubOption1_Click()Form4.ShowUnloadMeEndSubPrivateSubOption2_Click()Form5.ShowUnloadMeEndSubPrivateSubOption3_Click()Form6.ShowUnloadMeEndSubPrivateSubcz_Click()Form4.ShowEndSubPrivateSubsm_Click()Form7.ShowEndSubPrivateSubtc_Click()EndEndSubPrivateSubysq_Click()Form6.ShowEndSubPrivateSubzf_Click()Form5.ShowEndSubPrivateSubCommand1_Click()EndEndSub5.數(shù)組應(yīng)用圖5數(shù)組應(yīng)用界面Dima(1To10)AsIntegerPrivateSubCommand2_Click()i=MsgBox("確定要返回嗎",1+48,"提示")Text1.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text3.Text=""Form4.HideForm3.ShowCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubCommand3_Click()Text1.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text3.Text=""EndSubPrivateSubCommand4_Click()Min=a(1)Fori=1To10Ifa(i)<MinThenMin=a(i)EndIfNextiText3.Text=Val(Min)EndSubPrivateSubCommand5_Click()Max=a(10)Fori=1To10Ifa(i)>MaxThenMax=a(i)EndIfNextiText6.Text=Val(Max)EndSubPrivateSubCommand6_Click()n=UBound(a)Fori=1Ton-1Forj=i+1TonIfa(j)>a(i)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiFori=1TonText5.Text=Text5.Text+Str(a(i))NextiEndSubPrivateSubForm_Load()Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseEndSubPrivateSubCommand1_Click()Fori=1To10m=InputBox("請(qǐng)輸入第"&i&"個(gè)值")IfNotIsNumeric(m)ThenMsgBox"輸入數(shù)據(jù)無(wú)效，請(qǐng)重新輸入,請(qǐng)輸入第"&i&"個(gè)值",64m=InputBox("請(qǐng)輸入第"&i&"個(gè)值")EndIfa(i)=mText1.Text=Text1.Text&m&vbTabIfiMod5=0ThenText1.Text=Text1.Text&vbCrLfNextiCommand1.Enabled=FalseCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueEndSubPrivateSubCommand7_Click()n=UBound(a)Fori=1Ton-1Forj=i+1TonIfa(j)<a(i)Thent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiFori=1TonText4.Text=Text4.Text+Str(a(i))NextiEndSub6.字符應(yīng)用圖6字符應(yīng)用界面PrivateSubCommand1_Click()Dimn$,i%IfOption2ThenText2=UCase(Text1)IfOption3ThenText2=LCase(Text1)IfOption1ThenText2=""Fori=1ToLen(Text1)n=Mid(Text1,i,1)IfAsc(n)>=97Thenn=UCase(n)Elsen=LCase(n)EndIfText2=Text2&nNextiEndIfEndSubPrivateSubCommand2_Click()i=MsgBox("確定要返回嗎",1+48,"提示")Text1=""Text2=""Form5.HideForm3.ShowEndSub7.計(jì)算器圖7計(jì)算器界面OptionExplicitDimW%,pAsSinglePrivateSubCommand2_Click()MsgBox"確定要返回嗎",1+48,"提示"HScroll1.Value=1HScroll2.Value=1Label4.Caption=""Label5.Caption=""Label6.Caption=""Form6.HideForm3.ShowEndSubPrivateSubForm_Load()Option1(0).Value=TrueEndSubPrivateSubHScroll1_Change()Label5.Caption=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Label5.Caption=HScroll1.ValueEndSubPrivateSubHScroll2_Change()Label6.Caption=HScroll2.ValueEndSubPrivateSubHScroll2_Scroll()Label6.Caption=HScroll2.ValueEndSubPrivateSubOption1_Click(IndexAsInteger)W=IndexEndSubPrivateFunctionY(aAsInteger,BAsInteger)AsSingleSelectCaseWCase0Y=a+BCase1Y=a-BCase2Y=a*BCaseElseY=a/BEndSelectEndFunctionPrivateSubCommand1_Click()p=Y(HScroll1.Value,HScroll2.Value)IfOption1(0).Value=TrueThenLabel4.Caption=HScroll1.Value&Option1(0).Caption&HScroll2.Value&"="&pEndIfIfOption1(1).Value=TrueThenLabel4.Caption=HScroll1.Value&Option1(1).Caption&HScroll2.Value&"="&p