VB數(shù)組應(yīng)用實驗報告.doc

實驗名稱： VB程序設(shè)計 實驗類別： 課 程 上 機 適用專業(yè)： 計算機科學與技術(shù) 姓名： 徐申毅 實 驗 報 告一、 內(nèi)容 數(shù)組及應(yīng)用 二、 目的 （1）掌握一維數(shù)組和二維數(shù)組的定義及引用方法 （2）掌握動態(tài)數(shù)組的定義和使用 （3）能應(yīng)用數(shù)組解決一些常見問題，如復(fù)雜統(tǒng)計，平均值，排序和查找等。三、 設(shè)計思路（1） 首先定義一個一維數(shù)組生成10個二位數(shù)，假設(shè)第一個數(shù)為最大數(shù)，讓第二個數(shù)與第一個數(shù)比大小，若大于，則交換值，循環(huán)至最后一個數(shù)，求出最大值，然后求和算出平均值，用選擇法進行排序，Private Sub cmdinsert_Click() 數(shù)據(jù)插入，x = Val(InputBox(輸入要插入的數(shù)據(jù)：)，將新的數(shù)組進行排序。（2） 定義二維數(shù)組，i為行數(shù)，j為列數(shù)；n為輸出的行數(shù)， 第一列和主對角線為1s(i, 1) = 1， s(i, i) = 1；For i = 3 To n For j = 2 To i - 1， s(i, j) = s(i - 1, j - 1) + s(i - 1, j)實現(xiàn)每一個數(shù)等于它上面一行的同一列與前一列數(shù)之和。（3） 定義動態(tài)數(shù)組，ReDim Preserve a(n) 動態(tài)存儲數(shù)組a增加1個元素，前n-1個元素值保持不變。然后用冒泡法對數(shù)組中的元素進行排序，輸出排序后的結(jié)果。四、 源程序Option Base 1Option ExplicitDim a(11) As Integer 定義數(shù)組Private Sub cmdcreat_Click() 產(chǎn)生的一維數(shù)組 Dim i As Integer Picture1.Cls Picture1.Print 產(chǎn)生的一維數(shù)組為： Randomize For i = 1 To 10 a(i) = Int(Rnd * 20 + 10) Picture1.Print a(i); Next i Picture1.PrintEnd SubPrivate Sub cmdmax_Click() 求最大元數(shù)及所在的位置 Dim max As Integer, p As Integer, i As Integer max = a(1) 假設(shè)第一元素就是最大元素 p = 1 For i = 2 To 10 If a(i) max Then max = a(i) p = i End If Next i Picture1.Print Picture1.Print 第 & p; 個元素 & a(p) & 為最大元素End SubPrivate Sub cmdave_Click() 計算平均值 Dim ave As Single, i As Integer For i = 1 To 10 ave = ave + a(i) Next i ave = ave / 10 Picture1.Print Picture1.Print 產(chǎn)生的隨機數(shù)平均值為： & aveEnd SubPrivate Sub cmdsort_Click() 使用選擇法排序 Dim i%, j%, p%, t% For i = 1 To 9 p = i For j = i + 1 To 10 If a(p) a(j) Then p = j Next j t = a(i): a(i) = a(p): a(p) = t Next i Picture1.Print Picture1.Print 排序后的一維數(shù)組為： For i = 1 To 10 Picture1.Print a(i); Next i Picture1.PrintEnd SubPrivate Sub cmdinsert_Click() 數(shù)據(jù)插入 Dim x%, p%, i% x = Val(InputBox(輸入要插入的數(shù)據(jù)：) p = 1 Do While x a(p) And p a(j) Then p = j Next j t = a(i) a(i) = a(p) a(p) = t Next i For i = 1 To n Text3.Text = Text3.Text & a(i) & Chr(13) + Chr(10) Next i End IfEnd Sub五、 結(jié)果（1） 隨機產(chǎn)生10個任意的二位正整數(shù)存放在一維數(shù)組中，求數(shù)組的最大值，平均值，能實現(xiàn)將數(shù)據(jù)按升序排列，并且使用InputBox函數(shù)插入一個新數(shù)據(jù)，使數(shù)組仍然按升序排列，結(jié)果顯示在圖片框中。（2） 打印楊輝三角形（楊輝三角形為一個下三角矩陣，每一行第一個元素和主對角線上元素都為1，其余每一個數(shù)正好等于它上面一行的同一列與前一列數(shù)之和）。（3） 輸入系列字符串，按升序排列輸出，要求：1：每輸入一個字符串，按回車鍵后即把