VB程序設(shè)計實驗四.doc

信 息 工 程 學(xué) 院實驗報告的內(nèi)容與格式按任課教師的要求書寫。 程序設(shè)計基礎(chǔ)(VB) 實驗/實習(xí)報告學(xué)院:動物科技學(xué)院班級:動科123姓名:王珂學(xué)號:2012010848 成績:A實習(xí)四、數(shù)組與自定義數(shù)據(jù)類型1、 實驗/實習(xí)過程T1代碼設(shè)計：Private Sub Command1_Click() Dim C(0 To 7) A = Array(1, 3, 5, 2, 4, 18, 50, 25) B = Array(5, 27, 30, 35, 60, 41, 87, 33) For i = 0 To 7 C(i) = A(i) + B(i) Next Print a(), b(), c() For i = 0 To 7 Print A(i), B(i), C(i) NextEnd Sub運(yùn)行結(jié)果：T2代碼設(shè)計：Private Sub Command1_Click() Dim a() As Integer n = Val(Text1.Text) m = Val(Text2.Text) ReDim a(1 To n, 1 To m) As Integer For i = 1 To n For j = 1 To m a(i, j) = Int(Rnd * 901) Picture1.Print Tab(5 * (j - 1) + 2); a(i, j); Next Next r = 1: c = 1 For i = 1 To n For j = 1 To m If a(r, c) a(i, j) Then r = i c = j End If Next Next Print 矩陣中的最大值為： & a(r, c) Print Print 位置： & r & 行, & c & 列 End Sub運(yùn)行結(jié)果：T3代碼設(shè)計：Private Sub Command1_Click() Dim a(1 To 10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) Picture1.Print a(i); Next Picture1.Print Print For i = 1 To 5 t = a(i) a(i) = a(11 - i) a(11 - i) = t Next Picture1.Print 調(diào)換后的數(shù)組： For i = 1 To 10 Picture1.Print a(i); NextEnd Sub運(yùn)行結(jié)果：T4代碼設(shè)計：Private Sub Command1_Click() Dim A() As Single Dim B(5 To 9) As Integer n = Val(InputBox(請輸入學(xué)生人數(shù)：) ReDim A(1 To n) For i = 1 To n A(i) = Round(Rnd * 61 + 40, 1) Next For i = 1 To n Select Case A(i) Case Is 60 B(5) = B(5) + 1 Case Is 70 B(6) = B(6) + 1 Case Is 80 B(7) = B(7) + 1 Case Is 90 B(8) = B(8) + 1 Case Is = 100 B(9) = B(9) + 1 End Select NextPicture1.Print 不及格有; B(5); 人 For i = 6 To 9 Picture1.Print i * 10; 到; i * 10 + 9; 之間有; B(i); 人 NextEnd Sub運(yùn)行結(jié)果：T5代碼設(shè)計：Private Sub Command1_Click() a = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2) b = Array(1, 0, X, 9, 8, 7, 6, 5, 4, 3, 2) c = Text1.Text If Len(c) 17 Then MsgBox 你輸入的位數(shù)不夠 Exit Sub End If s = 0 For i = 0 To 16 t = Val(Mid(c, i + 1, 1) s = s + t * a(i) Next d = s Mod 11 Picture1.Print 第十八位編碼是： & b(d)End Sub運(yùn)行結(jié)果：T7代碼設(shè)計：Private Sub Command1_Click() Dim a(1 To 15) a(1) = Chr(Int(Rnd * 26 + 65) n = 1 Do While n a(j).q Then l = j End If Next t = a(l) a(l) = a(i) a(i) = t Next Picture1.Print Picture1.Print Tab(10); 校運(yùn)動會100米成績表 Picture1.Print String(30, ) For i = 1 To 10 Picture1.Print 第 & i & 名, a(i).q & 號, a(i).p & 秒 NextEnd Sub運(yùn)行結(jié)果：2、 實驗/實習(xí)總結(jié)T1，使用了數(shù)組，以及數(shù)組間的加法運(yùn)算。T2，產(chǎn)生了隨機(jī)數(shù)組，使用了IF結(jié)構(gòu)以及FOR NEXT 結(jié)構(gòu)。T3，同T2，并且進(jìn)行了數(shù)組間的調(diào)換，使用picture屬性比text感覺更方便。T4，套用了Select Case結(jié)構(gòu)進(jìn)行條件判斷。T5，使用了Len函數(shù)對輸入位數(shù)進(jìn)行了判定。T7，在確定如何按條件執(zhí)行時想了很久，最后添加了一步判定ture o