第4章數組與過程

學習目標：

?掌握數組和過程的概念

?掌握數組的定義和應用

?掌握Sub過程和Function過程的應用

?掌握過程的參數傳遞與過程的作用域

?了解Shell函數

第4章數組與過程

教學內容：

4.1數組

4.2過程

4.3Shell函數

4.1數組一數組的概念

?數組用于保存大量的、邏輯上有聯系的數據

?數組的特點：

＞數據中的元素在類型上是一致的

＞數組元素在內存空間上是連續存放的

＞數組元素的引用可通過下標進行

＞數組在使用前必須要定義（聲明）

返回目錄

4.1數組一一維數組的定義和使用

1.數組的定義(聲明)

Dim數組名(［下界To］上界)As數據類型

例如：DimData(lTo40)AsInteger

A定義數組可以使用類型符

例，DimData%(lTo40)

A下界的默認值為0

例,DimSalary(lOOO)AsCurrency

＞通過數組名和下標可引用數組中的元素

例，Data(25)=95

Forml.PrintData(25)

返回目錄

4.1數組一一維數組的定義和使用

說明T：

?數組定義后的初值：數值型數組各元素為0,邏輯型數組

各元素為False,字符串數組各元素為空串(心)。

?可同時聲明幾個數組，用逗號分隔，例如

DimA%(10To100),B(800)AsLong

?定義數組時，下標的下界和上界值只能是常數或常數表達

式。下例的定義是錯誤的

N=100:DimData(N)AsInteger

?定義時，數組的上界值不得超出長整型范圍，且數組的上

界值不得小于下界值。

返回目錄

4.1數組一一維數組的定義和使用

說明-2：

?數組的元素個數稱為數組長度。

?Lbound()>Ubound()函數可測定數組的下界與上界值

例如：PrivateSubForm_Click()?Form1,1□1x|

DimA%(12To24)1224

PrintLBound(A),UBound(A)

EndSub

?用OptionBasen可設定數組的默認下界

>n的取值只能是0或1

A設定方法：在代碼窗口的通用聲明段中輸入

OptionBase0或OptionBase1

返回目錄

4.1數組一一維數組的定義和使用

返回目錄

4.1數組一一維數組的定義和使用

說明：

A數組實際上是用一個變量名字代表一組數，這組數是

連續排列的，用順序號作為下標區分各個數。

A數組下標是一個整型量，如果有小數則自動按四舍五

入取整。例如，Data(3.4)=3,而Data(3.5)=2。

＞數組常見的錯誤:PrivateSubForm_Click()

DimTest%(3),1%

下標出界ForI=1To4

Test(I)=5-1:PrintTest(I)

Test(l)=4NextI?forml,1□!x||

EndSub

Test(2)=3

實時錯誤：

Test(3)=2下標越界

Test(4)超出定義

結束⑥“使同就；|幫助也)|

返回目錄

4.1數組一一維數組應用例題

［例4.3］輸出斐波那契級數的而20項

PrivateSubForm_Click()

DimF(20)AsInteger,IAsInteger

F⑴=1:F⑵=1悌一、第二項為1

ForI=3To20，第三項起每項為前二項之和

F(I)=F(I-2)+F(I-1)

NextIE爭圖聿建膻魂而也以」口」x］

ForI=1To20'在窗體上輸出11235

PrintF(I);813213455

89144233377610

IfIMod5=0ThenPrint9871597258441816765

NextI

EndSub

返回目錄

4.1數組一一維數組應用例題

［例4.41輸入一組不重復的數據,找出最大值及其位置

PrivateSubForm_Click()

ConstLength=5，定義常量Length作為數組最大下標

DimTest%(Length),1%,Max%,L%

ForI=1ToLength，通過鍵盤輸入給數組賦值

Test(I)=InputBox「輸入第”&I&”個數據”)

NextI

Max=Test(l):L=1，設數組第一個元素為最大值

ForI=2ToLength

IfMaxvTest(I)Then，找到新的最大值，記錄其值和位置

Max=Test(I)

L=I

EndIf

NextI最大值=99，位置是4

”最大值，位置是“&

MsgBoxx="&Max&”L?...■x.....,：

EndSub確7E

返回目錄

4.1數組一一維數組應用例題

［例4.5］產生10個整數到數組中，將其順序顛倒后輸出

PrivateSubForm_Click()

ConstLength=10:DimD(Length)AsInteger,1%,Temp%

ForI=1ToLength，給數組賦值并輸出

D(I)=14+1:PrintD(I);

NextI

Print:Print，換行

ForI=1ToLength/2咬換

Temp=D(I)

D(I)=D(Length-I+1)

D(Length-1+1)=Temp

NextI

ForI=1ToLength咬換后輸出

PrintD(I);

NextI

EndSub

返回目錄

4.1數組一一維數組應用例題

［例4.8］產生100個不重復的3位隨機整數，

并按每行7列的格式輸出

PrivateSubForm_Click()

DimData(lOO)AsInteger,1%,J%

RandomizeTimer，設置隨機化種子，保證每組數據不重復

,ForI=1To100，循環產生100個數據

Data(I)=Int(Rnd()*900)+100

rForJ=1ToI-1，與已經產生的數據比較

IfData(I)=Data(J)Then，數據已存在則舍棄，重新產生

AJI=I.1

IExitFor，提前退出數據比較的循環

EndIf_

INextJ

(NextI

返回目錄

4.1數組一一維數組應用例題

刈

Ini

7

2

7

6

8

0

8

6

3

7

6

86

39

956516

5

7

5

5

0

0

2

7

2

9

6

55

91

706241

6

2

6

2

4

1

9

0

5

7

7

37

92

722328

0

7

8

0

5

6

3

4

2

5

0

I=1：j=1

13

79

558795