實(shí)驗(yàn)五：數(shù)組的運(yùn)用

《實(shí)驗(yàn)五：數(shù)組的運(yùn)用》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、實(shí)驗(yàn)報(bào)告學(xué)院：專業(yè)：年級：姓名：學(xué)號：實(shí)驗(yàn)室號：_______計(jì)算機(jī)號：實(shí)驗(yàn)日期：年月日指導(dǎo)教師簽字：成績：報(bào)告退發(fā)(訂正、重做)實(shí)驗(yàn)五：數(shù)組的運(yùn)用一、實(shí)驗(yàn)?zāi)康模?）掌握：數(shù)組的聲明以及數(shù)組元素的引用（2）掌握：靜態(tài)數(shù)組和動態(tài)數(shù)組的使用差別（3）掌握：與數(shù)組有關(guān)的常用算法二、實(shí)驗(yàn)內(nèi)容圖11、設(shè)計(jì)如圖1所示的窗體Form1，要求程序運(yùn)行后，單擊“確定”命令按紐，通過輸入對話框輸入5個(gè)整數(shù)并存在數(shù)組a(1To5)中，然后將輸入的5個(gè)整數(shù)按逆序輸出。注意:以窗體文件名為lxoutput.frm，工程文件名為lxoutp

2、ut.vbp保存在D:VB程序。圖22、設(shè)計(jì)如圖2所示的窗體Form1，要求程序運(yùn)行后，單擊“排序”命令按紐，自動生成10個(gè)整數(shù)將產(chǎn)生1~100之間的隨機(jī)數(shù)存放在數(shù)組a[1to10]中，然后將這10個(gè)整數(shù)按從小到大的順序輸出。注意:以窗體文件名為sort.frm，工程文件名為sort.vbp保存在D:VB程序。圖33、設(shè)計(jì)如圖3所示的窗體Form1，要求程序運(yùn)行后，單擊“確定”命令按紐，自動生成10個(gè)整數(shù)將產(chǎn)生10~99之間的隨機(jī)數(shù)存放在數(shù)組a[1to10]中，然后求出這10個(gè)整數(shù)的最大值和最小值，并在文本框

3、Text1和Text2中顯示出來。注意:以窗體文件名為maxandmin.frm，工程文件名為maxandmin.vbp保存在D:VB程序。圖44、設(shè)計(jì)如圖4所示的窗體Form1，要求程序運(yùn)行后，在文本框text1一個(gè)自然數(shù)N（大于0小于30），要求單擊“S=”命令按紐則求出Fibonacci數(shù)列：l，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）硬

4、件：PC機(jī)（2）軟件：Windows操作系統(tǒng)、VisualBasic6.0四、實(shí)驗(yàn)步驟1、啟動VisualBasic，在窗體上畫一個(gè)命令按鈕，然后在屬性窗體設(shè)置相應(yīng)的屬性，編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時(shí)單擊命令按鈕，結(jié)果如圖所示。操作步驟如下：（1）啟動VisualBASIC，在窗體上畫一個(gè)命令按鈕，調(diào)整窗體和命令按鈕到適當(dāng)大小。（2）控件屬性設(shè)置如下：控件名稱屬性Command1Command1.Caption=“確定”（3）控件布局如下：確定（4）雙擊命令按鈕，打開代碼窗口，輸入如下代碼：PrivateSub

5、Command1_Click()Dima(1To5)AsInteger,i%ClsPrint"輸入的數(shù)據(jù)為"Fori=1To5a(i)=InputBox("請輸入一個(gè)整型數(shù)")Printa(i);Spc(2);NextiPrintPrint"逆序輸出為"Fori=5To1Step-1Printa(i);Spc(2);NextiEndSub（5）單擊“文件”/“保存工程”菜單項(xiàng)，保存工程和窗體文件。2、啟動VisualBasic，在窗體上畫一個(gè)命令按鈕，然后在屬性窗體設(shè)置相應(yīng)的屬性，編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時(shí)單

6、擊命令按鈕，結(jié)果如圖所示。操作步驟如下：（1）啟動VisualBASIC，在窗體上畫一個(gè)命令按鈕，調(diào)整窗體和命令按鈕到適當(dāng)大小。（2）控件屬性設(shè)置如下：控件名稱屬性Command1Command1.Caption=“排序”（3）控件布局如下：排序（4）雙擊命令按鈕，打開代碼窗口，輸入如下代碼：PrivateSubCommand1_Click()Dimt%,i%,j%,a(1To10)AsIntegerFori=1To10a(i)=Int(Rnd*100+1)NextiPrint"生成的10個(gè)整數(shù)為："Fori=1

7、To10Printa(i);Spc(2);NextiPrintFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiPrint"排序后的結(jié)果為："Fori=1To10Printa(i);Spc(2);NextiEndSub(5)單擊“文件”/“保存工程”菜單項(xiàng)，保存工程和窗體文件。3、啟動VisualBasic，在窗體上畫兩個(gè)標(biāo)簽，兩個(gè)文本框和一個(gè)命令按鈕，然后在屬性窗體設(shè)置相應(yīng)的屬性，編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時(shí)單擊命令

8、按鈕，結(jié)果如圖所示。操作步驟如下：（1）啟動VisualBASIC，在窗體上畫兩個(gè)標(biāo)簽，兩個(gè)文本框，一個(gè)命令按鈕，調(diào)整窗體和各控件到適當(dāng)大小，并把各控件放到適當(dāng)?shù)奈恢?。?）控件屬性設(shè)置如下：控件名稱屬性Command1Command1.Caption=“確定”Label1Label1.Caption=“最大值”Label2Label2.Caption=“最小值”Text