VB程序設(shè)計(jì)-9-第九章 數(shù)組（含答案）

一、單選題1、?下面語(yǔ)句正確的是（）。A.Dima（）AsInteger={12}B.Dima（）AsInteger=0C.Dima（1）AsInteger={12}D.Dima（1）AsInteger={12,12}答案：A2、下列程序執(zhí)行后，a（n）與b（n）結(jié)果為（）。?Dima（10）,b（10）AsInteger?n=3?Fori=1To5?a（i）=i?b（n）=2*n+i?NextiA.13

4B.3

11C.2

33D.1

13答案：B3、?在窗體模塊中，定義模塊級(jí)數(shù)組用（）語(yǔ)句。A.ReDimB.StaticC.PublicD.Dim答案：D4、

執(zhí)行以下程序時(shí)，則輸出結(jié)果為（）。?Dima（）={1,3,5,7},b（4）,iAsInteger?Fori=0To2?b（3-i）=a（i+1）?Nexti?MsgBox（b（i））A.1B.5C.3D.0答案：C5、?下列程序執(zhí)行后，s的值為（）。??

Dimi%,j%,s%??

Dima%={1,2,3,4}??

j=1??

Fori=3To0Step-1??

s=s+a（i）*j??

j=j*10??

NextiA.34B.1234C.12D.4321答案：B1、?在程序運(yùn)行過(guò)程中，單擊窗體時(shí)，以下程序的輸出結(jié)果為（）。??

PrivateSubForm1_Click（…）HandlesMe.Click??

DimxAsArray??

x={"VB語(yǔ)言","VB.Net語(yǔ)言","C++語(yǔ)言","C#語(yǔ)言"}??

MsgBox（x（Len（x（2））-x.Length-x.Rank））??

EndSubA.VB語(yǔ)言B.VB.Net語(yǔ)言C.C++語(yǔ)言D.C#語(yǔ)言答案：A2、?下列有關(guān)ReDim語(yǔ)句的敘述中，正確的是（）。A.ReDim語(yǔ)句只能更改一維數(shù)組的大小B.ReDim語(yǔ)句是一種非執(zhí)行語(yǔ)句C.它和Dim語(yǔ)句一樣，可以定義數(shù)組的大小，可以寫(xiě)在程序的任何地方D.它只能用于過(guò)程內(nèi)部答案：D3、?把整型數(shù)組a的大小更改為6，并要求保留老數(shù)據(jù)，下面的語(yǔ)句正確的是（）。A.ReDima（5）B.ReDimPreservea（6）C.ReDimPreservea（5）D.ReDima（6）答案：C4、?把整型數(shù)組intScore的大小更改為6，下面的語(yǔ)句正確的是（）。A.Array.Resize（intScore,5）B.intScore.Resize（5）C.intScore.Resize（6）D.Array.Resize（intScore,6）答案：D5、?下面代碼執(zhí)行后，strTemp中的結(jié)果是（）。??

Dimi,j,m,n,intArray（3,3）AsInteger,strTempAsString??

Fori=intArray.GetLowerBound（0）TointArray.GetUpperBound（0）??

Forj=intArray.GetLowerBound（1）TointArray.GetUpperBound（1）??

Ifi=1ThenintArray（i,j）=j+1ElseintArray（i,j）=i*j??

Next??

Next??

Form=1To2??

Forn=1To3??

strTemp