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

2、SubCommand1_Click()DimiAsIntegerFori=1To10A(i)=2*i-1NextiEndSubPrivateSubCommand2_Click()DimiAsIntegerFori=1To10PrintA(i)NextiEndSubPrivateSubForm_Load()EndSub【實驗1典型結果】【實驗2】用Array函數對一維數組進行賦值，程序運行界面如下圖（5分）掌握一維動態數組的定義及使用實驗結果：【實驗2代碼】OptionBase1DimaPrivateSubCommand1_Click()a=Array(1,3,5,7,9,11,13,15,17

3、,19)EndSubPrivateSubCommand2_Click()DimiAsIntegerFori=1To10Printa(i);NextiEndSubPrivateSubForm_Load()EndSub【實驗2典型結果】【實驗3】動態數組聲明及輸入輸出，程序運行界面如下圖所示。（10分）&款級定義矚直可出in2030用ReDzmPreservemtO改變魏組大小后1D況3040ir1reinm-iiiiBsaiira-ii!-!rnurr,-動態教組定義哦值輸出LJ掌握動態數組的使用實驗結果：【實驗3代碼】PrivateSubCommand1_Click()Dima()As

4、Integern=3ReDima(n)a(1)=10a=20a(3)=30Printa(1),a(2),a(3)Print"用RedimPreservea(n)改變數組大小n=4ReDimPreservea(n)a(4)=40Printa(1),a(2),a(3),a(4)EndSub【實驗3典型結果】2口30serveaCn改變教蛆大小2030一矗碗萩詭前'"IBu4，BIIHA-3IB"|"BI311d,&3痛fiSbim!3Ina3IBaMaaAIB"3IJ【實驗4】靜態聲明一個二維數組，輸入和輸出該數組各元素的值（10分

5、）要求：1.計算并輸出數組主對角線和次對角線元素的和。I 交換1、3行后輸出整個數組的值交換數組的行與列后輸出整個數組的值2345678910II 1213141516171819202122232425掌握二維數組的定義及使用實驗結果：【實驗4代碼】【實驗4典型結果】【實驗5】利用控件數組模擬電話撥號程序，界面設計如圖4-4所示。要求按任意一個字符，在文本框中顯示，最多可撥11位數字字符，單擊“重撥”按鈕，重新顯示原來所撥的號碼。建立Commandl控件數組，索引為09;Command2和Commands分別為"重撥”、“清屏”按鈕；Timerl控件為“重撥”服務。（10分）掌握控

6、件組的使用實驗結果：【實驗5代碼】DimnoAsString,iAsIntegerPrivateSubCommand1_Click(IndexAsInteger)Textl.Text=Text1.Text&IndexEndSubPrivateSubCommand2_Click()no=Text1.TextText1.Text=""i=1Timer1.Interval=200Timerl.Enabled=TrueEndSubPrivateSubCommand3_Click()Textl.Text=""Timer1_Timer()PrivateSub

7、Timer1_Timer()Text1.Text=Text1.text&mid(no,i,1)i=i+1Ifi>Len(no)ThenTimer1.Enabled=FalseEndSub【實驗5典型結果】【實驗6】隨機產生10個100999之間的數以遞增順序存放在列表框中，并實現對列表框內數據插入、刪除等操作，使得列表框內數據還是有序。程序運行界面如下圖所示(10分)生成有序列表*!成用20179047352u3637565762巴T37an33掌握數組插入與刪除操作實驗結果:【實驗6代碼】【實驗6典型結果】【實驗7】設計一個利用簡單組合框對各省、直轄市名稱維護的應用程序。要求：

8、添加不重復的省或直轄市到組合框中，對不正確的可修改，以按漢字內碼順有序顯示。運行效果如下圖所示。（10分）0掌握數組常用算法：插入與刪除操作實驗結果：【實驗7代碼】【實驗7典型結果】【實驗8】用比較法對數組中的元素按升序排列，程序運行界面如下圖所示。（10分）掌握數組常用算法：數組排序實驗結果：【實驗8代碼】【實驗8典型結果】【實驗9】選擇法對數組中的元素按升序排列，程序運行界面如下圖所示。（10分）掌握數組常用算法：數組排序實驗結果：【實驗9代碼】【實驗9典型結果】【實驗10】用冒泡對數組中的元素按升序排列，程序運行如下圖所示。（10分）'a冒泡荏排序9回999gggg999999Q

9、e99Qw-956009090*90905585off6s883w-3&-O768DQ06SS9&5TTTTTT8_y76333331865TTTTT9887&77TT81765666-63883T&&&&77176S555367373183636363636S66B308S0TnJTu3-1*JIJI1a1x222222222掌握數組常用算法：數組排序實驗結果：【實驗10代碼】【實驗10典型結果】【選做1】利用一維數組，統計一個班學生成績059,6069,7079,8089,90100各分數段的人數，生成一個各分數段的柱狀圖。人數為運行時輸入，成績給定方法要求為鍵盤輸入。（5分）掌握控件數組的