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

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

2、 .輸入以下代碼Dim Max As IntegerDim Min As IntegerMax=Num(0)Min=Num(0)For i= 1 To 99If Num(i)>Max Then Max = Num(i)If Num(i)<Max Then Min = Num(i)Next 1Print "最高分是：”& MaxPrint "最低分是：”& Min二.建立十個(gè) TEXTBOX輸入以下代碼Sub Form_Click()Dim a(10) As IntegerDim b%, i%, t%a(1) = Text1: a(2) = Tex

3、t2: a(3) = Text3: a(4) = Text4: a(5) = Text5: a(6) = Text6: a(7)=Text7: a(8) = Text8: a(9) = Text9: a(10) = Text10For b = 1 To 9For i = 1 To 10 - bIf a(i) > a(i + 1) Thent = a(i + 1): a(i + 1) = a(i): a(i) = tEnd IfNext iNext bPrint a;a;a;a;a;a(6); a;a(8); a(9); a(10)End Sub三.輸入以下代碼Private Sub Fo

4、rm_Click()Dim s As IntegerDim i As IntegerDim j As IntegerDim d(3, 3) As IntegerDim n As Integer'先構(gòu)成矩陣的二維數(shù)組n = 0Fori = 1 To 3Forj = 1 To 3n = n + 1d(i, j) = nNext jNext i輸出矩陣Fori = 1 To 3Forj = 1 To 3Print d(i, j),Next jPrintNext i計(jì)算主對(duì)角線(xiàn)和并輸出s = 0Fori = 1 To 3Forj = 1 To 3If i = j Then s = s + d(

5、i, j)Next jNext iPrint sEnd Sub五、實(shí)驗(yàn)結(jié)果E GEMATTHEW六、實(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、掌握自定義類(lèi)型及數(shù)組的使用二、實(shí)驗(yàn)環(huán)境三、實(shí)驗(yàn)內(nèi)容1、設(shè)計(jì)一個(gè)如下圖所示的應(yīng)用程序。當(dāng)“預(yù)裝”復(fù)選框沒(méi)有被選定時(shí)，它下面 的兩個(gè)單選按鈕不能使用。如果單擊“確定”按鈕，則在列表框中顯示用戶(hù)所選 擇的配置。2、設(shè)計(jì)一個(gè)選課的運(yùn)行界面。它包括 2個(gè)列表框，左邊為已開(kāi)設(shè)的課程名稱(chēng)， 通過(guò)Form_Load事件加入。當(dāng)單擊某課程名稱(chēng)后

6、，將課程加入到右邊列表框，并在左邊列表框中刪除該課程。當(dāng)右邊課程數(shù)已滿(mǎn) 5門(mén)時(shí)，不允許再加入。Fa- t|Fx供選課程我選的課程JAVA程序設(shè)計(jì) 數(shù)據(jù)庫(kù) 大學(xué)計(jì)算機(jī)基礎(chǔ) 網(wǎng)頁(yè)設(shè)計(jì)四、實(shí)驗(yàn)步驟依次輸入以下代碼Dim flag As BooleanFor i = 0 To - 1If (i) = Thenflag = TrueExit ForEnd IfNext iIf flag = False ThenEnd SubPrivate Sub Command1_Click()If = 1 ThenEnd IfIf = 1 ThenIf Option1 ThenElseEnd IfEnd IfEnd

7、Sub二.Private Sub Form_Load()"c程序設(shè)計(jì)""VB程序設(shè)計(jì)""JAVA程序設(shè)計(jì)"”數(shù)據(jù)庫(kù)應(yīng)用"”大學(xué)計(jì)算機(jī)基礎(chǔ)”"網(wǎng)頁(yè)設(shè)計(jì)"End SubPrivate Sub List1_Click()If >= 5 ThenMsgBox ("超過(guò)5門(mén)課程，不能再選")Exit SubElseEnd IfEnd Sub五、實(shí)驗(yàn)結(jié)果£lfl Mxi ME 乜01福修)|1d|嗎H I7HL 二晚的 ya :熱電*_I用 二片干tl網(wǎng)厘 二謝，這毋部弟源4uiL

8、I nilJE-a! 3*1 尾上iit， ii »乜" kiiti 4伸”n ribs ：4i Lipk1,口:i r川 I ul Li idl LlMLi*j S ，3中廠出一H TWV二苗 如E M Qis =iE&Lle:I Th口虱 1. li” Li”liwi1111sl - f orail fCadtf!z向。日hMl mC Iri)六、頭驗(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)

9、境三、實(shí)驗(yàn)內(nèi)容1、編一函數(shù)過(guò)程IsPrime (n)對(duì)于已知正整數(shù)n,判斷該數(shù)是否是素?cái)?shù)，函數(shù)的返回值類(lèi)型為布爾型。主調(diào)程序每輸入一個(gè)數(shù),調(diào)用該函數(shù)過(guò)程，然后在圖形框中顯示輸入的數(shù)。對(duì)于素?cái)?shù)，顯示一個(gè)界面如下:2、分別用函數(shù)和子過(guò)程求表達(dá)式:的和四、實(shí)驗(yàn)步驟.依次輸入以下代碼二依次輸入以下代碼Function sum(ByVal n As Integer) As SingleDim i As Integersum = 0For i = 1 To nsum = sum + 1 / i A 2Next iEnd FunctionPrivate Sub Form_Load()Dim n As Int

10、egern = Fix(Val(InputBox("請(qǐng)輸入你要求和的項(xiàng)數(shù)：")MsgBox "1+.+1/" & n & "A2=" & sum(n)End SubPrivate Function IsZ(ByVal k As Long) As BooleanDim i As LongFor i = 2 To Sqr(k)If k Mod i = 0 ThenIsZ = FalseExit FunctionEnd IfNext iIsZ = TrueEnd FunctionPrivate Sub Command1_Click()Print Choose(2 + IsZ(Text1), " ", "") & Text1End SubiLREl -的 5餐1版 癡心 ItETTjF+U Sm rft£. 也總 2罰 K4 IM1 町 94地 M叱 *訃-k M z W B ; 2W.Wfl 判中 1m%X*|l - Mieravm VlHuil kMK |ia>|