VB實(shí)驗(yàn)三-實(shí)驗(yàn)報(bào)告---2016

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

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

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

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

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

6、件組的使用實(shí)驗(yàn)結(jié)果：【實(shí)驗(yàn)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【實(shí)驗(yàn)5典型結(jié)果】【實(shí)驗(yàn)6】隨機(jī)產(chǎn)生10個(gè)100999之間的數(shù)以遞增順序存放在列表框中，并實(shí)現(xiàn)對(duì)列表框內(nèi)數(shù)據(jù)插入、刪除等操作，使得列表框內(nèi)數(shù)據(jù)還是有序。程序運(yùn)行界面如下圖所示(10分)生成有序列表*!成用20179047352u3637565762巴T37an33掌握數(shù)組插入與刪除操作實(shí)驗(yàn)結(jié)果:【實(shí)驗(yàn)6代碼】【實(shí)驗(yàn)6典型結(jié)果】【實(shí)驗(yàn)7】設(shè)計(jì)一個(gè)利用簡(jiǎn)單組合框?qū)Ω魇?、直轄市名稱維護(hù)的應(yīng)用程序。要求：

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

9、e99Qw-956009090*90905585off6s883w-3&-O768DQ06SS9&5TTTTTT8_y76333331865TTTTT9887&77TT81765666-63883T&&&&77176S555367373183636363636S66B308S0TnJTu3-1*JIJI1a1x222222222掌握數(shù)組常用算法：數(shù)組排序?qū)嶒?yàn)結(jié)果：【實(shí)驗(yàn)10代碼】【實(shí)驗(yàn)10典型結(jié)果】【選做1】利用一維數(shù)組，統(tǒng)計(jì)一個(gè)班學(xué)生成績(jī)059,6069,7079,8089,90100各分?jǐn)?shù)段的人數(shù)，生成一個(gè)各分?jǐn)?shù)段的柱狀圖。人數(shù)為運(yùn)行時(shí)輸入，成績(jī)給定方法要求為鍵盤輸入。（5分）掌握控件數(shù)組的