數(shù)組與過程課件

第4章數(shù)組與過程

學習目標：

?掌握數(shù)組和過程的概念

?掌握數(shù)組的定義和應用

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

?掌握過程的參數(shù)傳遞與過程的作用域

?了解Shell函數(shù)

第4章數(shù)組與過程

教學內容：

4.1數(shù)組

4.2過程

4.3Shell函數(shù)

4.1數(shù)組一數(shù)組的概念

?數(shù)組用于保存大量的、邏輯上有聯(lián)系的數(shù)據(jù)

?數(shù)組的特點：

＞數(shù)據(jù)中的元素在類型上是一致的

＞數(shù)組元素在內存空間上是連續(xù)存放的

＞數(shù)組元素的引用可通過下標進行

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

返回目錄

4.1數(shù)組一一維數(shù)組的定義和使用

1.數(shù)組的定義(聲明)

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

例如：DimData(lTo40)AsInteger

A定義數(shù)組可以使用類型符

例，DimData%(lTo40)

A下界的默認值為0

例,DimSalary(lOOO)AsCurrency

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

例，Data(25)=95

Forml.PrintData(25)

返回目錄

4.1數(shù)組一一維數(shù)組的定義和使用

說明T：

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

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

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

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

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

式。下例的定義是錯誤的

N=100:DimData(N)AsInteger

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

界值不得小于下界值。

返回目錄

4.1數(shù)組一一維數(shù)組的定義和使用

說明-2：

?數(shù)組的元素個數(shù)稱為數(shù)組長度。

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

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

DimA%(12To24)1224

PrintLBound(A),UBound(A)

EndSub

?用OptionBasen可設定數(shù)組的默認下界

>n的取值只能是0或1

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

OptionBase0或OptionBase1

返回目錄

4.1數(shù)組一一維數(shù)組的定義和使用

返回目錄

4.1數(shù)組一一維數(shù)組的定義和使用

說明：

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

連續(xù)排列的，用順序號作為下標區(qū)分各個數(shù)。

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

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

＞數(shù)組常見的錯誤: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數(shù)組一一維數(shù)組應用例題

［例4.3］輸出斐波那契級數(shù)的而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數(shù)組一一維數(shù)組應用例題

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

PrivateSubForm_Click()

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

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

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

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

NextI

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

ForI=2ToLength

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

Max=Test(I)

L=I

EndIf

NextI最大值=99，位置是4

”最大值，位置是“&

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

EndSub確7E

返回目錄

4.1數(shù)組一一維數(shù)組應用例題

［例4.5］產(chǎn)生10個整數(shù)到數(shù)組中，將其順序顛倒后輸出

PrivateSubForm_Click()

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

ForI=1ToLength，給數(shù)組賦值并輸出

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數(shù)組一一維數(shù)組應用例題

［例4.8］產(chǎn)生100個不重復的3位隨機整數(shù)，

并按每行7列的格式輸出

PrivateSubForm_Click()

DimData(lOO)AsInteger,1%,J%

RandomizeTimer，設置隨機化種子，保證每組數(shù)據(jù)不重復

,ForI=1To100，循環(huán)產(chǎn)生100個數(shù)據(jù)

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

rForJ=1ToI-1，與已經(jīng)產(chǎn)生的數(shù)據(jù)比較

IfData(I)=Data(J)Then，數(shù)據(jù)已存在則舍棄，重新產(chǎn)生

AJI=I.1

IExitFor，提前退出數(shù)據(jù)比較的循環(huán)

EndIf_

INextJ

(NextI

返回目錄

4.1數(shù)組一一維數(shù)組應用例題

刈

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