資源描述：
《實(shí)驗(yàn)五：數(shù)組的運(yùn)用》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。
1、實(shí)驗(yàn)扌艮告學(xué)院：專業(yè)：年級：姓名：學(xué)號：實(shí)驗(yàn)室號：計(jì)算機(jī)號：-實(shí)驗(yàn)H期：—年—月_H指導(dǎo)教師簽字：成績:報(bào)告退發(fā)（訂正、重做）實(shí)驗(yàn)五：數(shù)組的運(yùn)用一、實(shí)驗(yàn)?zāi)康模?）學(xué)握：數(shù)組的聲明以及數(shù)組元索的引用（2）掌握：靜態(tài)數(shù)組和動態(tài)數(shù)組的使用差別（3）掌握：與數(shù)組有關(guān)的常用算法二、實(shí)驗(yàn)內(nèi)容I輪.Forml-口
2、岡輸入的數(shù)據(jù)為565239逆序輸出為932556廠確定?““}圖11、設(shè)計(jì)如圖1所示的窗體Forml,耍求程序運(yùn)行后，單擊“確定”命令按紐，通過輸入對話框輸入5個整數(shù)并存在數(shù)組a（lTo5）中，然后將輸入的5個整數(shù)按逆序輸出。注意:以窗體文件名為lxoutput.frm
3、,工程文件名為lxoutput.vbp保存在D:VB程序。圖22、設(shè)計(jì)如圖2所示的窗體Form1,要求程序運(yùn)行后，單擊“排序”命令按紐，自動牛成10個整數(shù)將產(chǎn)生1-100Z間的隨機(jī)數(shù)存放在數(shù)組aflto10］中，然示將這10個整數(shù)按從小到人的順序輸岀。注意:以窗體文件名為sort.frm,工程文件名為sort.vbp保存在D:VB程序。圖33、設(shè)計(jì)如圖3所示的窗體Form1,要求程序運(yùn)行后，單擊“確定”命令按紐，白動牛成10個整數(shù)將產(chǎn)生10?99之間的隨機(jī)數(shù)存放在數(shù)組a［lto10］中，然后求出這10個整數(shù)的最大值和最小值，并在文本框Tcxtl和Tcxt2中顯示出
4、來。注意:以窗體文件名為maxarKimin.fiTn,工程文件名為maxandniin.vbp保存在D:VB程序。圖44、設(shè)計(jì)如圖4所示的窗體Forml,要求程序運(yùn)行后，在文本框text1—個口然數(shù)N(大丁7小于30),要求單擊“S=”命令按紐則求出Fibonacci數(shù)列：1,1,2,3,5,8,……的前N項(xiàng)保存于數(shù)組Fib(),并求出前N項(xiàng)的和顯示在文本框text2屮。注意：以窗體文件名為fibsum.frm,工程文件名為fibsum.vbp保存在D:VB程序。三、實(shí)驗(yàn)環(huán)境(1)硬件：PC機(jī)(2)軟件：Windows操作系統(tǒng)、VisualBasic6.0四、實(shí)
5、驗(yàn)步驟1、啟動VisualBasic,在窗體上畫一個命令按鈕，然后在屬性窗體設(shè)置相應(yīng)的屬性，編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時單擊命令按鈕，結(jié)果如圖所示。操作步驟如下:(1)啟動VisualBASIC,在窗體上畫一?個命令按鈕，調(diào)整窗體和命令按鈕到適當(dāng)人小。(3)控件布局如下:(2)控件屬性設(shè)置如下:控件名稱屬性Command1Command1.Caption="確定”確定(4)雙擊命令按鈕，打開代碼窗口，輸入如下代碼:PrivateSubCommandl_Click()Dima(lTo5)AsInteger,i%CisPrint”輸入的數(shù)據(jù)為”Fori=1To5a(i)
6、=InputBoxC"請輸入一個整型數(shù)”)Printa(i);Spc(2);NextiPrintPrint”逆序輸出為“Fori=5To1Step-1Printa(i);Spc(2);NextiEndSub（5）單擊“文件”/“保存工程”菜單項(xiàng)，保存工程和窗體文件。2、啟動VisualBasic,在窗體上畫一■個命令按鈕，然后在屬性窗體設(shè)置相應(yīng)的屬性，編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時單擊命令按鈕，結(jié)果如圖所示。操作步驟如下：（1）動VisualBASIC,在窗體上畫一個命令按鈕，調(diào)整窗體和命令按鈕到適當(dāng)大小。（3）控件布局如下:（2）控件屬性設(shè)置如下:控件名稱屬性Com
7、mand1Command1.Caption="排序”排序(4)雙擊命令按鈕，打開代碼窗口，輸入如下代碼：PrivateSubCommandl_Click()Dimt%,i%,j%,a(lTo10)AsIntegerFori=1To10a(i)=Int(Rnd*100+1)NextiPrint”生成的10個整數(shù)為：”Fori=1To10Printa(i);Spc(2);NextiPrintFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i):a(i)=a(j):a(j)EndIfNextjNextiPrint”排序后的結(jié)果為：“Fori=
8、1To10Printa(i);Spc(2);NextiEndSub⑸單擊“文件”/“保存工程”菜單項(xiàng)，保存工程和窗體文件。3、啟動VisualBasic,在窗體上畫兩個標(biāo)簽，兩個文本框和一個命令按鈕，然后在屬性窗體設(shè)置相應(yīng)的屬性，編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時單擊命令按鈕，結(jié)果如圖所示。操作步驟如下：（1）啟動VisualBASIC,在窗體上畫兩個標(biāo)簽，兩個文本框，一個命令按鈕，調(diào)整窗體和各控件到適當(dāng)大小，并把各控件放到適當(dāng)?shù)奈恢?。?）控件屬性設(shè)置如下：控件名稱屬性Command1Command1.Caption="確定”Label1Labell.
