實(shí)驗(yàn)報(bào)告模版(第二單元)剖析

1、VB程序設(shè)計(jì)實(shí)驗(yàn)單元二實(shí)驗(yàn)報(bào)告專業(yè)班級(jí)：1306姓名劉銘沂學(xué)號(hào)201324910602指導(dǎo)教師：王自強(qiáng)完成時(shí)間：2014.4.20實(shí)驗(yàn)五數(shù)組(1)一、實(shí)驗(yàn)?zāi)康?、掌握數(shù)組的常用操作和常用算法。2、掌握列表框和組合框的使用。3、掌握自定義函數(shù)和過(guò)程的定義和調(diào)用方法二、實(shí)驗(yàn)環(huán)境VB6.0三、實(shí)驗(yàn)內(nèi)容1、假設(shè)已使用DimNum(99)asinteger語(yǔ)句定義了一個(gè)數(shù)組，并且在該數(shù)組中存儲(chǔ)了100個(gè)學(xué)生的成績(jī)，請(qǐng)編寫(xiě)代碼在窗體上打印出最高分與最低分。2、從鍵盤(pán)上任意10個(gè)整數(shù)，然后按由大到小的順序顯示出來(lái)。3、編程求下列矩陣主對(duì)角線上的元素之和。廠123=456MaxThenMax=Num(i)If

2、Num(i)MaxThenMin=Num(i)Next1Print“最高分是：”&MaxPrint“最低分是：”&Min二建立十個(gè)TEXTBOX輸入以下代碼SubForm_Click()Dima(10)AsIntegerDimb%,i%,t%a(1)=Textl:a(2)=Text2:a(3)=Text3:a(4)=Text4:a(5)=Text5:a(6)=Text6:a(7)=Text7:a(8)=Text8:a(9)=Text9:a(10)=Text10Forb=1To9Fori=1To10-bIfa(i)a(i+1)Thent=a(i+1):a(i+1)=a(i):a(i)=tEndI

3、fNextiNextbPrinta(1);a(2);a(3);a(4);a(5);a(6);a(7);a(8);a(9);a(10)EndSub三.輸入以下代碼PrivateSubForm_Click()DimsAsIntegerDimiAsIntegerDimjAsIntegerDimd(3,3)AsIntegerDimnAsInteger先構(gòu)成矩陣的二維數(shù)組n=0Fori=1To3Forj=1To3n=n+1d(i,j)=nNextjNexti輸出矩陣Fori=1To3Forj=1To3Printd(i,j),NextjPrintNexti計(jì)算主對(duì)角線和并輸出s=0Fori=1To3For

4、j=1To3Ifi=jThens=s+d(i,j)NextjNextiPrintsEndSub五、實(shí)驗(yàn)結(jié)果育x|A麗Tei:t4Text?Forml兇2a(i+1)Then.+1)：a(i+1)=a(i):a(i)=t工程1-Forml(Code)丨oII回41|Form十|Clickd六、實(shí)驗(yàn)體會(huì)本次試驗(yàn)難度越來(lái)越高，我也經(jīng)過(guò)一番搜尋和借鑒才完成了本次試驗(yàn)，總體來(lái)說(shuō)對(duì)VB已經(jīng)感到壓力非常大。實(shí)驗(yàn)五數(shù)組（2）一、實(shí)驗(yàn)?zāi)康?、掌握列表框和組合框的使用。2、掌握自定義類型及數(shù)組的使用。二、實(shí)驗(yàn)環(huán)境VB6.0三、實(shí)驗(yàn)內(nèi)容1、設(shè)計(jì)一個(gè)如下圖所示的應(yīng)用程序。當(dāng)“預(yù)裝”復(fù)選框沒(méi)有被選定時(shí)，它下面的兩個(gè)單選

5、按鈕不能使用。如果單擊“確定”按鈕，則在列表框中顯示用戶所選擇的配置。2、設(shè)計(jì)一個(gè)選課的運(yùn)行界面。它包括2個(gè)列表框，左邊為已開(kāi)設(shè)的課程名稱，通過(guò)Form_Load事件加入。當(dāng)單擊某課程名稱后，將課程加入到右邊列表框，并在左邊列表框中刪除該課程。當(dāng)右邊課程數(shù)已滿5門(mén)時(shí)，不允許再加入。四、實(shí)驗(yàn)步驟依次輸入以下代碼DimflagAsBooleanFori=0ToCombo1.ListCount-1IfCombo1.List(i)=Combo1.TextThenflag=TrueExitForEndIfNextiIfflag=FalseThenCombo1.AddItemCombo1.TextEndS

6、ubPrivateSubCommand1_Click()List1.ClearIfCheck1.Value=1ThenList1.AddItemCombo1.TextList1.AddItemText1.TextEndIfIfCheck2.Value=1ThenIfOption1ThenList1.AddItemOption1.CaptionElseList1.AddItemOption2.CaptionEndIfEndIfEndSub二PrivateSubForm_Load()List1.ClearList1.AddItemc程序設(shè)計(jì)List1.AddItemVB程序設(shè)計(jì)List1.AddI

7、temJAVA程序設(shè)計(jì)List1.AddItem數(shù)據(jù)庫(kù)應(yīng)用List1.AddItem大學(xué)計(jì)算機(jī)基礎(chǔ)List1.AddItem網(wǎng)頁(yè)設(shè)計(jì)EndSubPrivateSubList1_Click()IfList2.ListCount=5ThenMsgBox(超過(guò)5門(mén)課程，不能再選)ExitSubElseList2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndIfEndSub五、實(shí)驗(yàn)結(jié)果aOK計(jì)算機(jī)品牌口操作系統(tǒng)Window=2000Win=5Then.超討町諜蜃不能再選)List2.AdiiltemLis11.Tei:tListl.Remove

8、ltemLis11.ListlndexEnd.IEEndSub立即點(diǎn)我設(shè)置巨申丁可畫(huà)六、實(shí)驗(yàn)體會(huì)本次VB試驗(yàn)的界面就非常難以設(shè)計(jì)，而試驗(yàn)代碼更加難以寫(xiě)就。經(jīng)過(guò)一番討教后我也終于完成了作業(yè)。實(shí)驗(yàn)七過(guò)程、實(shí)驗(yàn)?zāi)康?.掌握自定義函數(shù)和過(guò)程的定義和調(diào)用方法。2.掌握實(shí)參和形參之間的對(duì)應(yīng)關(guān)系。二、實(shí)驗(yàn)環(huán)境VB6.0三、實(shí)驗(yàn)內(nèi)容1、編一函數(shù)過(guò)程IsPrime(n),對(duì)于已知正整數(shù)n,判斷該數(shù)是否是素?cái)?shù)，函數(shù)的返回值類型為布爾型。主調(diào)程序毎輸入一個(gè)數(shù)，調(diào)用該函數(shù)過(guò)程，然后在圖形框中顯示輸入的數(shù)。對(duì)于素?cái)?shù)，顯示一個(gè)“”界面如下：2、分別用函數(shù)和子過(guò)程求表達(dá)式：111一二的和四、實(shí)驗(yàn)步驟一依次輸入以下代碼二依次輸入以下代碼Functionsum(ByValnAsInteger)AsSingleDimiAsIntegersum=0Fori=1Tonsum=sum+1/i八2NextiEndFunctionPrivateSubForm_Load()DimnAsIntegern=FxaKInputBoxC請(qǐng)輸入你要求和的項(xiàng)數(shù):)MsgBoxT+1/&n&A2=&sum(n)EndSubPrivateFunctionIsZ(ByValkAsLong)AsBooleanDimiAsLongFori=2ToSqr(k)IfkModi=0ThenIsZ=FalseExitFunctionEndIfNextiIs