1、實 驗 報 告 三課 程VB程序設計實驗項目VB數組應用(6學時)成 績專業班級國際經濟與貿易1501姓 名鄧成元學 號201531100828實驗日期實驗目的（1）掌握一維數組（靜態、動態）定義及使用（2）掌握二維數組（靜態、動態）定義及使用（3）掌握“控件數組”的使用（4）掌握數組相關算法（求最值，排序，查找）（5）通過數組鞏固循環及多重循環程序設計實驗內容【實驗1】對一維數組A(1 to 10)先賦值1、3、5、7、9、11、13、15、17、19，然后再輸出。程序運行界面如下圖所示。（5分）掌握一維靜態數組的定義及使用實驗結果：【實驗1 代碼】Option Base 1Dim A(1

2、To 10) As IntegerPrivate Sub Command1_Click() Dim i As Integer For i = 1 To 10 A(i) = 2 * i - 1 Next iEnd SubPrivate Sub Command2_Click() Dim i As Integer For i = 1 To 10 Print A(i) Next iEnd SubPrivate Sub Form_Load()End Sub【實驗1 典型結果】【實驗2】用Array函數對一維數組進行賦值，程序運行界面如下圖（5分）掌握一維動態數組的定義及使用實驗結果：【實驗2 代碼】Op

3、tion Base 1Dim aPrivate Sub Command1_Click() a = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)End SubPrivate Sub Command2_Click() Dim i As Integer For i = 1 To 10 Print a(i); Next iEnd SubPrivate Sub Form_Load()End Sub【實驗2 典型結果】【實驗3】動態數組聲明及輸入輸出，程序運行界面如下圖所示。（10分）掌握動態數組的使用實驗結果：【實驗3 代碼】Private Sub Command1_

4、Click() Dim a() As Integer n = 3 ReDim a(n) a(1) = 10 a(2) = 20 a(3) = 30 Print a(1), a(2), a(3) Print "用Redim Preserve a(n)改變數組大小" n = 4 ReDim Preserve a(n) a(4) = 40 Print a(1), a(2), a(3), a(4) End Sub【實驗3 典型結果】【實驗4】靜態聲明一個二維數組，輸入和輸出該數組各元素的值 （10分）要求：1.計算并輸出數組主對角線和次對角線元素的和。 2.交換1、3行后輸出整個數

5、組的值 3.交換數組的行與列后輸出整個數組的值掌握二維數組的定義及使用實驗結果：【實驗4 代碼】【實驗4 典型結果】【實驗5】利用控件數組模擬電話撥號程序，界面設計如圖4-4所示。要求按任意一個字符，在文本框中顯示，最多可撥11位數字字符，單擊“重撥”按鈕，重新顯示原來所撥的號碼。建立Command1控件數組，索引為09；Command2和Command3分別為“重撥”、“清屏”按鈕；Timer1控件為“重撥”服務。（10分）掌握控件組的使用實驗結果：【實驗5 代碼】Dim no As String, i As IntegerPrivate Sub Command1_Click(Index A

6、s Integer) Text1.Text = Text1.Text & IndexEnd SubPrivate Sub Command2_Click() no = Text1.Text Text1.Text = "" i = 1 Timer1.Interval = 200 Timer1.Enabled = TrueEnd SubPrivate Sub Command3_Click() Text1.Text = ""Timer1_Timer()Private Sub Timer1_Timer() Text1.Text=Text1.text&

7、;mid(no,i,1) i=i+1 If i >Len(no) Then Timer1.Enabled=False End Sub【實驗5 典型結果】【實驗6】隨機產生10個100999之間的數以遞增順序存放在列表框中，并實現對列表框內數據插入、刪除等操作，使得列表框內數據還是有序。程序運行界面如下圖所示（10分）掌握數組插入與刪除操作實驗結果：【實驗6 代碼】【實驗6 典型結果】【實驗7】設計一個利用簡單組合框對各省、直轄市名稱維護的應用程序。要求：添加不重復的省或直轄市到組合框中，對不正確的可修改，以按漢字內碼順有序顯示。運行效果如下圖所示。（10分）掌握數組常用算法：插入與刪除操

8、作實驗結果：【實驗7 代碼】【實驗7 典型結果】【實驗8】用比較法對數組中的元素按升序排列，程序運行界面如下圖所示。（10分）掌握數組常用算法：數組排序實驗結果：【實驗8 代碼】【實驗8 典型結果】【實驗9】選擇法對數組中的元素按升序排列，程序運行界面如下圖所示。（10分）掌握數組常用算法：數組排序實驗結果：【實驗9 代碼】【實驗9 典型結果】【實驗10】用冒泡對數組中的元素按升序排列，程序運行如下圖所示。（10分）掌握數組常用算法：數組排序實驗結果：【實驗10 代碼】【實驗10 典型結果】【選做1】利用一維數組，統計一個班學生成績059，6069，7079，8089，90100各分數段的人數，生成一個各分數段的柱狀圖。人數為運行時輸入，成績給定方法要求為鍵盤輸入。（5分）掌握控件數組的使用實驗結果：【選做1 代碼】【選做1 典型