VB數(shù)組與記錄教學(xué)練習(xí)題

1、第八章 數(shù)組與記錄 教學(xué)要求：掌握一維、二維數(shù)組的定義、引用、初始化，掌握靜態(tài)和動(dòng)態(tài)數(shù)組及其差別，掌握數(shù)組的基本使用方法：數(shù)組元素的輸入、輸出和賦值等，掌握使用For Each.Next語(yǔ)句操作數(shù)組元素的方法；掌握控件數(shù)組的定義、建立和使用，掌握排序算法。掌握記錄類型及記錄數(shù)組的概念、記錄變量的初始化及引用。 知識(shí)點(diǎn)：數(shù)組的定義、引用、初始化；靜態(tài)和動(dòng)態(tài)數(shù)組及其差別；For Each.Next語(yǔ)句；控件數(shù)組。熟練數(shù)組“遍歷”算法的設(shè)計(jì)規(guī)律，冒泡排序、快速排序算法，順序查找、有序表對(duì)分查找、字符查找算法。 內(nèi)容導(dǎo)航：一、數(shù)組的概念（一）數(shù)組的定義在Visual Basic中，可以用4個(gè)語(yǔ)句來(lái)定義

2、數(shù)組，這4個(gè)語(yǔ)句格式相同，但適用范圍不一樣。Dim用在窗體模塊或標(biāo)準(zhǔn)模塊中，定義窗體或標(biāo)準(zhǔn)模塊數(shù)組；ReDim、 Static可用于過(guò)程中；Public 用在標(biāo)準(zhǔn)模塊中，定義全局?jǐn)?shù)組。Visual Basic 提供兩種格式：第一種格式：一維數(shù)組 Dim 數(shù)組名(下標(biāo)上界) As 類型名稱 二維數(shù)組 Dim 數(shù)組名(第一維下標(biāo)上界，第二維下標(biāo)上界) As 類型名稱第二種格式：Dim 數(shù)組名 (下界 To 上界，下界To上界)Dim 數(shù)組名 (下界 To 上界，下界To上界)（二）默認(rèn)數(shù)組在Visual Basic中，允許定義默認(rèn)數(shù)組。默認(rèn)數(shù)組就是數(shù)據(jù)類型為Variant（默認(rèn)）的數(shù)組。在一般情況

3、下，定義數(shù)組應(yīng)指明其類型。二、動(dòng)態(tài)數(shù)組（一）動(dòng)態(tài)數(shù)組的定義動(dòng)態(tài)數(shù)組以變量作為下標(biāo)值，在程序運(yùn)行過(guò)程中完成定義，通常分為兩步：首先在窗體層、標(biāo)準(zhǔn)模塊或過(guò)程中用Dim或Public聲明一個(gè)沒(méi)有下標(biāo)的數(shù)組(括號(hào)不能省略)，然后在過(guò)程中用 ReDim 語(yǔ)句定義帶下標(biāo)的數(shù)組。ReDim 語(yǔ)句格式：ReDim Preserve 變量 ( 下標(biāo) ) As 類型（二）數(shù)組的清除和重定義數(shù)組一經(jīng)定義，便在內(nèi)存中分配了相應(yīng)的存儲(chǔ)空間，其大小不能改變。有時(shí)需要清除數(shù)組的內(nèi)容或?qū)?shù)組重新定義，其格式為：數(shù)組的清除：Erase數(shù)組名，數(shù)組名重定義：ReDim三、數(shù)組的基本操作（一）數(shù)組元素的輸入、輸出和復(fù)制1數(shù)組的引用

4、數(shù)組的引用通常是指對(duì)數(shù)組元素的引用，其方法是，在數(shù)組后面的括號(hào)中指定下標(biāo)。2數(shù)組元素的輸入數(shù)組元素一般通過(guò)For循環(huán)語(yǔ)句及InputBox函數(shù)輸入，當(dāng)數(shù)組較小，或只需要對(duì)數(shù)組中的指定元素賦值時(shí)，可以用賦值語(yǔ)句來(lái)實(shí)現(xiàn)數(shù)組元素的輸入，多維數(shù)組元素的輸入通過(guò)多重循環(huán)來(lái)實(shí)現(xiàn)3數(shù)組元素的輸出數(shù)組元素的輸出可以用Print方法來(lái)實(shí)現(xiàn)。4數(shù)組元素的復(fù)制單個(gè)數(shù)組元素可以像簡(jiǎn)單變量一樣從一個(gè)數(shù)組復(fù)制到另一個(gè)數(shù)組，二維數(shù)組中的元素可以復(fù)制到另一個(gè)二維數(shù)組中的某個(gè)元素，也可以復(fù)制到一個(gè)一維數(shù)組中的某個(gè)元素，并且反之亦然（二）For EachNext語(yǔ)句For EachNext語(yǔ)句類似于ForNext語(yǔ)句，兩者都用來(lái)

5、執(zhí)行指定重復(fù)次數(shù)的一組操作，但For EachNext語(yǔ)句專門用于數(shù)組或?qū)ο蟆凹稀保ū緯?shū)不涉及集合），其一般格式為：For Each成員In 數(shù)組循環(huán)體Exit ForNext成員這里的“成員”是一個(gè)變體變量，它是為循環(huán)提供的，代表的是數(shù)組中的每個(gè)元素。“數(shù)組”是一個(gè)數(shù)組名，沒(méi)有括號(hào)和上下界。四、數(shù)組的初始化用 Array函數(shù)來(lái)給數(shù)組元素賦值，其格式為：數(shù)組變量名=Arra(數(shù)組元素值)注意，Array函數(shù)只適用于一維數(shù)組。即只能對(duì)一維數(shù)組進(jìn)行初始化，不能對(duì)二維或多維數(shù)組進(jìn)行初始化。五、控件數(shù)組（一）基本概念控件數(shù)組由一組相同類型的控件組成，這些控件共用一個(gè)相同的控件名，具有同樣的屬性設(shè)置。

6、數(shù)組中的每個(gè)控件都有唯一的索引號(hào)(IndexNumber)，即下標(biāo)，其所有元素的Name屬性必須相同?？丶?shù)組的每個(gè)元素都有一個(gè)與之關(guān)聯(lián)的下標(biāo)，或稱索引(Index)，下標(biāo)值由Index屬性指定。Index屬性與控件數(shù)組中的某個(gè)元素有關(guān)（二）建立控件數(shù)組通過(guò)以下兩種方法來(lái)建立控件數(shù)組：第一種方法，步驟如下：（1）在窗體上畫(huà)出作為數(shù)組元素的各個(gè)控件；（2）單擊要包含到數(shù)組中的某個(gè)控件，將其激活；（3）在屬性窗口中選擇“（名稱）”屬性，并鍵入控件的名稱；（4）對(duì)每個(gè)要加到數(shù)組中的控件重復(fù)（2）、（3）步，鍵入與第（3）步中相同的名稱。當(dāng)對(duì)第二個(gè)控件鍵入與第一個(gè)控件相同的名稱后，Visual Bas

7、ic將顯示一個(gè)對(duì)話框，詢問(wèn)是否確實(shí)要建立控件數(shù)組。單擊“是”將建立控件數(shù)組，單擊“否”則放棄建立操作。第二種方法，步驟如下：（1）在窗體上畫(huà)出一個(gè)控件，將其激活；（2）執(zhí)行“編輯”菜單中的“復(fù)制”命令（熱鍵為Ctrl+C），將該控件放入剪貼板；（3）執(zhí)行“編輯”菜單中的“粘貼”命令（熱鍵為Ctrl+V），將顯示一個(gè)對(duì)話框，詢問(wèn)是否建立控件數(shù)組；（4）單擊對(duì)話框中的“是”按鈕，窗體的左上角將出現(xiàn)一個(gè)控件，它就是控件數(shù)組的第二個(gè)因素，執(zhí)行“編輯”菜單中的“粘貼”命令，或按熱鍵Ctrl+V，建立控件數(shù)組中的其他元素?？丶?shù)組建立后，只要改變一個(gè)控件的“Name”屬性值，并把Index屬性置為空（不是

8、0），就能把該控件從控件數(shù)組中刪除?？丶?shù)組中的控件執(zhí)行相同的事件過(guò)程，通過(guò)Index屬性可以決定控件數(shù)組中的相應(yīng)控件所執(zhí)行的操作。 六、記錄（一）記錄類型和記錄類型變量1記錄類型定義格式：Private|Public Type 數(shù)據(jù)類型元素名（下標(biāo)） As 類型名元素名（下標(biāo)） As 類型名End Type2定義記錄類型變量記錄類型變量的定義和基本了類型變量的定義一樣，在引用是有所不同，用“變量元素”的格式應(yīng)用記錄中的成員。（二）記錄類型變量的初始化及其引用1記錄類型變量的初始化用賦值語(yǔ)句或輸入語(yǔ)句對(duì)記錄各個(gè)成員分別賦值。2記錄類型變量的引用及其操作成員的引用： 記錄變量.成員名七、記錄數(shù)組

9、定義的一般格式：Dim 數(shù)組名(下界To上界) As 記錄名引用記錄數(shù)組元素的成員： 記錄數(shù)組名（下標(biāo)）.成員名 訓(xùn)練：一、選擇題1如下數(shù)組聲明語(yǔ)句中正確的是_。A) Dim A(4 5) As IntegerB) Dim A(n,n) As IntegerC) Dim A(4,5) As IntegerD) Dim A4,5 As Integer3語(yǔ)句Option Base 1:Dim a(3,4)定義的數(shù)組所包含的數(shù)組元素的個(gè)數(shù)是_。A) 7B) 12C) 15D) 204要分配存放如下方陣的數(shù)據(jù)，正確的且最節(jié)約存儲(chǔ)空間的數(shù)組聲明語(yǔ)句是_。 1.1 2.2 3.3 4.4 5.5 6.6A

10、) Dim a(6) As SingleB) Dim a(2,3) As SingleC) Dim a(2 To 3,-3 To 1) As SingleD) Dim a(1,2) As Integer5設(shè)有數(shù)組聲明：Dim a(-2 To 4,3 To 6),則下面引用數(shù)組元素正確的是_。A) a(-2,3)B) a(5)C) a-2,4D) a(-1,7)6用下面語(yǔ)句定義的數(shù)組元素個(gè)數(shù)是_。Dim A(-3 To 5) As IntegerA) 6B) 7C) 8D) 97語(yǔ)句Dim arr(-3 To 5,2 To 6) As Integer定義的數(shù)組元素有_。A) 45B) 40C)

11、11D) 548以下程序輸出的結(jié)果是_。Option Base 1Private Sub Form_Click()Dim a,B(3,3)a=Array(1,2,3,4,5,6,7,8,9)For i=1 To 3For j=1 To 3B(i,j)=a(i*j)If(i>=j) Then print Tab(j*3);format(B(i,j),"#");Next jPrintNext iEnd SubA) 1 2 3 4 5 6 7 8 9B) 1 2 4 3 6 9C) 1 4 7 2 4 6 3 6 9D) 1 2 3 4 6 99在窗體上面畫(huà)一個(gè)命令按鈕，然

12、后編寫(xiě)如下事件過(guò)程：Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是_。A) 4321B) 12C) 34D) 123410在窗體上畫(huà)一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i,j As Int

13、egerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext iText1.Text=array1(2,3)+array1(3,4)End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是_。A) 12B) 13C) 14D) 1511在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10) As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPr

14、int a(i,j);Next jPrint Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的值是_。A) 1 2 3 2 3 4 3 6 9B) 2 3 4 3 4 5 4 5 6C) 1 4 7 2 5 8 3 6 9D) 1 2 3 4 5 6 7 8 912設(shè)有如下程序：Option Base 1Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);Next iEnd Sub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的值是_。A) 5

15、4 3 2 B) 6 5 4 3C) 4 3 2 1 D) 7 6 5 413執(zhí)行以下Command1的Click事件過(guò)程在窗體上顯示_。Option Base 1Private Sub Command1_Click()Dim aa=Array("a","b","c","d","e","f","g")Print a(1);a(3);a(5)End SubA) abcB) bdfC) aceD) 出錯(cuò)14設(shè)有如下程序：Dim a(3,3) As Intege

16、rFor m=1 To 3For n=1 To 3a(m,n)=(m-1)*3+nNext nNext mFor m=2 To 3For n=1 To 2Print a(n,m);Next nNext m運(yùn)行后輸出的結(jié)果是 _。A) 2 5 3 6B) 2 3 5 6C) 4 7 5 8D) 4 5 7 815下列程序段的執(zhí)行結(jié)果為_(kāi)。Dim A(4)n=3A(1)=1For k=0 To n-1For P=1 To k+1X=k+2-PA(X)=A(x)+A(x-1)If k<n-1 Then Exit ForPrint A(x)Next PNext kA) 1 2 1B) 1 2 3

17、C) 2 4 6D) 1 3 116有如下程序，運(yùn)行后輸出的結(jié)果是_。Option Base 1Private Sub Command1_Click()Dim aj(1 To 10)For j=6 To 10aj(j)=j*2Next jPrint aj(1)+aj(j)End SubA) 5B) 20C) 22D) 顯示出錯(cuò)信息17當(dāng)發(fā)生Command1_Click事件，以下程序的輸出結(jié)果是_。Private Sub Command1_Click()Dim a a=Array(1,2,3,4,5)For i=1 To 4Print a(i)-a(i-1);Next iEnd SubA) 1

18、1 1 1 1B) 1 1 1 1C) 1 1 1D) 2 2 218當(dāng)發(fā)生Command1_Click事件，以下程序的輸出結(jié)果是_。Private Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerFor i=9 To 0 Step -1a(i)=10-iNext iPrint a(2);a(5);a(8)End SubA) 2 5 8B) 7 4 1C) 8 5 2D) 3 6 919下面關(guān)于控件數(shù)組與一般控件的敘述中正確的是_。A) 控件數(shù)組一定有1個(gè)以上同類型的控件組成，而一般控件只有一個(gè)控件。B) 控件數(shù)組的索引屬性值In

19、dex值為0，而一般控件的Index值為空。C) 控件數(shù)組的Index值為1，而一般控件的Index值為0。D) 控件數(shù)組的建立通過(guò)Dim語(yǔ)句聲明，而一般控件不需要聲明。20下面說(shuō)法正確的是_。A) ReDim語(yǔ)句只能更改數(shù)組下標(biāo)上界。B) ReDim語(yǔ)句只能更改數(shù)組下標(biāo)下界。C) ReDim語(yǔ)句不能更改數(shù)組維數(shù)。D) ReDim語(yǔ)句可以更改數(shù)組維數(shù)。二、填空題1由Array函數(shù)建立的數(shù)組的類型必須是_。2Visual Basic的數(shù)組下標(biāo)默認(rèn)為_(kāi)，可通過(guò)_語(yǔ)句使數(shù)組下標(biāo)從1開(kāi)始。3在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Form_Click()Dim a(0 T

20、o 10)Dim p(1 To 3)K=0For I=1 To 4a(i)=I For j=1 To 3P(j)=a(j*j)Next jFor j=1 To 3K=K+p(j)*2Next jPrint kNext iEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。4Visual Basic課程考試10道選擇題的正確答案依次為A、C、C、D、A、A、C、C、D、D,每題2分。下面的程序利用InputBox對(duì)話框輸入學(xué)生答案，計(jì)算出得分，當(dāng)輸入字符E或e是可提前結(jié)束輸入。閱讀程序并填空。Option Base 1Private Sub Command1_Click()【 】a=Array

21、("A","C","C","D","A","A","C","C","D","D")score=0For i=1 To 10Str1$="請(qǐng)輸入考生第" & i & "題答案,輸入E結(jié)束"X$=【 】If X=a(i) Then score=score+2If 【 】Then Exit ForClsPrint "score="

22、;scoreNextEnd Sub5下面的程序?qū)崿F(xiàn)矩陣的轉(zhuǎn)置（即行列互換）。閱讀程序并填空。Option Base 1Private Sub Command1_Click() m = InputBox("輸入行數(shù)"): n = InputBox("輸入列數(shù)") 【 】 a(m, n) As Integer, B(n, m) As Integer For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd * 90) + 10 Next: Next For i = 1 To n For j = 1 To m B(i, j

23、) =【 】 Next: NextEnd Sub6下面的程序分別求方陣兩對(duì)角線元素之和。閱讀程序并填空。Option Base 1Private Sub Command1_Click()m=InputBox("輸入方陣的階數(shù)")ReDim a(m,n) As IntegerFor i=1 To mFor j=1 To ma(i,j)=Int(Rnd*90)+10Next : Nextp=0For i=1 To m【 】Nextq=0For i=1 To m【 】NextFor i=1 To mFor j=1 To mPrint a(i,j);NextPrint : Prin

24、tNext Print p;qEnd Sub7下列程序的輸出結(jié)果為_(kāi)。Private Sub Command1_Click()Dim a(1 To 20)Dim iFor i=1 To 20a(i)=iNext iFor Each i In a()a(i)=20Next iPrint a(2)End Sub8下列程序的輸出結(jié)果為_(kāi)。Private Sub Command1_Click()Dim a ReDim a(6)For j=1 To 5a(j)=j*jNext jPrint a(a(2)*a(3)-a(4)*2)+a(5)End Sub9下列程序是將具有10元素的數(shù)組A的元素倒序存放，即

25、第一個(gè)變?yōu)樽詈笠粋€(gè)，第二個(gè)變?yōu)榈箶?shù)第二個(gè)，完成下列程序。potion base 1Private Sub Backward(a()Dim i As Integer,Tmp As IntegerFor i=1 To 5Tmp=a(i)【 】【 】Next iEnd Sub10下面的程序的功能是求一維數(shù)組的最大值及其下標(biāo)，閱讀程序并填空。Option Base 1Private Sub Form_Click()Dim a(10) As Integer,max_iFor i=1 To 10a(i)=InputBox("請(qǐng)輸入一個(gè)元素值")Next imax_i=【 】For i=

26、2 To 10If 【 】Then max_i=iNext iPrint a(max_i),max_iEnd Sub11下列程序的功能是對(duì)一個(gè)具有二十個(gè)元素的一為數(shù)組a按每行5個(gè)元素輸出，請(qǐng)?jiān)谙聞澗€處填上適當(dāng)?shù)膬?nèi)容。Option Base 1Private Sub Command1_Click()Dim A(20) As IntegerFor i=1 To 20A(i)=i*i/2Next iFor i=1 To 20Print A(i),If 【 】ThenPrint End IfNext iEnd Sub12以下程序的功能是對(duì)二維數(shù)組a(3,4)按行輸出，請(qǐng)?jiān)谙聞澗€處填上適當(dāng)?shù)膬?nèi)容。For

27、 i=1 To 3For j=1 To 4Print a(i,j),Next j【 】Next I13控件數(shù)組中的各個(gè)元素由_屬性決定。14控件數(shù)組共用事件和方法，區(qū)分事件是由哪一個(gè)元素產(chǎn)生的，可用過(guò)引用控件數(shù)組事件過(guò)程的參數(shù)_來(lái)實(shí)現(xiàn)。三、程序閱讀題1寫(xiě)出下面程序的輸出結(jié)果。Option base 1Private Sub Command1_Click()Dim a(10),p(3) As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(i*i)Next iFor i=1 To 3k=k+p(i)*2Next iPrint kEnd

28、Sub2在窗體上畫(huà)一個(gè)命令按鈕(其Name屬性為Command1)，編寫(xiě)如下代碼，寫(xiě)出程序運(yùn)行后，單擊命令按鈕，輸出的結(jié)果。Option Base 1Private Sub Command1_Click()Dim a(4,4)For i=1 To 4For j=1 To 4a(i,j)=(i-1)*3+jNext jNext iFor i=3 To 4For j=3 To 4Print a(i,j);Next jPrintNext iEnd Sub3寫(xiě)出下面程序的運(yùn)行結(jié)果。Option Base 1Private Sub Text1_KeyPress(KeyAscii As Integer)a

29、=Array(237,126,87,48,498)m1=a(1)m2=1If KeyAscii=13 ThenFor i=2 To 5If a(i)>m1 Thenm1=a(i)m2=iEnd IfNext iEnd IfPrint m1Print m2End Sub4寫(xiě)出當(dāng)發(fā)生Command1_Click事件后，下面程序的運(yùn)行結(jié)果。Private Sub Command1_Click()Dim a(10) As Integer, p(2) As Integer,i As integer,k As Integerk=5For i=0 To 9a(i)=iNext iFor i=0 To

30、2p(i)=a(i*(i+1)Next iFor i=0 To 2k=k+p(i)*2Next iPrint kEnd Sub5寫(xiě)出當(dāng)發(fā)生Command1_Click事件后，下面程序的運(yùn)行結(jié)果。Private Sub Command1_Click()Dim y As Integer,i As IntegerDim a(8) As Integery=18 : i=0Do a(i)=y Mod 2i=i+1y=y2Loop Until y<1For j=i-1 To 0 Step -1Print a(j)Next jEnd Sub6寫(xiě)出當(dāng)發(fā)生Command1_Click事件后，下面程序的運(yùn)行

31、結(jié)果。Private Sub Command1_Click()Dim B(2,2) As IntegerDim i,k,t As IntegerFor i=0 To 2For j=0 To 2B(i,j)=jNext jNextit=1For i=0 To 2For j=i To 2t=t+B(i,B(j,j)Next jNext i Print tEnd Sub7寫(xiě)出當(dāng)發(fā)生Command1_Click事件后，下面程序的運(yùn)行結(jié)果。Option Base 1Private Sub Command1_Click()Dim aa(4,4) As IntegerDim i,s As Integers=

32、0For i=1 To 4For j=1 To 4aa(i,j)=(i-1)*4+j*2Next jNext iFor i=1 To 4s=s+aa(i,1)Next iPrint sEnd Sub8寫(xiě)出下面程序的運(yùn)行結(jié)果。Private Sub Command1_Click()Dim a(1 To 10)Dim p(1 To 4)k=5For i=1 To 10a(i)=i+1Next iFor i=1 To 4p(i)=a(i*2)Next iFor i=1 To 4k=k+p(i)*2Next iPrint kEnd Sub四、程序填空題1下面程序的功能是用”冒泡”法將數(shù)組a中的10個(gè)整

33、數(shù)按序排列，閱讀程序并填空。Option Base 1Private Sub Command1_Click()Dim aa=Array(678,45,324,528,439,387,87,875,273,823)For i=【1 】For j=【2 】If a(j) 【3 】a(j+1) Thena1=a(j)a(j)=a(j+1)a(j+1)=a1End IfNext jNext iFor i=1 To 10Print a(i)Next iEnd Sub2以下程序代碼使用二維數(shù)租A表示矩陣實(shí)現(xiàn)單擊命令按鈕Command1時(shí)使矩陣的兩條對(duì)角線上的元素值全為1，其余元素值全為0，閱讀程序并填空。

34、Option Base 1Private Sub Command1_Click()Dim A(4,4)For i=1 To 4For j=1 To 4A【1 】=0Next jA【2 】=1A【3 】=1Next iFor i=1 To 4For j=1 To 4Print A(i,j);Next jPrintNext iEnd Sub3以下程序的功能是從鍵盤上輸入3行4列的數(shù)組，求出它的每行最大值及其下標(biāo)，閱讀程序并填空。Option base 1Private Sub Form_Click()Dim a(3,4) As IntegerDim i As Integer,j As Intege

35、rDim max(3) As Integer,col(3) As IntegerFor i=1 To 3For j=1 To 4a(i,j)=InputBox("請(qǐng)輸入一個(gè)元素值")Next jNext iFor i=1 To 3max(i)=a(i,1) : 【1 】For j=2 To 4If max(i)<a(i,j) Thenmax(i)=a(i,j) : 【2 】End IfNext iPrint "數(shù)組元素值為","最大值","最大值下標(biāo)"For i=1 To 3For j=1 To 4【3 】Next j【4 】Next iEnd Sub4下面程序的功能是對(duì)具有10個(gè)元素的數(shù)組a中的元素進(jìn)行選擇法排序，閱讀程序并填空。Option base 1Private Sub Form_Click()Dim a(10) As Integer,i As Integer,j As IntegerDim k As IntegerFor i=1 To 10a(i)=InputBox("請(qǐng)輸入一個(gè)數(shù)組元素值")Next iFor i=1 To 9【1 】For j=i+1 To 10If 【2 】Then k=jNext jIf k<>i Th