【正文】 有與之相關(guān)聯(lián)的下標(biāo)值C) 控件數(shù)組的每一個(gè)元素都有不同的Name 屬性作為標(biāo)識(shí)D) 可在運(yùn)行過(guò)程中刪除控件數(shù)組的某個(gè)元素3．運(yùn)行下列程序，單擊窗體后輸出的結(jié)果是（ ）。( B )Private Sub Form_Click()Dim aDim s As Integer, i As Integera = Array(1, 2, 3)For i = 2 To 0 Step 1s = s + a(i) * a(i)Next iPrint sEnd SubA) 13 B) 14 C) 不確定 D) 程序出錯(cuò)4．如下數(shù)組聲明語(yǔ)句中數(shù)組a 包含的元素個(gè)數(shù)為（ ）。( A )Dim a(3, 2 To 1, 5)A) 96 B) 75 C) 60 D) 135．下列語(yǔ)句錯(cuò)誤的是（ ）。( B )A) Private a(10 To 5) B) Dim a(N) 39。N 為變量C) Dim a() As Integ er D) Dim a%(10,10 To 10)6．運(yùn)行下列程序，單擊窗體后輸出的結(jié)果是（ ）。( B )Private Sub Form_Click()Dim aDim s As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)s = 1For i = 5 To 1 Step 2s = s * a(i)Next iPrint sEnd SubA) 15 B) 48 C) 120 D) 7207．窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程：Private Sub Command1_Click()Dim a(10)For j = 6 To 10a(j) = j 5Next j = a(0) + a(a(10) / a(6))End Sub運(yùn)行時(shí)，單擊按鈕，Text1中顯示（ ）。( A )A) 0 B) 1 C) 2 D) 38．能使一維數(shù)組arr(6)元素個(gè)數(shù)加1，但保留數(shù)組中原有元素的語(yǔ)句是（ ）。( B )A) ReDim arr(7) B) ReDim Preserve arr(7)C) Public arr(1 To 7) D) Static arr(7)9．如下程序段中包含一個(gè)錯(cuò)誤。x = 4Dim a(x)For m = 4 To 0 Step 1a(m) = m + 1Next m出錯(cuò)的原因是（ ）。( C )A) 第四行，數(shù)組元素a(m)下標(biāo)越界 B) 第四行，不能用循環(huán)變量m 進(jìn)行運(yùn)算C) 第二行，不能用變量定義數(shù)組下標(biāo) D) 以上原因都不對(duì)10．若有聲明Dim a(3 To 1，3) As Integer，則下列敘述中正確的是（ ）。( B )A) 數(shù)組a 是二維動(dòng)態(tài)數(shù)組 B) 數(shù)組a 共有20個(gè)元素C) a(0，0) 不是該數(shù)組的元素 D) a(1，1) 是該數(shù)組的第十個(gè)元素11．對(duì)窗體上的命令按鈕編寫如下事件過(guò)程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer , j As IntegerFor i = 2 To 4For j = 3 To 5array1(i, j) = i * jNext jNext iPrint array1(2, 4) + array1(3, 4)End Sub運(yùn)行時(shí)，單擊命令按鈕后輸出的結(jié)果是（ ）。( C )A) 9 B) 13 C) 20 D) 程序出錯(cuò)12．運(yùn)行下列程序，單擊窗體后輸出結(jié)果是（ ）。( C ) Option Base 0Private Sub Form_Click()Dim aDim i As Integera = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)For i = 1 To 3Print a(5 i)。Next iEnd SubA) 3 2 1 B) 4 3 2 C) 5 4 3 D) 6 5 413．對(duì)窗體上的命令按鈕編寫如下事件過(guò)程：Private Sub Command1_Click()Dim arr(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 10For j = 1 To 10arr(i, j) = i + 2 * jNext jNext iPrint arr(0, 1) + arr(2, 3)End Sub運(yùn)行時(shí)，單擊命令按鈕后輸出的結(jié)果是（ ）。( A )A) 8 B) 10 C) 20 D) 下標(biāo)越界14．窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程： Private Sub Command1_Click()Dim s%, i%, j%Dim a(3, 3) As IntegerFor i = 1 To 3For j = 1 To ia(i, j) = js = s + a(i, j)Next j, iPrint sEnd Sub運(yùn)行時(shí)，單擊按鈕，則窗體上顯示的內(nèi)容是（ ）。( C )A) 6 B) 9 C) 10 D) 1815．運(yùn)行下列程序，單擊窗體后輸出結(jié)果是（ ）。( C ) Private Sub Form_Click()Dim aDim i As Integer, j As Integera = Array(1, 2, 3, 4, 5, 6)For i = 1 To a(5)j = j + 1Next iPrint jEnd SubA) 0 B) 5 C) 6 D) 程序出錯(cuò)17．下列有關(guān)數(shù)組的敘述中，正確的是（ ）。( C )A) 無(wú)論是動(dòng)態(tài)數(shù)組還是靜態(tài)數(shù)組，數(shù)組一旦定義，其維數(shù)是不能重新定義的B) 用ReDim 語(yǔ)句重新定義維數(shù)后，原有的數(shù)組元素內(nèi)容將不予保留C) 用ReDim 語(yǔ)句重新定義維數(shù)后，不得改變?cè)摂?shù)組的數(shù)據(jù)類型D) 在過(guò)程中可以用Private 語(yǔ)句定義數(shù)組18．若用二維數(shù)組存儲(chǔ)以下數(shù)據(jù)，（ ） 數(shù)組聲明語(yǔ)句能實(shí)現(xiàn)（不浪費(fèi)空間）。 A ）Dim a(9) As Single B) Dim a(3,3) As SingleDim a(3 To 1,5 To 3) As Single D) Dim a(1 To 3,2 to 4) As Single19．以下定義數(shù)組或給數(shù)組元素賦值勤的語(yǔ)句中，正確的是（ ）。( D )A) Dim a(10) As Integer B) dim %A(10)a= Array(1,2,2,4,5,6) a(1) = ABCDC) Dim a(3), b(3) As Integer D) Dim a As Varianta(0) = 0: a(1) = 1: a(2) = 2: b = a a = Array(1, 2, 3, 4, 5, 6)20．如下數(shù)組聲明語(yǔ)句中數(shù)組A 包含的元素個(gè)數(shù)為（ ）。 ( D )Dim A(2, 1 To 1, 5)A ） 72 B) 54 C) 84 D) 18第8章 過(guò)程1．窗體上有兩個(gè)文本框（TextText2）和一個(gè)命令按鈕（Command1），閱讀如下程序： Private Sub func(T As TextBox, a As Integer) = 1234a = a * aEnd SubPrivate Sub Form_Load() = ABCD = 10End SubPrivate Sub Command1_Click()Dim temp As Integertemp = Val()Call func(Text1, temp) = tempEnd Sub運(yùn)行后，單擊按鈕，Text1和Text2將分別顯示（ ）。( B )A) ABCD和10 B) 1234和100 C) ABCD和100 D) 1234和102．窗體上有命令按鈕Command1和Command2，請(qǐng)閱讀下列程序：Dim a As IntegerPrivate Sub Command1_Click()a = a + 3 : Print aEnd SubPrivate Sub Command2_Click()a = a + 2 : Print aEnd Sub運(yùn)行時(shí)，分別單擊Command1和Command2按鈕，輸出的結(jié)果為（ ）。( A )A) 3 B) 3 C) 2 D) 25 2 5 33．運(yùn)行下列程序，單擊窗體后輸出的結(jié)果是（ ）。( B )Function F(ByVal x As Integer)Static zz = z + 1: x = x + zF = x + zEnd FunctionPrivate Sub Form_Click()Dim a As IntegerDim i As Integera = 2For i = 1 To 3Print F(a),Next iEnd SubA) 4 7 11 B) 4 6 8 C) 4 4 44．閱讀下列程序：Sub Med(x%, ByVal y%)x = 3 * x: y = x + yEnd SubPrivate Sub Form_Click()Dim a%, b%a = 3: b = 8Med a, bPrint a, bEnd Sub運(yùn)行后，單擊窗體，輸出結(jié)果為（ ）。( C )A) 3 8 B) 3 17 C) 9 8 D) 9 176．閱讀下列程序：Private Sub Form_Click()Dim m As IntegerStatic n As IntegerFor i = 1 To 3n = n + im = m + i ^ 2 5 6 D) 4NextPrint m, nEnd Sub運(yùn)行時(shí)，兩次單擊窗體，輸出結(jié)果為（ ）。( B )A) 14 6 B) 14 6 C) 14 6 D) 14 614 6 14 12 28 6 28 127．窗體上有一個(gè)命令按鈕Command1，編寫如下事件過(guò)程：Private Sub Command1_Click()Dim i%, j%, x%, n%x = 0n = InputBox()For i = 1 To nFor j = 1 To ix = x + jNext jNext iPrint xEnd Sub運(yùn)行時(shí)，單擊命令按鈕，如果在輸入對(duì)話框中輸入3，則窗體上顯示的內(nèi)容是（ ）。( B )A) 6 B) 10 C) 14 D) 188．閱讀如下程序，Dim S As Single, a As Single, b As Singlea = 1: b = 2plus S, a, bPrint S不能使其輸出結(jié)果為3的plus 過(guò)程為（ ）。( B )A) Sub plus(sum As Single, a As Single, b As Single)sum = a + bEnd SubB) Sub plus(ByVal sum As Single, a As Single, b As Single)sum = a + bEnd SubC) Sub plus(ByRef sum As Single, ByVal a As Single, ByVal b As Single)sum = a + bEnd SubD) Sub plus(sum As Single, ByRef a As Single, ByRef b As Single)sum = a + bEnd Sub9．窗體上有命令按鈕Command1和Command2，閱讀下列程序：Dim a As IntegerPrivate Sub Form_Load()a = 0: a = a + 1End SubPrivate Sub Command1_Click()Dim a As Integera = a + 2Print a，End SubPrivate Sub Command2_Click()Print aEnd Sub運(yùn)行時(shí)，先后單擊Command1和Command2按鈕，輸出的結(jié)果為（ ）。( D )A) 3 1 B) 3 3 C) 2 2 D) 2 110．窗體上有命令按鈕Command1和Command2，閱讀下列程序：Private Sub Command1_Click()a = a + 1 : Print a，End SubPrivate Sub Command2_Click()a = a + 1 : Print aEnd Sub運(yùn)行時(shí)，先后單擊Command1和Command2按鈕，輸出的結(jié)果為（ ）。( A )A) 1 1 B) 2 2 C) 1 2 D) 2 111．下列敘述中，錯(cuò)誤的是（ ）。( D )A) 控件可以作為過(guò)程的參數(shù)B) 窗體可以作為過(guò)程的參數(shù)C) 數(shù)組作為過(guò)程的參數(shù)時(shí)，使用“傳地址”方式D) 只有函數(shù)過(guò)程能夠?qū)⑦^(guò)程中處理的數(shù)據(jù)傳回到主調(diào)程序中12．窗體上有標(biāo)簽（LabelLabel2）和命令按鈕（Command1），編寫如下事件過(guò)程