VB數(shù)組應(yīng)用實(shí)驗(yàn)報(bào)告

1、實(shí)驗(yàn)名稱： VB程序設(shè)計(jì) 實(shí)驗(yàn)類別： 課 程 上 機(jī) 適用專業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 姓名： 徐申毅 6 / 6文檔可自由編輯打印實(shí) 驗(yàn) 報(bào) 告一、 內(nèi)容 數(shù)組及應(yīng)用 二、 目的 （1）掌握一維數(shù)組和二維數(shù)組的定義及引用方法 （2）掌握動(dòng)態(tài)數(shù)組的定義和使用 （3）能應(yīng)用數(shù)組解決一些常見(jiàn)問(wèn)題，如復(fù)雜統(tǒng)計(jì)，平均值，排序和查找等。三、 設(shè)計(jì)思路（1） 首先定義一個(gè)一維數(shù)組生成10個(gè)二位數(shù)，假設(shè)第一個(gè)數(shù)為最大數(shù)，讓第二個(gè)數(shù)與第一個(gè)數(shù)比大小，若大于，則交換值，循環(huán)至最后一個(gè)數(shù)，求出最大值，然后求和算出平均值，用選擇法進(jìn)行排序，Private Sub cmdinsert_Click() 數(shù)據(jù)插入，x = V

2、al(InputBox(輸入要插入的數(shù)據(jù)：)，將新的數(shù)組進(jìn)行排序。（2） 定義二維數(shù)組，i為行數(shù)，j為列數(shù)；n為輸出的行數(shù)， 第一列和主對(duì)角線為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)實(shí)現(xiàn)每一個(gè)數(shù)等于它上面一行的同一列與前一列數(shù)之和。（3） 定義動(dòng)態(tài)數(shù)組，ReDim Preserve a(n) 動(dòng)態(tài)存儲(chǔ)數(shù)組a增加1個(gè)元素，前n-1個(gè)元素值保持不變。然后用冒泡法對(duì)數(shù)組中的元素進(jìn)行排序，輸出排序后的結(jié)果。四、 源程序Option Base

3、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 In

4、teger, 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; 個(gè)元素 & a(p) & 為最大元素End SubPrivate Sub cmdave_Click() 計(jì)算平均值 Dim ave As Single, i As Integer For i = 1 To 10 ave = ave + a(i) Next i ave = ave / 10 Pict

5、ure1.Print Picture1.Print 產(chǎn)生的隨機(jī)數(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

6、 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） 隨機(jī)產(chǎn)生10個(gè)任意的二位正整數(shù)存放在一維數(shù)組中，求數(shù)組的最大值，平均值，能實(shí)現(xiàn)將數(shù)據(jù)按升序排列，并且使用InputBox函數(shù)插入一個(gè)新數(shù)據(jù)，使數(shù)組仍然按升序排列，結(jié)果顯示在圖片框中。（2） 打印楊輝三角形（楊輝三角形為一個(gè)下三角矩陣，每一行第一個(gè)元素和主對(duì)角線上元素都為1，其余每一個(gè)數(shù)正好等于它上面一行的同一列與前一列數(shù)之和）。（3） 輸入系列字符串，按升序排列輸出，要求：1：每輸入一個(gè)字符串，按回車鍵后即