vb程序設(shè)計(jì)教程vb

1、中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)第六章 數(shù)組授課教師：潘 蕾中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt 掌握數(shù)組的定義和使用掌握數(shù)組的定義和使用 掌握動(dòng)態(tài)數(shù)組的定義和使用掌握動(dòng)態(tài)數(shù)組的定義和使用 掌握控件數(shù)組的建立和使用掌握控件數(shù)組的建立和使用 掌握常用算法掌握常用算法教學(xué)要求教學(xué)要求中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt教學(xué)內(nèi)容教學(xué)內(nèi)容6.1 6.1 數(shù)組的概念數(shù)組的概念6.2 6.2 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組6.3 6.3 數(shù)組的基本

2、操作數(shù)組的基本操作6.4 6.4 控件數(shù)組控件數(shù)組 6.5 6.5 數(shù)組常用算法數(shù)組常用算法中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.1 6.1 數(shù)組的概念數(shù)組的概念6.1.0 6.1.0 數(shù)組命名與數(shù)組元素?cái)?shù)組命名與數(shù)組元素6.1.1 6.1.1 數(shù)組定義數(shù)組定義6.1.2 6.1.2 數(shù)組的結(jié)構(gòu)數(shù)組的結(jié)構(gòu)6.1.3 6.1.3 數(shù)組函數(shù)及數(shù)組語(yǔ)句數(shù)組函數(shù)及數(shù)組語(yǔ)句中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt輸入輸入5 5名同學(xué)的成績(jī)信息，存儲(chǔ)并輸出：名同學(xué)的成績(jī)信息

3、，存儲(chǔ)并輸出：舉例舉例簡(jiǎn)單變量實(shí)現(xiàn)：簡(jiǎn)單變量實(shí)現(xiàn)：Private Sub Command1_Click() Dim a%, b%, c%, d%, e% a = InputBox(“輸入成績(jī)：”, “成績(jī)記錄) b = InputBox(“輸入成績(jī)：”, “成績(jī)記錄) c = InputBox(“輸入成績(jī)：”, “成績(jī)記錄) d = InputBox(“輸入成績(jī)：”, “成績(jī)記錄) e = InputBox(“輸入成績(jī)：”, “年齡記錄) Print a; b; c; d; eEnd Sub數(shù)組（下標(biāo)變量）實(shí)現(xiàn)：數(shù)組（下標(biāo)變量）實(shí)現(xiàn)：Option Base 1Private Sub Comma

4、nd1_Click() Dim A(5) As Integer, i As Integer For i = 1 To 5 A(i) = InputBox(“輸入成績(jī)：”, “成績(jī)記錄) Next i For i = 1 To 5 Print A(i); Next iEnd Sub注：注：利用一個(gè)數(shù)組來(lái)存儲(chǔ)輸入的一組相關(guān)信息，操作簡(jiǎn)潔、靈利用一個(gè)數(shù)組來(lái)存儲(chǔ)輸入的一組相關(guān)信息，操作簡(jiǎn)潔、靈活、方便，往往同循環(huán)結(jié)構(gòu)結(jié)合使用活、方便，往往同循環(huán)結(jié)構(gòu)結(jié)合使用定義數(shù)組定義數(shù)組中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt 前面所說(shuō)的變量都是指簡(jiǎn)單變

5、量，即一個(gè)變量名對(duì)應(yīng)一前面所說(shuō)的變量都是指簡(jiǎn)單變量，即一個(gè)變量名對(duì)應(yīng)一個(gè)存儲(chǔ)單元，只能存儲(chǔ)一個(gè)值，各個(gè)變量之間無(wú)關(guān)聯(lián)。個(gè)存儲(chǔ)單元，只能存儲(chǔ)一個(gè)值，各個(gè)變量之間無(wú)關(guān)聯(lián)。 本章我們要介紹的是一種本章我們要介紹的是一種下標(biāo)變量下標(biāo)變量數(shù)組數(shù)組，是通過(guò)一，是通過(guò)一個(gè)數(shù)組名和下標(biāo)的組合來(lái)表示多個(gè)值。用一個(gè)個(gè)數(shù)組名和下標(biāo)的組合來(lái)表示多個(gè)值。用一個(gè)相同的名字相同的名字引引用一組變量的數(shù)據(jù)。用一組變量的數(shù)據(jù)。 數(shù)組，是數(shù)組，是VBVB支持的一種復(fù)合結(jié)構(gòu)的數(shù)據(jù)類(lèi)型。支持的一種復(fù)合結(jié)構(gòu)的數(shù)據(jù)類(lèi)型。 數(shù)組，是用于保存一組具有數(shù)組，是用于保存一組具有相同數(shù)據(jù)類(lèi)型相同數(shù)據(jù)類(lèi)型的有序的的有序的變量變量的集合的集合?；靖?/p>

6、念基本概念中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.1.0 6.1.0 數(shù)組命名與數(shù)組元素?cái)?shù)組命名與數(shù)組元素 命名規(guī)則與簡(jiǎn)單變量相同。命名規(guī)則與簡(jiǎn)單變量相同。 數(shù)組名不是代表數(shù)組名不是代表某一某一變量，而是變量，而是一組一組變量。變量。 數(shù)組元素：數(shù)組元素：u由數(shù)組名和該元素在數(shù)組中的編號(hào)（索引、下標(biāo)）唯一確定，由數(shù)組名和該元素在數(shù)組中的編號(hào)（索引、下標(biāo)）唯一確定，下標(biāo)是連續(xù)的整數(shù)。下標(biāo)是連續(xù)的整數(shù)。u數(shù)組元素的一般形式：數(shù)組元素的一般形式： 數(shù)組名（下標(biāo)數(shù)組名（下標(biāo)11，下標(biāo)，下標(biāo)2 2，） eg: a(0),a(1),a(2

7、),a(3),a(4),b(0,0),b(0,1)eg: a(0),a(1),a(2),a(3),a(4),b(0,0),b(0,1) 數(shù)組的維數(shù)數(shù)組的維數(shù)( (例例) )：u一維數(shù)組一維數(shù)組只需一個(gè)下標(biāo)即可唯一確定一個(gè)數(shù)組元素只需一個(gè)下標(biāo)即可唯一確定一個(gè)數(shù)組元素u多維數(shù)組多維數(shù)組有兩個(gè)或兩個(gè)以上下標(biāo)的數(shù)組，每個(gè)下標(biāo)對(duì)應(yīng)有兩個(gè)或兩個(gè)以上下標(biāo)的數(shù)組，每個(gè)下標(biāo)對(duì)應(yīng)一個(gè)一個(gè)“維維” 中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.1.1 6.1.1 數(shù)組定義數(shù)組定義 數(shù)組必須數(shù)組必須先定義后使用先定義后使用。 定義數(shù)組時(shí)，確定其定義數(shù)組時(shí)，

8、確定其名稱名稱、數(shù)據(jù)類(lèi)型數(shù)據(jù)類(lèi)型、維數(shù)維數(shù)、每一維的每一維的上、下界上、下界。eg: Dim A(6) As Integereg: Dim A(6) As Integer 數(shù)組定義時(shí)，系統(tǒng)分配連續(xù)的內(nèi)存空間，用于依次保存數(shù)組定義時(shí)，系統(tǒng)分配連續(xù)的內(nèi)存空間，用于依次保存所有數(shù)組元素。所有數(shù)組元素。 固定大小數(shù)組與動(dòng)態(tài)數(shù)組。固定大小數(shù)組與動(dòng)態(tài)數(shù)組。 固定大小數(shù)組固定大小數(shù)組：在定義時(shí)就確定數(shù)組大小，在程序運(yùn)行過(guò)程中大小不：在定義時(shí)就確定數(shù)組大小，在程序運(yùn)行過(guò)程中大小不能改變的數(shù)組。能改變的數(shù)組。 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組：在程序運(yùn)行過(guò)程中大小可以改變的數(shù)組。：在程序運(yùn)行過(guò)程中大小可以改變的數(shù)組。 eg:

9、Dim A(6) As Integer,B() As Integereg: Dim A(6) As Integer,B() As Integer中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt1 1、數(shù)組說(shuō)明語(yǔ)句、數(shù)組說(shuō)明語(yǔ)句 格式格式 ： Public|Private|Static|Dim Public|Private|Static|Dim 數(shù)組名數(shù)組名( To To1 ， To To,) As 2,) As 類(lèi)型類(lèi)型 說(shuō)明說(shuō)明 ： 聲明關(guān)鍵字決定作用域，見(jiàn)下頁(yè)聲明關(guān)鍵字決定作用域，見(jiàn)下頁(yè) TO TO 決定了每一維的大小，決定了每一維的

10、大小，下界下界指下標(biāo)的指下標(biāo)的最小值，最小值，上界上界指下標(biāo)的最大值，其中指下標(biāo)的最大值，其中 TO TO可省略，可省略，此時(shí)，默認(rèn)下界是此時(shí)，默認(rèn)下界是0 0。 eg: eg: Dim A(1 to 6) As IntegerDim A(1 to 6) As Integer我們習(xí)慣于下標(biāo)是從我們習(xí)慣于下標(biāo)是從1 1開(kāi)始，可在模塊的開(kāi)始，可在模塊的“通用通用”聲明段中聲明段中使用如下語(yǔ)句使用如下語(yǔ)句 Option Base 1Option Base 1 則在缺省下界的情況下，默認(rèn)下界是則在缺省下界的情況下，默認(rèn)下界是1 1。 類(lèi)型指定數(shù)組元素的統(tǒng)一數(shù)據(jù)類(lèi)型類(lèi)型指定數(shù)組元素的統(tǒng)一數(shù)據(jù)類(lèi)型 中國(guó)藥

11、科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt關(guān)鍵字關(guān)鍵字使用位置使用位置作用域作用域PublicPublic在在標(biāo)準(zhǔn)模塊標(biāo)準(zhǔn)模塊的聲明段中的聲明段中全局全局PrivatePrivate和和DimDim在模塊的聲明段中在模塊的聲明段中模塊模塊DimDim在過(guò)程中在過(guò)程中局部局部StaticStatic在過(guò)程中在過(guò)程中局部、靜態(tài)局部、靜態(tài)注意：全局?jǐn)?shù)組、注意：全局?jǐn)?shù)組、 全局符號(hào)常量和全局定長(zhǎng)字符串只能在標(biāo)準(zhǔn)全局符號(hào)常量和全局定長(zhǎng)字符串只能在標(biāo)準(zhǔn)模塊中定義模塊中定義, ,而全局變量可以在窗體模塊或標(biāo)準(zhǔn)模塊中定義而全局變量可以在窗體模塊或標(biāo)準(zhǔn)模塊

12、中定義中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt Dim A(6) as integer Dim A(6) as integerPrivate Name(1999 to 2002) as string Private Name(1999 to 2002) as string * *8 8Dim b(2,1 to 2) as integerDim b(2,1 to 2) as integer 數(shù)組元素分別為：數(shù)組元素分別為：A(0)A(0)、A(1)A(1)、A(2)A(2)、A(3)A(3)、A(4)A(4)、A(5)A(5)、A(

13、6)A(6)，共，共7 7個(gè)個(gè) 數(shù)組元素分別為：數(shù)組元素分別為：name(1999) name(1999) 、 name(2000)name(2000)、 name(2001)name(2001)、 name(2002) , name(2002) , 用于保存長(zhǎng)度為用于保存長(zhǎng)度為8 8的字符串?dāng)?shù)據(jù)。的字符串?dāng)?shù)據(jù)。 數(shù)組元素分別為：數(shù)組元素分別為：b(0,1)b(0,1)，b(0,2)b(0,2)，b(1,1)b(1,1)，b(1,2)b(1,2)，b(2,1)b(2,1)，b(2,2) b(2,2) 舉例舉例中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)

14、程序設(shè)計(jì)精選ppt2 2 、數(shù)組的類(lèi)型、數(shù)組的類(lèi)型可為任一可為任一簡(jiǎn)單數(shù)據(jù)類(lèi)型簡(jiǎn)單數(shù)據(jù)類(lèi)型，若缺省則為變體（，若缺省則為變體（Variant）類(lèi)型）類(lèi)型數(shù)組說(shuō)明語(yǔ)句不僅定義了數(shù)組、分配了存儲(chǔ)空間，還將數(shù)組數(shù)組說(shuō)明語(yǔ)句不僅定義了數(shù)組、分配了存儲(chǔ)空間，還將數(shù)組初始化：初始化：u數(shù)值型數(shù)組元素初始值為零數(shù)值型數(shù)組元素初始值為零u變長(zhǎng)字符類(lèi)型數(shù)組元素初始值為空字符串變長(zhǎng)字符類(lèi)型數(shù)組元素初始值為空字符串u定長(zhǎng)字符類(lèi)型數(shù)組元素初始值為指定長(zhǎng)度個(gè)數(shù)的空格定長(zhǎng)字符類(lèi)型數(shù)組元素初始值為指定長(zhǎng)度個(gè)數(shù)的空格u布爾型數(shù)組元素初始值為布爾型數(shù)組元素初始值為“False”u變體類(lèi)型數(shù)組元素初始值為變體類(lèi)型數(shù)組元素初始值為

15、“Empty”中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt3 3 、數(shù)組的上、下界、數(shù)組的上、下界 上、下界表示下標(biāo)的最大、最小值；上、下界表示下標(biāo)的最大、最小值； 下界下界上界；上界； 在固定大小數(shù)組定義時(shí)，上、下界是常量或常量表達(dá)式，在固定大小數(shù)組定義時(shí)，上、下界是常量或常量表達(dá)式，不不得是變量得是變量； 上、下界應(yīng)是整數(shù)，若不是，則自動(dòng)四舍五入。上、下界應(yīng)是整數(shù)，若不是，則自動(dòng)四舍五入。舉例：舉例： Dim m as integerDim m as integer Const n=5 as integer Const n=5 a

16、s integer Dim a(n) as integer Dim a(n) as integer Dim b(1 to 6.6) as integer Dim b(1 to 6.6) as integer Dim c(1 to 2 Dim c(1 to 2* *3) as integer3) as integer Dim d(0 to m) as integer Dim d(0 to m) as integer中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt4 4 、數(shù)組的大小、數(shù)組的大小指數(shù)組中包含元素的個(gè)數(shù)指數(shù)組中包含元素的個(gè)數(shù)一維

17、數(shù)組元素個(gè)數(shù)：上界一維數(shù)組元素個(gè)數(shù)：上界- -下界下界+1+1二維數(shù)組元素個(gè)數(shù)：二維數(shù)組元素個(gè)數(shù)： （上界（上界1 1- -下界下界1 1+1+1）* *（上界（上界2 2- -下界下界2 2+1+1）舉例：舉例： Dim A(6) as integerDim A(6) as integer Dim B(3 Dim B(3，1 to 4) as single1 to 4) as single A A數(shù)組的大小數(shù)組的大小=6-0+1=7=6-0+1=7B B數(shù)組的大小數(shù)組的大小(3-0(3-01)1)(4-(-1)+1)=4(4-(-1)+1)=46=246=24中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)

18、教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.1.2 6.1.2 數(shù)組的結(jié)構(gòu)數(shù)組的結(jié)構(gòu) 數(shù)組的所有元素是按一定數(shù)組的所有元素是按一定順序順序存儲(chǔ)在存儲(chǔ)在連續(xù)連續(xù)的存儲(chǔ)單元的。的存儲(chǔ)單元的。1.1.一維數(shù)組的結(jié)構(gòu)一維數(shù)組的結(jié)構(gòu)u一維數(shù)組只能表示線性順序，相當(dāng)于一個(gè)一維表，一維數(shù)組在內(nèi)一維數(shù)組只能表示線性順序，相當(dāng)于一個(gè)一維表，一維數(shù)組在內(nèi)存中存放的次序在形式上與數(shù)組的邏輯結(jié)構(gòu)相同，按下標(biāo)序號(hào)升序存中存放的次序在形式上與數(shù)組的邏輯結(jié)構(gòu)相同，按下標(biāo)序號(hào)升序排列。排列。 u例：例：Dim A(3) As IntegerDim A(3) As Integeru 邏輯結(jié)構(gòu)邏輯

19、結(jié)構(gòu)：(A(0), A(1), A(2) A(3)(A(0), A(1), A(2) A(3)u 存儲(chǔ)結(jié)構(gòu)存儲(chǔ)結(jié)構(gòu)：按照下標(biāo)從小到大依次存儲(chǔ)：按照下標(biāo)從小到大依次存儲(chǔ)A(0)A(1)A(2)A(3) 中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt2 2 、二維數(shù)組的結(jié)構(gòu)、二維數(shù)組的結(jié)構(gòu)u二維數(shù)組的表示形式是由行和列組成的一個(gè)二維表，二維數(shù)組二維數(shù)組的表示形式是由行和列組成的一個(gè)二維表，二維數(shù)組的數(shù)組元素需要用兩個(gè)下標(biāo)來(lái)標(biāo)識(shí)，分別表示行號(hào)與列號(hào)的數(shù)組元素需要用兩個(gè)下標(biāo)來(lái)標(biāo)識(shí)，分別表示行號(hào)與列號(hào)u例：例：Option base 1Optio

20、n base 1 Dim Y(3,4) as integer Dim Y(3,4) as integeru邏輯結(jié)構(gòu)：邏輯結(jié)構(gòu)： Y(1,1),Y(1,2),Y(1,3),Y(1,4)Y(1,1),Y(1,2),Y(1,3),Y(1,4) Y(2,1),Y(2,2),Y(2,3),Y(2,4) Y(2,1),Y(2,2),Y(2,3),Y(2,4) Y(3,1),Y(3,2),Y(3,3),Y(3,4) Y(3,1),Y(3,2),Y(3,3),Y(3,4)u存儲(chǔ)結(jié)構(gòu)：存儲(chǔ)結(jié)構(gòu)： “按列存放按列存放” 中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)

21、精選ppt3 3 、三維數(shù)組的結(jié)構(gòu)、三維數(shù)組的結(jié)構(gòu)l三維數(shù)組是由行，列和頁(yè)組成的三維表。三維數(shù)組也可理三維數(shù)組是由行，列和頁(yè)組成的三維表。三維數(shù)組也可理解為幾頁(yè)的二維表，即每頁(yè)由一張二維表組成，三維數(shù)組解為幾頁(yè)的二維表，即每頁(yè)由一張二維表組成，三維數(shù)組的元素是由行號(hào)，列號(hào)和頁(yè)號(hào)來(lái)標(biāo)識(shí)的。的元素是由行號(hào)，列號(hào)和頁(yè)號(hào)來(lái)標(biāo)識(shí)的。l例如：例如：Option Base 1Option Base 1Dim Page(3,3,2) As Integer Dim Page(3,3,2) As Integer l存儲(chǔ)結(jié)構(gòu)：存儲(chǔ)結(jié)構(gòu)：“逐頁(yè)逐列逐頁(yè)逐列”中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visu

22、al Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.1.3 6.1.3 數(shù)組函數(shù)及數(shù)組語(yǔ)句數(shù)組函數(shù)及數(shù)組語(yǔ)句 Dim A(5) As Integer, B(2, 3 to 5) As Integer a1=LBound(A) a2=UBound(A) b1=LBound(B,1) b2=LBound(B,2) b3=UBound(B,1) b4=UBound(B,2) Print a1;a2;b1;b2;b3; b4結(jié)果：結(jié)果：0 5 0 3 2 5舉例舉例: :1 1、返回上、下界函數(shù)：、返回上、下界函數(shù)：上界：上界：UBound(UBound(數(shù)組名數(shù)組名,d,d）下界：下界：LBound(L

23、Bound(數(shù)組名數(shù)組名,d,d）說(shuō)明：說(shuō)明：d d代表維數(shù)。省略時(shí)表示返回第一維的值。代表維數(shù)。省略時(shí)表示返回第一維的值。中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt格式：格式： Erase a1,a2,.Erase a1,a2,.功能：功能：對(duì)普通數(shù)組（固定大小數(shù)組）重新初始化（按數(shù)組類(lèi)對(duì)普通數(shù)組（固定大小數(shù)組）重新初始化（按數(shù)組類(lèi)型給元素賦初值）；對(duì)型給元素賦初值）；對(duì)動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組進(jìn)行存儲(chǔ)空間釋放。進(jìn)行存儲(chǔ)空間釋放。例：例：Option Base 1Private Sub Form_Click() Dim A(3) As I

24、nteger, B() As Integer A(1) = 1: A(2) = 2: A(3) = 3 ReDim B(4) Print A(1), A(2), A(3) Erase A, B Print A(1), A(2), A(3)End Sub2 2、 Erase Erase 初始化數(shù)組語(yǔ)句初始化數(shù)組語(yǔ)句中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt格式格式： For Each Element In For Each Element In 語(yǔ)句塊語(yǔ)句塊Exit ForExit For語(yǔ)句塊語(yǔ)句塊 Next ElementNext

25、 Element功能功能：依次（存儲(chǔ)次序）處理每一個(gè)數(shù)組元數(shù)，直到數(shù)組結(jié)束。：依次（存儲(chǔ)次序）處理每一個(gè)數(shù)組元數(shù)，直到數(shù)組結(jié)束。說(shuō)明說(shuō)明： ElementElement是是VariantVariant變量，它逐個(gè)地代表數(shù)組中的每一個(gè)變量，它逐個(gè)地代表數(shù)組中的每一個(gè)變量。變量。3 3、 For Each-Next For Each-Next 數(shù)組循環(huán)結(jié)構(gòu)數(shù)組循環(huán)結(jié)構(gòu)中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選pptOption Base 1Private Sub Form_Click() Dim E(2, 3) As Integer, V A

26、s Variant Dim i As Integer, j As Integer For i = 1 To 2 For j = 1 To 3 E(i, j) = i * 10 + j Print E(i, j); Next j Print Next i For Each V In E Print V; Next VEnd Sub處理順序?yàn)樵摂?shù)組的存儲(chǔ)順序處理順序?yàn)樵摂?shù)組的存儲(chǔ)順序按列按列!舉例舉例中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.2 6.2 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組定義：在程序運(yùn)行過(guò)程中，可重新定義大小的數(shù)組。定義：在程序運(yùn)行過(guò)

27、程中，可重新定義大小的數(shù)組。動(dòng)態(tài)數(shù)組的說(shuō)明分兩步：動(dòng)態(tài)數(shù)組的說(shuō)明分兩步： Dim Dim 數(shù)組名（）數(shù)組名（）as as 類(lèi)型類(lèi)型 在變量說(shuō)明部分在變量說(shuō)明部分 ReDim Preserve ReDim Preserve (維界定義維界定義) ) 在過(guò)程中在過(guò)程中Private Sub Form_Click() Dim A( ) As Integer ，B( ) As Integer 說(shuō)明整型的動(dòng)態(tài)數(shù)組說(shuō)明整型的動(dòng)態(tài)數(shù)組A A、B B Dim x as Integer ReDim A(4) 重新說(shuō)明數(shù)組重新說(shuō)明數(shù)組A, ,分配分配4 4個(gè)整型數(shù)的內(nèi)存空間個(gè)整型數(shù)的內(nèi)存空間 x=Val(Text

28、1.text) ReDim B(x) 重新說(shuō)明數(shù)組重新說(shuō)明數(shù)組B，按照輸入的大小分配空間，按照輸入的大小分配空間 .End Sub注意：注意： - - 用用DimDim語(yǔ)句聲明過(guò)的數(shù)組，只是一個(gè)空數(shù)組，系統(tǒng)并沒(méi)有給它分配內(nèi)存語(yǔ)句聲明過(guò)的數(shù)組，只是一個(gè)空數(shù)組，系統(tǒng)并沒(méi)有給它分配內(nèi)存空間，此時(shí)，不能對(duì)數(shù)組元素進(jìn)行存取操作，否則出錯(cuò)?？臻g，此時(shí)，不能對(duì)數(shù)組元素進(jìn)行存取操作，否則出錯(cuò)。必須用必須用ReDimReDim語(yǔ)句語(yǔ)句重新重新定義其大小，系統(tǒng)才給它分配內(nèi)存，用戶才能對(duì)此數(shù)組元素進(jìn)行操作。定義其大小，系統(tǒng)才給它分配內(nèi)存，用戶才能對(duì)此數(shù)組元素進(jìn)行操作。 - - 重定義時(shí)，維界定義中可以是有了確定值的

29、重定義時(shí)，維界定義中可以是有了確定值的變量變量中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt 重新定義動(dòng)態(tài)數(shù)組時(shí)，重新定義動(dòng)態(tài)數(shù)組時(shí)，不能改變數(shù)據(jù)類(lèi)型不能改變數(shù)據(jù)類(lèi)型，RedimRedim語(yǔ)句的語(yǔ)句的As As TypeType一般省略，若不省略也必須和數(shù)組說(shuō)明語(yǔ)句一致。一般省略，若不省略也必須和數(shù)組說(shuō)明語(yǔ)句一致。 如果如果RedimRedim重定義的數(shù)組不存在，則相當(dāng)于一個(gè)說(shuō)明語(yǔ)句，系重定義的數(shù)組不存在，則相當(dāng)于一個(gè)說(shuō)明語(yǔ)句，系統(tǒng)會(huì)動(dòng)態(tài)創(chuàng)建一個(gè)新數(shù)組，并分配存儲(chǔ)空間。統(tǒng)會(huì)動(dòng)態(tài)創(chuàng)建一個(gè)新數(shù)組，并分配存儲(chǔ)空間。 在過(guò)程中可以多次使用在過(guò)程

30、中可以多次使用ReDimReDim來(lái)改變數(shù)組的大小，也可改變數(shù)來(lái)改變數(shù)組的大小，也可改變數(shù)組的維數(shù)。（例組的維數(shù)。（例1 1） 每次使用每次使用ReDimReDim語(yǔ)句都會(huì)使原來(lái)數(shù)組中的值丟失，可以在語(yǔ)句都會(huì)使原來(lái)數(shù)組中的值丟失，可以在ReDimReDim語(yǔ)句后加語(yǔ)句后加PreservePreserve參數(shù)來(lái)保留數(shù)組中的數(shù)據(jù)，但使用參數(shù)來(lái)保留數(shù)組中的數(shù)據(jù)，但使用PreservePreserve只只能改變最后一維的大小，前面幾維大小不能改變。（例能改變最后一維的大小，前面幾維大小不能改變。（例2 2）說(shuō)說(shuō) 明明中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)

31、程序設(shè)計(jì)精選pptOption base 1Dim Dynarry() as integerDim x as integer,y as integerDynarry(1)=1 Redim Dynarry(9)Dynarry(1)=1Print Dynarry(1)x=2:y=4Redim Dynarry(x,y)Dynarry(1,1)=1Print Dynarry(1,1)Erase DynarryDynarry(1,1)=1給一維數(shù)組元素賦值給一維數(shù)組元素賦值給二維數(shù)組元素賦值給二維數(shù)組元素賦值舉例舉例1 1非法語(yǔ)句，出錯(cuò)非法語(yǔ)句，出錯(cuò)非法語(yǔ)句，出錯(cuò)非法語(yǔ)句，出錯(cuò)中國(guó)藥科大學(xué)中國(guó)藥科大學(xué)

32、計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選pptOption ExplicitOption Base 1Private Sub Form_Click() Dim i As Integer, a() As Integer ReDim a(4) For i = 1 To 4 a(i) = i Print a(i); Next i Print ReDim Preserve a(6) a(5) = 5 a(6) = 6 For i = 1 To 6 Print a(i); Next iEnd Sub如果省去如果省去 Preserve，會(huì)怎樣？會(huì)怎樣？舉例舉例2 2中國(guó)藥科

33、大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt舉例舉例3：找出：找出10001000以內(nèi)的所有完數(shù)。所謂完數(shù)，是指它的所有的以內(nèi)的所有完數(shù)。所謂完數(shù)，是指它的所有的質(zhì)因子之和等于它本身的數(shù)，如質(zhì)因子之和等于它本身的數(shù)，如6=1+2+36=1+2+3。l 解題思路：解題思路： 第一步：找出確定一個(gè)數(shù)是完數(shù)的方法；第一步：找出確定一個(gè)數(shù)是完數(shù)的方法； 第二步：從第二步：從1 1到到10001000依次判斷。依次判斷。l 算法實(shí)現(xiàn)算法實(shí)現(xiàn): : 兩層循環(huán)：兩層循環(huán)： 內(nèi)層循環(huán)內(nèi)層循環(huán)用于找出某數(shù)用于找出某數(shù) m m 的所有因子并相加求和，并在循的所有

34、因子并相加求和，并在循環(huán)結(jié)束后依據(jù)因子和是否與該數(shù)相等來(lái)判斷該數(shù)是否是完數(shù)；環(huán)結(jié)束后依據(jù)因子和是否與該數(shù)相等來(lái)判斷該數(shù)是否是完數(shù)； 外層循環(huán)外層循環(huán)則用于窮舉所有則用于窮舉所有10001000以內(nèi)的整數(shù)。以內(nèi)的整數(shù)。中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選pptPrivate Sub Form_Click() Dim i As Integer, f As Integer, s As Integer For i = 1 To 1000 s = 0 For j = 1 To i - 1 If i Mod j = 0 Then s = s +

35、 j Next j If s = i Then Print i Next iEnd Sub注意注意s賦初值的位置賦初值的位置中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt真題例：真題例：找出找出10001000以內(nèi)的所有完數(shù)并以指定的格式在列表框中輸出。所以內(nèi)的所有完數(shù)并以指定的格式在列表框中輸出。所謂完數(shù)，是指它的所有的因子之和等于它本身的數(shù)，如謂完數(shù)，是指它的所有的因子之和等于它本身的數(shù)，如6=1+2+36=1+2+3。 解題思路：解題思路：u第一步：找出確定一個(gè)數(shù)是完數(shù)第一步：找出確定一個(gè)數(shù)是完數(shù) 的方法；的方法；u第二步：從第二

36、步：從1 1到到10001000依次判斷。依次判斷。 算法實(shí)現(xiàn)算法實(shí)現(xiàn): : 兩層循環(huán)：兩層循環(huán)： 內(nèi)層循環(huán)內(nèi)層循環(huán)用于找出某數(shù)用于找出某數(shù) m m 的所有因子的所有因子, ,相加求和，并在相加求和，并在循環(huán)結(jié)束后依據(jù)因子和是否與該數(shù)相等來(lái)判斷該數(shù)是否是完循環(huán)結(jié)束后依據(jù)因子和是否與該數(shù)相等來(lái)判斷該數(shù)是否是完數(shù)數(shù)，如果是則按指定格式輸出；如果是則按指定格式輸出； 外層循環(huán)外層循環(huán)則用于窮舉所有則用于窮舉所有10001000以內(nèi)的整數(shù)以內(nèi)的整數(shù)。中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選pptPrivate Sub Command1_Clic

37、k() Dim i As Integer, j As Integer, s As Integer, k As Integer Dim str1 As String, a() As Integer For i = 1 To 1000 s = 0 For j = 1 To i 1 If i Mod j = 0 Then 是因子，保存進(jìn)數(shù)組并累加求和是因子，保存進(jìn)數(shù)組并累加求和 s = s + j End If Next j If s = i Then 是完數(shù)，按指定格式輸出是完數(shù)，按指定格式輸出 End If Next iEnd Sub注意注意s、k賦初值的位置賦初值的位置: k = 0k = k

38、 + 1ReDim Preserve a(k)a(k) = jstr1 = CStr(i) & =For j = 1 To k str1 = str1 & CStr(a(j) & +Next jList1.AddItem left(str1,len(str1)-1)中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.3 6.3 數(shù)組的基本操作數(shù)組的基本操作6.3.1 6.3.1 給數(shù)組元素賦值給數(shù)組元素賦值6.3.2 6.3.2 數(shù)組的輸入數(shù)組的輸入6.3.3 6.3.3 數(shù)組的輸出數(shù)組的輸出中國(guó)藥科大學(xué)中國(guó)藥科大

39、學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.3.1 6.3.1 給數(shù)組元素賦值給數(shù)組元素賦值1、用賦值語(yǔ)句進(jìn)行賦值、用賦值語(yǔ)句進(jìn)行賦值 l 可以采用賦值語(yǔ)句對(duì)數(shù)組元素直接賦值，如：可以采用賦值語(yǔ)句對(duì)數(shù)組元素直接賦值，如： Dim City(100) As StringDim Test(4, 5) As IntegerTest(2, 3) = 87City(0) = NanJingCity(36) = ShangHai中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.3.1 6.3.1 給數(shù)組元素

40、賦值給數(shù)組元素賦值2、通過(guò)循環(huán)進(jìn)行賦值、通過(guò)循環(huán)進(jìn)行賦值l 一維數(shù)組可通過(guò)一重計(jì)數(shù)循環(huán)給數(shù)組的每個(gè)元素一維數(shù)組可通過(guò)一重計(jì)數(shù)循環(huán)給數(shù)組的每個(gè)元素賦值賦值l 多維數(shù)組可通過(guò)多重計(jì)數(shù)循環(huán)給數(shù)組的每個(gè)元素多維數(shù)組可通過(guò)多重計(jì)數(shù)循環(huán)給數(shù)組的每個(gè)元素賦值賦值l 可使用可使用InputBox函數(shù)結(jié)合循環(huán)結(jié)構(gòu)在程序的運(yùn)行函數(shù)結(jié)合循環(huán)結(jié)構(gòu)在程序的運(yùn)行過(guò)程中給數(shù)組元素賦值過(guò)程中給數(shù)組元素賦值中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt2 2、通過(guò)循環(huán)進(jìn)行賦值、通過(guò)循環(huán)進(jìn)行賦值l 舉例：舉例：Option Base 1Private Sub Form_C

41、lick() Dim a(6) As Integer,b(2, 3) As Integer,i As Integer,j As Integer For i = 1 To 6 a(i) = InputBox(請(qǐng)輸入請(qǐng)輸入a( & i & ), 數(shù)組數(shù)組a賦值賦值) Print a(i); Next i Print For i = 1 To 2 For j = 1 To 3 b(i, j) = Int(Rnd * 90) + 10 Print b(i, j); Next j Print Next iEnd Sub查看程序查看程序中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 V

42、isual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt格式：格式：變體變量名變體變量名|變體類(lèi)型的動(dòng)態(tài)數(shù)組名變體類(lèi)型的動(dòng)態(tài)數(shù)組名=Array(n1,n2,.)功能：功能：將一個(gè)變體型變量創(chuàng)建成為一個(gè)一維數(shù)組，并包含指定將一個(gè)變體型變量創(chuàng)建成為一個(gè)一維數(shù)組，并包含指定的元素。元素的引用方式與一般數(shù)組一樣。的元素。元素的引用方式與一般數(shù)組一樣。注意：注意：Array賦值函數(shù)賦值函數(shù)只能給變體型變量或動(dòng)態(tài)數(shù)組只能給變體型變量或動(dòng)態(tài)數(shù)組賦值。不賦值。不能給其他類(lèi)型的變量及數(shù)組賦值。能給其他類(lèi)型的變量及數(shù)組賦值。3*、Array賦值函數(shù)賦值函數(shù)Option Base 1Private Sub Form_Cl

43、ick() Dim a As Variant, b As Integer Dim C(4) As Variant a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) Print a(1), a(5), a(10) a = Array Print a b = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) 出錯(cuò)出錯(cuò) C=Array(1,2,3,4,5) 出錯(cuò)出錯(cuò)End Sub？改為？改為C(1)C(1)是否可以是否可以中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt 將一個(gè)數(shù)組內(nèi)的整個(gè)

44、內(nèi)容賦給將一個(gè)數(shù)組內(nèi)的整個(gè)內(nèi)容賦給另一個(gè)數(shù)組另一個(gè)數(shù)組或或變體變量變體變量。賦值后，賦值符左邊的數(shù)組的維數(shù)、每一維的下界和上界都和賦值后，賦值符左邊的數(shù)組的維數(shù)、每一維的下界和上界都和賦值符右邊的數(shù)組相同。賦值符右邊的數(shù)組相同。規(guī)則：規(guī)則：（1）賦值符左邊的數(shù)組是動(dòng)態(tài)數(shù)組）賦值符左邊的數(shù)組是動(dòng)態(tài)數(shù)組（2）賦值符兩邊數(shù)組的數(shù)據(jù)類(lèi)型必須相同）賦值符兩邊數(shù)組的數(shù)據(jù)類(lèi)型必須相同用數(shù)組給變體變量賦值時(shí)，注意：用數(shù)組給變體變量賦值時(shí)，注意：（1）賦值符右邊數(shù)組的類(lèi)型不可以是長(zhǎng)度固定的字符串類(lèi)型）賦值符右邊數(shù)組的類(lèi)型不可以是長(zhǎng)度固定的字符串類(lèi)型（2）變體變量被賦值后，就被創(chuàng)建成一個(gè)包含數(shù)組的變體變量）變體變

45、量被賦值后，就被創(chuàng)建成一個(gè)包含數(shù)組的變體變量（3）變體變量所包含數(shù)組的維數(shù)、每一維的下界和上界以及元）變體變量所包含數(shù)組的維數(shù)、每一維的下界和上界以及元素的類(lèi)型都和賦值符右邊的數(shù)組相同。素的類(lèi)型都和賦值符右邊的數(shù)組相同。例例P934*、數(shù)組賦值、數(shù)組賦值中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.3.2 6.3.2 數(shù)組的輸入數(shù)組的輸入l輸入少量數(shù)據(jù)時(shí)可通過(guò)輸入少量數(shù)據(jù)時(shí)可通過(guò)InputBox函數(shù)輸入，例如：函數(shù)輸入，例如： Dim Score(3, 4) As SingleFor i = 1 To 3For j = 1 To 4

46、Score(i, j) = InputBox(“輸入第輸入第” & i & “個(gè)學(xué)生個(gè)學(xué)生的第的第” & j & 門(mén)課成績(jī)：門(mén)課成績(jī)：) Next j Next i中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.3.2 6.3.2 數(shù)組的輸入數(shù)組的輸入2通過(guò)文本框輸入通過(guò)文本框輸入 l對(duì)大批量的數(shù)據(jù)輸入，采用文本框輸入效率更高。對(duì)大批量的數(shù)據(jù)輸入，采用文本框輸入效率更高。輸入時(shí)可以采用輸入時(shí)可以采用Instr函數(shù)獲取分隔符的位置函數(shù)獲取分隔符的位置,將將文本框內(nèi)容分割后分別給數(shù)組元素賦值文本框內(nèi)容分割后

47、分別給數(shù)組元素賦值.*采用采用Split函數(shù)將更加方便。函數(shù)將更加方便。 Split函數(shù)返回一個(gè)函數(shù)返回一個(gè)從零開(kāi)始的一維數(shù)組，賦值號(hào)左邊必須是一個(gè)變從零開(kāi)始的一維數(shù)組，賦值號(hào)左邊必須是一個(gè)變體型變量體型變量.Instr舉例舉例Split舉例舉例中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選pptl補(bǔ)充補(bǔ)充：通過(guò)文本框給二維數(shù)組元素賦值：通過(guò)文本框給二維數(shù)組元素賦值中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選pptOption ExplicitOption Base 1Private Su

48、b Command1_Click() Dim s As String, pos As Integer Dim j As Integer, k As Integer Dim a(3, 3) As Integer, i As Integer s = Text1 For i = 1 To 3 For j =1 To 3 k = 0 pos = pos + 1 Do While Mid(s, pos, 1) And pos = Len(s) pos = pos + 1 k = k + 1 Loop a(i, j) = Mid(s, pos - k, k) Text2 = Text2 & CSt

49、r(a(i, j) & Next j Text2 = Text2 & vbCrLf Next iEnd Sub回車(chē)換行符，相當(dāng)于回車(chē)換行符，相當(dāng)于Chr(13)&Chr(10)注意：文本框的注意：文本框的Multiline屬性設(shè)為屬性設(shè)為T(mén)rue中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.3.3 6.3.3 數(shù)組的輸出數(shù)組的輸出 用用PrintPrint方法顯示在窗體或圖片框上方法顯示在窗體或圖片框上 賦值給文本框的賦值給文本框的TextText屬性，在文本框中顯示屬性，在文本框中顯示 調(diào)試時(shí)，調(diào)用調(diào)試時(shí)，

50、調(diào)用DebugDebug的的PrintPrint方法在方法在“立即立即”窗口中顯示窗口中顯示注：注： 一維數(shù)組用計(jì)數(shù)循環(huán)結(jié)合數(shù)組元素輸出語(yǔ)句進(jìn)行輸出。一維數(shù)組用計(jì)數(shù)循環(huán)結(jié)合數(shù)組元素輸出語(yǔ)句進(jìn)行輸出。 二維數(shù)組用二重計(jì)數(shù)循環(huán)結(jié)合數(shù)組元素輸出語(yǔ)句，外二維數(shù)組用二重計(jì)數(shù)循環(huán)結(jié)合數(shù)組元素輸出語(yǔ)句，外層循環(huán)控制行下標(biāo)變化，內(nèi)層循環(huán)控制列下標(biāo)變化層循環(huán)控制行下標(biāo)變化，內(nèi)層循環(huán)控制列下標(biāo)變化中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt一維數(shù)組的賦值與輸出：一維數(shù)組一維數(shù)組的賦值與輸出：一維數(shù)組a(20) ，要求按照每行，要求按照每行6個(gè)元素的個(gè)元素

51、的格式輸出。數(shù)組元素為格式輸出。數(shù)組元素為100-200之間的隨機(jī)數(shù)。之間的隨機(jī)數(shù)。Option Base 1Private Sub Form_Click() Dim a(20) As Integer Dim i As Integer, j As Integer Randomize For i = 1 To 20 a(i) = Int(101 * Rnd) + 100 Next iEnd Sub For i = 1 To 20 Print a(i) ; Next iIf i Mod 6=0 Then Print舉例舉例1 1變化中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual

52、Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt二維數(shù)組的賦值與輸出：二維數(shù)組的賦值與輸出：3行行4列，數(shù)組元素為列，數(shù)組元素為2050隨機(jī)數(shù)隨機(jī)數(shù)Option ExplicitOption Base 1Private Sub Form_Click() Dim i As Integer, j As Integer Dim a(3, 4) As Integer Randomize For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(Rnd * 31 + 20) Next j Next i For i = 1 To 3 For j = 1 To 4 Print a(i,

53、j) ; Next j Print Next iEnd Sub二維數(shù)組引用必須用二重循環(huán)實(shí)現(xiàn)二維數(shù)組引用必須用二重循環(huán)實(shí)現(xiàn)程序分析：程序分析：程序執(zhí)行時(shí)，計(jì)數(shù)程序執(zhí)行時(shí)，計(jì)數(shù)變量i和和j的的變化為：為：i=1時(shí)，j從1變化到4，結(jié)束內(nèi)層循環(huán)，i變成2i=2時(shí)，j從1變化到4，結(jié)束內(nèi)層循環(huán)，i變成3i=3時(shí)，j從1變化到4，結(jié)束內(nèi)層循環(huán)，i變成4結(jié)束外層循環(huán)。結(jié)束外層循環(huán)。循環(huán)變量(i , j)的變化過(guò)程為（1，1）（）（1，2）（）（1，3）（）（1，4）（2，1）（）（2，2）（）（2，3）（）（2，4）（3，1）（）（3，2）（）（3，3）（）（3，4）正好和二維數(shù)組引用的下標(biāo)一致。正好和

54、二維數(shù)組引用的下標(biāo)一致。舉例舉例2 2For i = 1 To 3 For j = 1 To 4 Picture1.Print a(i, j) ; Next j Picture1.Print Next iFor i = 1 To 3 For j = 1 To 4 s=s & a(i, j) Next j s=s & Chr(13) & Chr(10)Next IText1.Text=s中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt補(bǔ)充：數(shù)組元素的引用補(bǔ)充：數(shù)組元素的引用程序中可以像使用普通變量一樣引用數(shù)組元素。程

55、序中可以像使用普通變量一樣引用數(shù)組元素。引用形式：數(shù)據(jù)名（下標(biāo)）引用形式：數(shù)據(jù)名（下標(biāo)） 注意注意：在引用數(shù)組元素時(shí)，元素的下標(biāo)一定要在定義的上在引用數(shù)組元素時(shí)，元素的下標(biāo)一定要在定義的上下界范圍之內(nèi)，否則下界范圍之內(nèi)，否則“數(shù)組越界數(shù)組越界”出錯(cuò)。出錯(cuò)。注意注意：在聲明語(yǔ)句中的在聲明語(yǔ)句中的A A（6 6）是）是數(shù)組說(shuō)明符數(shù)組說(shuō)明符，而在程序其，而在程序其他語(yǔ)句出現(xiàn)的他語(yǔ)句出現(xiàn)的A A（6 6）是一個(gè)）是一個(gè)數(shù)組元素?cái)?shù)組元素。中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt真題例真題例: :下列程序完成在窗體上輸出二維數(shù)組每行元素之和。

56、回答問(wèn)題：下列程序完成在窗體上輸出二維數(shù)組每行元素之和。回答問(wèn)題： 1 1、程序有沒(méi)有錯(cuò)？、程序有沒(méi)有錯(cuò)？ 2 2、如果有錯(cuò)在哪里？、如果有錯(cuò)在哪里？Option Base 1Private Sub Form_Click() Dim A(4, 5) As Integer Dim i As Integer, j As Integer Dim sum As Integer For i = 1 To 4 For j = 1 To 5 A(i, j) = Int(101 * Rnd) + 100 Print A(i, j); Next j Print Next i Print For i = 1 To

57、 4 For j = 1 To 5 sum = sum + A(i, j) Next j Next i Print 第第; i; 行元素之和為：行元素之和為：; sumEnd SubSum=0Print 第第; i; 行元素之和為：行元素之和為：; sum程序執(zhí)行結(jié)果界面程序執(zhí)行結(jié)果界面中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt有關(guān)二維數(shù)組的常見(jiàn)問(wèn)題：有關(guān)二維數(shù)組的常見(jiàn)問(wèn)題： 轉(zhuǎn)置轉(zhuǎn)置 求對(duì)角線元素之和求對(duì)角線元素之和 求周邊元素之和求周邊元素之和 求上、下三角形元素之和求上、下三角形元素之和 求鞍點(diǎn)、最大、最小元素求鞍點(diǎn)、最大、最

58、小元素 二維數(shù)組相乘二維數(shù)組相乘中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選pptOption Base 1Private Sub Form_Click() Dim i As Integer, j As Integer, a(3, 4) As Integer Randomize For i = 1 To 3 For j = 1 To 4 a(i, j) = Int(Rnd * 31 + 20) Print a(i,j); Next j Print Next IEnd Sub真題例：真題例：產(chǎn)生一個(gè)產(chǎn)生一個(gè)3 3行行4 4列的矩陣，數(shù)據(jù)為列的

59、矩陣，數(shù)據(jù)為2020，5050之間的隨機(jī)數(shù)，然后之間的隨機(jī)數(shù)，然后將矩陣轉(zhuǎn)置輸出。將矩陣轉(zhuǎn)置輸出。For i = 1 To 4 For j = 1 To 3 Print a(j ,i); Next j Print Next iFor j= 1 To 4 For i= 1 To 3 Print a( i , j); Next i PrintNext j思考題：思考題：求求n n階方陣的轉(zhuǎn)置階方陣的轉(zhuǎn)置矩陣，并輸出？矩陣，并輸出？Dim V As Variant , h As IntegerFor Each V In a Print V; h=h+1 If h mod 3 =0 PrintNext

60、 V中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt1 1、分別求一個(gè)、分別求一個(gè)3 3* *3 3二維數(shù)組的主、付對(duì)角線元二維數(shù)組的主、付對(duì)角線元素之和。素之和。2 2、求二維數(shù)組周邊元素之和。、求二維數(shù)組周邊元素之和。練練 習(xí)習(xí)中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual Basic 程序設(shè)計(jì)程序設(shè)計(jì)精選ppt6.4 6.4 控件數(shù)組控件數(shù)組6.4.1 6.4.1 控件數(shù)組的基本概念控件數(shù)組的基本概念6.4.2 6.4.2 控件數(shù)組的建立控件數(shù)組的建立6.4.3 6.4.3 控件數(shù)組的使用控件數(shù)組的使用 LoadLoad語(yǔ)句語(yǔ)句 UnloadUnload語(yǔ)句語(yǔ)句中國(guó)藥科大學(xué)中國(guó)藥科大學(xué) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室 Visual B