編制電視歌手大賽評(píng)分程序，要求評(píng)委人數(shù)和每位評(píng)委的打分從鍵盤(pán)輸入，去掉一個(gè)最高分，再去掉一個(gè)最低分，求評(píng)委給出的最后得分。思考與回顧第5章VB編程1—數(shù)組應(yīng)用

（P48,P81~90)任務(wù)1(P81-例5-1)隨機(jī)產(chǎn)生50個(gè)兩位的整數(shù)作為一個(gè)班學(xué)生的考試成績(jī)，求平均分，最高分、最低分。問(wèn)題分析1、隨機(jī)數(shù)的產(chǎn)生2、每個(gè)隨機(jī)數(shù)的顯示-------圖片框3、結(jié)果的顯示-----文本框4、關(guān)鍵算法：最高分，最低分，平均分新知識(shí)點(diǎn)----圖片框、圖像框圖片框圖像框圖片框主要屬性Name：名稱(chēng)Picture：顯示圖片和圖像。Autosize屬性:決定圖片框是否自動(dòng)適應(yīng)圖片的大小true：圖片框自動(dòng)調(diào)整大小適應(yīng)圖片。false：圖片框不能自動(dòng)調(diào)整大小，加載的圖形保持其原始尺寸。圖像框的主要屬性Name：名稱(chēng)Picture：顯示圖片和圖象。Strech屬性：決定圖片是否自動(dòng)適應(yīng)控件的大小true：被加載圖形自動(dòng)調(diào)整大小適應(yīng)圖像框的大小。false：圖像框自動(dòng)調(diào)整大小適應(yīng)加載的圖形。圖片設(shè)置的方法----picture屬性1、設(shè)計(jì)階段設(shè)置----利用屬性窗口2、在程序執(zhí)行過(guò)程中加載。-----------loadpicture()例如：P1.Picture=LoadPicture(“圖片所在的位置及文件名”)

P1.Picture＝LoadPicture(″D：\Pic1.jpg″)p1.picture=loadpicture(“”)思考在窗體Form1上畫(huà)一個(gè)圖片框，名稱(chēng)為P1，高為1900，寬為2400。請(qǐng)編寫(xiě)適當(dāng)?shù)氖录^(guò)程，使得在運(yùn)行時(shí)，如果單擊窗體，則裝入D盤(pán)下的文件名為Pic1.bmp的圖片；如果雙擊窗體，則圖片框中的圖片消失。兩個(gè)控件的主要區(qū)別①圖片框可以作為其它控件的容器②圖片框可以通過(guò)Print方法顯示文本如：圖片框名稱(chēng).print表達(dá)式③圖像框比圖片框占用內(nèi)存少，顯示速度快思考與回顧思考主要代碼DimiAsIntegerPicture1.ClsFori=1To7Picture1.PrintString(2*i-1,"*")Next應(yīng)用Fibonacci數(shù)列定義如下：

F1=1

F2=1

Fn=Fn-1+Fn-2(n>2)

求Fibonacci數(shù)列的前30項(xiàng)。

要求：數(shù)列中的每個(gè)數(shù)顯示在圖片框中，且每行顯示5個(gè)數(shù)字。Dimf1&,f2&,f3&,i%f1=1f2=1Picture1.Printf1;f2;Fori=3To30f3=f1+f2Picture1.Printf3;IfiMod5=0ThenPicture1.PrintEndIff1=f2f2=f3Next應(yīng)用隨機(jī)產(chǎn)生50個(gè)兩位的整數(shù)作為一個(gè)班學(xué)生的考試成績(jī)，求平均分，最高分、最低分。（P82)要求：（1）利用圖片框顯示學(xué)生的成績(jī)，每行10個(gè)。（2）利用文本框顯示平均分，最高分，最低分任務(wù)1知識(shí)點(diǎn)小結(jié)1、隨機(jī)數(shù)的產(chǎn)生2、圖片框和圖像框的使用3、如何利用圖片框輸出文本信息4、最大數(shù)和最小數(shù)算法的求解。在若干個(gè)數(shù)中求最大值，一般先假設(shè)一個(gè)較小的數(shù)為最大值的初值，若無(wú)法估計(jì)較小的值，則取第一個(gè)數(shù)為最大值的初值；然后將每一個(gè)數(shù)與最大值比較，若該數(shù)大于最大值，將該數(shù)替換為最大值；依次逐一比較。任務(wù)2[例5-3]隨機(jī)產(chǎn)生50個(gè)兩位整數(shù)作為一個(gè)班某門(mén)課程的成績(jī)，然后求該門(mén)課程的平均分并統(tǒng)計(jì)高于平均分的人數(shù)。

對(duì)比：隨機(jī)產(chǎn)生50個(gè)兩位的整數(shù)作為一個(gè)班學(xué)生的考試成績(jī)，求平均分，最高分、最低分。數(shù)組的基本概念（P48)一維數(shù)組應(yīng)用新知識(shí)點(diǎn)-----數(shù)組數(shù)組的基本概念1、數(shù)組的定義：數(shù)組是由一定數(shù)目的同類(lèi)元素按一定順序排列而成的結(jié)構(gòu)數(shù)據(jù)類(lèi)型，是一組具有同一名字（數(shù)組名）、不同下標(biāo)的下標(biāo)變量（數(shù)組元素）的集合例1：一個(gè)班60名學(xué)生的成績(jī)組成一個(gè)數(shù)組G，每個(gè)學(xué)生的成績(jī)分別表示為：G(1),G(2),G(3),…,G(i),…,G(60)例2：某廠5個(gè)車(chē)間全年各季度的產(chǎn)量組成數(shù)組P，每個(gè)車(chē)間每季度的產(chǎn)量分別表示為：P(1,1),P(1,2),P(1,3),P(1,4)P(2,1),P(2,2),P(2,3),P(2,4)P(3,1),P(3,2),P(3,3),P(3,4)P(4,1),P(4,2),P(4,3),P(4,4)P(5,1),P(5,2),P(5,3),P(5,4)2、數(shù)組的分類(lèi)：VisualBasic中的數(shù)組，按不同的方式可分為以下幾類(lèi)：按數(shù)組的大?。ㄔ貍€(gè)數(shù)）是否可以改變來(lái)分為：定長(zhǎng)數(shù)組(靜態(tài)數(shù)組）、動(dòng)態(tài)（可變長(zhǎng)）數(shù)組。按元素的數(shù)據(jù)類(lèi)型可分為：數(shù)值型數(shù)組、字符串?dāng)?shù)組、日期型數(shù)組、變體數(shù)組等。按數(shù)組的維數(shù)可分為：一維數(shù)組、二維數(shù)組、多維數(shù)組。對(duì)象數(shù)組：菜單對(duì)象數(shù)組、控件數(shù)組。3、數(shù)組的基本要素(1)數(shù)組名：數(shù)組和變量一樣，也用符號(hào)名來(lái)命名。(2)數(shù)組的類(lèi)型：數(shù)組的類(lèi)型由數(shù)組元素的類(lèi)型來(lái)決定。(3)數(shù)組的維數(shù)：數(shù)組的維數(shù)即為了區(qū)分?jǐn)?shù)組元素所需順序號(hào)的個(gè)數(shù)。(4)數(shù)組的大?。簲?shù)組的大小即數(shù)組中包含數(shù)組元素的個(gè)數(shù)，由數(shù)組每維下標(biāo)的上界和下界來(lái)決定。一維數(shù)組基礎(chǔ)知識(shí)1、數(shù)組聲明定義格式案例方法1：Dim數(shù)組名（[下界to]上界）as類(lèi)型方法2：Dim數(shù)組名[類(lèi)型符]([下界to]上界)Dima(1to10)asintegerDima%(1to10)說(shuō)明：缺省下界，默認(rèn)下標(biāo)從0開(kāi)始缺省類(lèi)型，為變體類(lèi)型通用模塊定義：Optionbase0|1數(shù)組元素個(gè)數(shù)：上界-下界+12、數(shù)組結(jié)構(gòu)邏輯結(jié)構(gòu)：線性表存儲(chǔ)結(jié)構(gòu)：線性表數(shù)組中各元素在內(nèi)存占一片連續(xù)的存儲(chǔ)空間，一維數(shù)組在內(nèi)存中存放的順序是下標(biāo)大小的順序。例如Dimmark(1To100)AsInteger思考與應(yīng)用1、輸入50個(gè)學(xué)生的一門(mén)課程的成績(jī)，然后求其平均分并統(tǒng)計(jì)高于平均分的人數(shù)。用數(shù)組來(lái)存放這50個(gè)數(shù)，則數(shù)組應(yīng)如何定義？2、輸入10個(gè)學(xué)生的總分，求每個(gè)學(xué)生的名次。3、一維數(shù)組元素的引用使用形式：數(shù)組名(下標(biāo))

其中：下標(biāo)可以是整型變量、常量或表達(dá)式。例如：設(shè)有下面的數(shù)組定義：DimB(10)AsInteger，A(10)AsInteger則下面的語(yǔ)句都是正確的。A(1)=A(2)+B(1)+5'取數(shù)組元素運(yùn)算A(i)=B(i)'下標(biāo)使用變量B(i+1)=A(i+2)'下標(biāo)使用表達(dá)式一維數(shù)組基本操作基本操作方法案例數(shù)組元素值的確定利用賦值語(yǔ)句利用輸入函數(shù)利用array函數(shù)A(1)=5A(1)=val(inputbox(“請(qǐng)輸入數(shù)據(jù)”))DimbB=array(2,3,4,5)數(shù)組元素輸出利用窗體輸出利用文本框輸出利用圖片框輸出Printa(1)Text1.text=a(1)Picture1.printa(1)說(shuō)明：如果要輸入或輸出整個(gè)數(shù)組所有元素，一般配合一重循環(huán)結(jié)構(gòu)使用Dima(1to10)asinteger,IasintegerForI=1to10a(I)=2*INextForI=1to10a(I)=val(inputbox(“請(qǐng)輸入”+str(I)+”數(shù)據(jù)“))Next在窗體中輸出數(shù)組每個(gè)元素：fori=1To10Printa(i);Nexti在文本框中輸出數(shù)組每個(gè)元素：Fori=1To10Text1.Text=Text1.Text+","+Str(a(i))Next在圖片框中輸出數(shù)組每個(gè)元素Fori=1To10Picture1.Printa(i);Next

編程求輸入50個(gè)學(xué)生的一門(mén)課程的成績(jī)，然后求其平均分并統(tǒng)計(jì)高于平均分的人數(shù)。應(yīng)用（p83-例5-3）OptionBase1PrivateSubCommand1_Click()Dimi%,avg!,sum!,a(50)AsSingleDimcount%count=0sum=0Fori=1To50a(i)=InputBox("請(qǐng)輸入第"+Str(i))Text3.Text=Text3+Space(2)+Str(a(i))sum=sum+a(i)Nextiavg=sum/50Fori=1To50Ifa(i)>avgThencount=count+1EndIfNextiText1.Text=avgText2.Text=countEndSub回顧與應(yīng)用請(qǐng)定義一個(gè)包含10個(gè)元素的一維數(shù)組，按照賦值a(I)=2*I的規(guī)律給各元素賦值，計(jì)算輸出數(shù)組的平均值。隨機(jī)產(chǎn)生10個(gè)[50,100]的整數(shù)，求其和。數(shù)組計(jì)數(shù)器。輸入10名學(xué)生一門(mén)課程的考試成績(jī)，統(tǒng)計(jì)各分?jǐn)?shù)段的人數(shù)。分?jǐn)?shù)段劃分如下：優(yōu)：[95,100]良:[80,95)中:[70,80)及格:[60,69)不及格:<60問(wèn)題1求一組數(shù)（假設(shè)10個(gè)）中最大數(shù)及最大數(shù)所在的位置。DimMaxAsInteger,iMaxAsInteger Max=A(1)：iMax=1Fori=2To10IfA(i)>MaxThen Max=A(i) iMax=iEndIfNextI問(wèn)題2將一個(gè)數(shù)組的元素按逆序重新存放。思考從鍵盤(pán)輸入10個(gè)數(shù)，要求按輸入時(shí)的逆序輸出。關(guān)鍵代碼：Fori=1To10\2t=A(i)A(i)=A(10-i+1)A(10-i+1)=tNextI問(wèn)題3在有序數(shù)組a(1ton)(原有n-1個(gè)元素)插入一個(gè)值Key元素.算法:查找要插入的位置k（1<=k<=n-1）騰出位置,把最后一個(gè)元素開(kāi)始到第K個(gè)元素往后移動(dòng)一個(gè)位置第k個(gè)元素的位置騰出，就可將數(shù)據(jù)Key插入在有序的一組數(shù)中，插入一個(gè)數(shù)后，仍保持有序。思考有一個(gè)已排好序的數(shù)組，再輸入一個(gè)數(shù)，要求按原來(lái)排序的規(guī)律將它插入數(shù)組中。Dima(1To11)AsIntegerDimi%,x%'從小到大的一組數(shù)據(jù)Fori=1To10a(i)=Val(InputBox("請(qǐng)輸入"+Str(i)+"個(gè)數(shù)據(jù)"))Nextx=Val(InputBox("請(qǐng)輸入要插入的數(shù)據(jù)"))Fori=1To10If(x<a(i))ThenExitFor‘查找位置NextForj=10ToiStep–1‘挪動(dòng)數(shù)據(jù)a(j+1)=a(j)Nexta(i)=x‘插入數(shù)據(jù)Fori=1To11Printa(i)Next問(wèn)題4算法：A、確定位置（查找）B、挪動(dòng)位置刪除一個(gè)數(shù)（假定不存在重復(fù)的數(shù)據(jù)或刪除找到的第一個(gè)數(shù)）Dimb(1To10)AsInteger,x%Fori=1To10b(i)=Val(InputBox("請(qǐng)輸入數(shù)據(jù)"))Nextx=Val(InputBox("請(qǐng)輸入要?jiǎng)h除的數(shù)據(jù)"))Fori=1To10If(x=b(i))ThenExitFor‘查找是否有要?jiǎng)h除的數(shù)據(jù)及位置“NextForj=i+1To10‘挪動(dòng)位置b(j-1)=b(j)NextFori=1To9‘輸出Printb(i);Next任務(wù)2：知識(shí)點(diǎn)小結(jié)一維數(shù)組的定義一維數(shù)組的元素的引用數(shù)組的輸入與輸出數(shù)組的簡(jiǎn)單應(yīng)用求最大值、最小值及平均值按逆序重新存放數(shù)據(jù)在一組有序的數(shù)組中，插入一個(gè)數(shù)。刪除一個(gè)數(shù)綜合應(yīng)用1、用數(shù)組保存隨機(jī)產(chǎn)生的10個(gè)介于20~50之間的整數(shù)，求其中的最大數(shù)、最小數(shù)和平均值，然后將10個(gè)隨機(jī)數(shù)和最大數(shù)以及平均值顯示在窗體上。2、用數(shù)組求F數(shù)列的前20項(xiàng)，并按照每行5個(gè)打印在圖片框控件中。任務(wù)3----數(shù)據(jù)排序?qū)崿F(xiàn)一組數(shù)據(jù)從小到大排序?qū)崿F(xiàn)一組數(shù)據(jù)從大到小排序排序的實(shí)現(xiàn)----兩個(gè)常用算法（1）選擇法排序（2）冒泡法排序思想：1）假設(shè)某個(gè)位置的數(shù)是最大/小的。2）驗(yàn)證是否是最大/小的3）驗(yàn)證過(guò)程中標(biāo)記最大/小數(shù)的位置4）交換選擇法排序問(wèn)題與思考問(wèn)題1：利用選擇法求10個(gè)數(shù)中的最大數(shù)，并把找出的最大數(shù)放到數(shù)組中的第一個(gè)數(shù)的位置。問(wèn)題2：將10個(gè)數(shù)從大到小排列后輸出思考：把一組數(shù)從大到小排序Fori=1Ton-1p=iForj=i+1TonIfa(j)>a(p)Thenp=jNextjtemp=a(i)a(i)=a(p)a(p)=tempNexti選擇法排序（降序）的VB程序：思想：兩兩比較，（數(shù)組中相鄰的兩個(gè)數(shù)進(jìn)行比較）大數(shù)放在后面，小數(shù)放在前面。冒泡法排序問(wèn)題與應(yīng)用1）利用冒泡法求10個(gè)數(shù)中的最大數(shù)。給出10個(gè)數(shù)找出最大數(shù)輸出最大數(shù)2）利用冒泡法把10個(gè)數(shù)從小到大排序Fori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Thentemp=a(j)a(j)=a(j+1)a(j+1)=tempEndifNextjNexti冒泡法排序（升序）的VB程序：思考PrivateSubCommand1_Click()Dimi%,j%,t%,p%Text2.Text=""Fori=1To9p=iForj=i+1To10Ifa(j)<a(p)Thenp=jNextjIfp<>iThent=a(p)a(p)=a(i)a(i)=tEndIfNextiFori=1To10Text2.Text=Text2+Space(2)+Str(a(i))Nexti

EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()Dimi%,j%,t%Text2.Text=""Fori=1To9Forj=1To10-iIfa(j)>a(j+1)Thent=a(j)a(j)=a(j+1)a(j+1)=tEndIfNextjNextiFori=1To10Text2.Text=Text2+Space(2)+Str(a(i))NextiEndSubPrivateSubCommand4_Click()Dimi%Text1.Text=""Text2.Text=""Fori=1To10a(i)=InputBox("請(qǐng)輸入第"+Str(i)+"個(gè)數(shù)據(jù)")Text1.Text=Text1+Space(2)+Str(a(i))NextiEndSub用隨機(jī)函數(shù)產(chǎn)生50個(gè)[10，100]的隨機(jī)整數(shù)，并按照由小到大的順序打印出來(lái)。程序界面如下：應(yīng)用OptionBase1Dima(50)AsIntegerPrivateSubCommand1_Click()Dimi%RandomizeText1.Text="排序前的數(shù)據(jù)"+vbCrLfFori=1To50a(i)=Int(91*Rnd+10)Text1.Text=Text1.Text+""+Str(a(i))NextEndSubPrivateSubCommand2_Click()Dimi%,j%Fori=1To49Forj=1To50-iIf(a(j)>a(j+1))Thent=a(j):a(j)=a(j+1):a(j+1)=tEndIfNextjNextiText1.Text=Text1.Text+vbCrLfText1.Text=Text1.Text+"排序后的結(jié)果"+vbCrLfFori=1To50Text1.Text=Text1.Text+""+Str(a(i))Nexti任務(wù)3知識(shí)點(diǎn)小結(jié)數(shù)據(jù)排序的常用算法（1）冒泡排序法（2）選擇排序法任務(wù)4-----動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組：

在聲明時(shí)未給出數(shù)組的大小。定長(zhǎng)數(shù)組(靜態(tài)數(shù)組)是在程序編譯時(shí)分配存儲(chǔ)空間，而動(dòng)態(tài)數(shù)組是在程序執(zhí)行時(shí)分配存儲(chǔ)空間。動(dòng)態(tài)數(shù)組使用

1、建立動(dòng)態(tài)數(shù)組，分以下兩個(gè)步驟：數(shù)組聲明數(shù)組大小說(shuō)明格式：Dim數(shù)組名（）As數(shù)據(jù)類(lèi)型Dim數(shù)組名類(lèi)型符（）例：Dima()AsInteger或dima%()（1）使用Dim語(yǔ)句聲明括號(hào)內(nèi)為空的數(shù)組(2)在程序中用ReDim語(yǔ)句指明該數(shù)組的大小。Preserve參數(shù)：保留數(shù)組中原來(lái)的數(shù)據(jù)例：

RedimA(10)

RedimPreserveA(20)格式：ReDim[Preserve]數(shù)組名（下標(biāo)1）可以常量或有確定值的變量應(yīng)用輸入n個(gè)數(shù)據(jù)，求最大數(shù)輸入N個(gè)數(shù)據(jù)，從小到大的順序輸出。輸入N個(gè)學(xué)生的總分，求每個(gè)學(xué)生的名次。Optionbase1PrivateSubCommand1_Click()Dima()AsIntegerDimn%n=Val(InputBox("請(qǐng)輸入數(shù)組的個(gè)數(shù)"))ReDima(n)a(1)=Val(InputBox("請(qǐng)輸入第一個(gè)數(shù)"))Text2.Text=Text2.Text+Str(a(1))Max=a(1)Fori=2Tona(i)=Val(InputBox("請(qǐng)輸入第"&i&"個(gè)數(shù)"))Text2.Text=Text2.Text+Space(2)+Str(a(i))Ifa(i)>MaxThenMax=a(i)EndIfNexti任務(wù)5給定5個(gè)學(xué)生4門(mén)課程的成績(jī),求其每個(gè)學(xué)生的總分及每門(mén)課程的平均分.新知識(shí)：二維數(shù)組及多維數(shù)組1、二維數(shù)組的聲明聲明格式如下：Dim數(shù)組名([<下界>]to<上界>，[<下界>to]<上界>)[As<數(shù)據(jù)類(lèi)型>]其中的參數(shù)與一維數(shù)組完全相同。例如：Dima(3,3)AsSingle

邏輯結(jié)構(gòu)：表格/矩陣物理結(jié)構(gòu)：線性表二維數(shù)組在內(nèi)存的存放順序是“先行后列”。2、二維數(shù)組的存儲(chǔ)形式A(1,1)A(1,2)A(1,3)A(2,1)A(2,2)A(2,3)A(3,1)A(3,2)A(3,3)3、二維數(shù)組元素的引用引用形式：數(shù)組名(下標(biāo)1，下標(biāo)2)例如：

a(1,2)=10a(i+2,j)＝a(2,3)*2在程序中來(lái)說(shuō)，通過(guò)二重循環(huán)來(lái)操作使用二維數(shù)組元素。4、二維數(shù)組的基本操作（1）二維數(shù)組數(shù)據(jù)值的確定(賦值語(yǔ)句或輸入函數(shù))（2）求最大元素及其所在的行和列1）二維數(shù)組數(shù)據(jù)的輸入Dima(1to4,1to5)AsInteger,i%,j%A、給二維數(shù)組a輸入數(shù)據(jù)的程序段如下：Fori=1to4Forj=1to5A(i,j)=Val(InputBox("a（"&I&","&j&"）=？"))NextjNexti2）求最大元素及其所在的行和列

Max=a(1,1):row=1:Column=1Fori=1ToNForj=1ToMIfa(i,j)>a(row,Column)ThenMax=a(i,j)row=iColumn=jEndIfNextjNextiPrint"最大元素是";MaxPrint"在第"&row&"行,";"第"&Column&"列"應(yīng)用1給定5個(gè)學(xué)生4門(mén)課程的成績(jī),求其每個(gè)學(xué)生的總分及每門(mén)課程的平均分.應(yīng)用2(P89)打印楊輝三角形。11112113311464115101051應(yīng)用3計(jì)算n行n列組成的二維數(shù)組的兩個(gè)對(duì)角線上各元素之和OptionBase1PrivateSubCommand1_Click()Dima()AsIntegerDimi%,j%,sum%,n%n=Val(InputBox("請(qǐng)輸入二維數(shù)組的大小"))ReDima(n,n)Fori=1TonForj=1Tona(i,j)=Int(11*Rnd+10)Printa(i,j);NextPrintNextsum=0Fori=1TonForj=1TonIf(i=j)Thensum=sum+a(i,j)If(i+j=n+1)Thensum=sum+a(i,j)

NextNextPrintsumEndSub任務(wù)5—知識(shí)點(diǎn)小結(jié)二維數(shù)組的定義二維數(shù)組元素的引用二維數(shù)組的輸入和輸出二維數(shù)組的基本操作求最大數(shù)等等給定M個(gè)學(xué)生N門(mén)課程的成績(jī),求其每個(gè)學(xué)生的總分及每門(mén)課程的平均分.應(yīng)用OptionBase1PrivateSubCommand1_Click()Dimgrade()AsSingleDimzong()AsSingleDimpin()AsSingleDimi%,j%,m%,n%m=Val(InputBox("請(qǐng)輸入數(shù)組的行數(shù)"))n=Val(InputBox("請(qǐng)輸入數(shù)組的列數(shù)"))ReDimgrade(m,n)ReDimzong(m)ReDimpin(n)Fori=1TomForj=1Tongrade(i,j)=Val(InputBox("請(qǐng)輸入每個(gè)同學(xué)成績(jī)"))NextjNextiFori=1Tomzong(i)=0Forj=1Tonzong(i)=zong(i)+grade(i,j)NextjNextiForj=1Tonpin(j)=0Fori=1Tompin(j)=pin(j)+grade(i,j)Nextpin(j)=pin(j)/mNextFori=1TomForj=1TonPrintgrade(i,j);NextPrintzong(i)NextForj=1TonPrintpin(j);NextEndSub任務(wù)6：與數(shù)組操作有關(guān)的函數(shù)及語(yǔ)句1、Array函數(shù)Array函數(shù)可方便地對(duì)數(shù)組整體賦值，但它只能給聲明Variant的變量或僅由括號(hào)括起的動(dòng)態(tài)數(shù)組賦值。賦值后的數(shù)組大小由賦值的個(gè)數(shù)決定。例如，要