習(xí)題五
1. 指定數(shù)組的默認(rèn)下界 Option Base 1
2．合理的數(shù)組聲明
（1）錯。定義數(shù)組不可用變量（教材99頁）。
（2）正確。該數(shù)組下標(biāo)為0-11。
（3）錯。VB中數(shù)組下標(biāo)用圓括號。
（4）正確。三維數(shù)組三個下標(biāo)分別為0-1，0-1，0-2，共12個元素。
（5）錯誤。非動態(tài)數(shù)組，不可重定義。
（6）錯誤。動態(tài)數(shù)組重定義時不可改變數(shù)據(jù)類型。
（7）正確。二維數(shù)組兩個下標(biāo)分別為0-2，0-3，共12個元素。
（8）語法錯誤，二維數(shù)組定義中漏寫逗號——可能是印刷錯誤，加上此逗號則正確。
3．當(dāng)引用數(shù)組元素時下標(biāo)值小于定義的最小下標(biāo)，或大于最大下標(biāo)時，會發(fā)生“下標(biāo)越界”錯誤。
4．?dāng)?shù)組名：a ；數(shù)組類型：Single（單精度浮點(diǎn)型）；維數(shù)：二維；
各維的上下界：第一維下界（最小下標(biāo)）為 -1，上界（最大下標(biāo)）為2，
第二維下界（最小下標(biāo)）為 0，上界（最大下標(biāo)）為3；
數(shù)組的大?。?行4列共16個元素
以矩陣的格式輸出二維數(shù)組：
For i = -1 To 2
For j = 0 To 3
Print a(i, j);
Next j
Print
Next i
或?qū)懗筛油ㄓ玫拇a形式：
For i = LBound(a, 1) To UBound(a, 1)
For j = LBound(a, 2) To UBound(a, 2)
Print Tab(j * 8); a(i, j);
Next j
Print
Next i
6．一維字符數(shù)組
Dim a(1 To 20) As String
Private Sub Command1_Click() '(1)隨機(jī)產(chǎn)生字符串
Dim i As Integer, j As Integer, n As Integer, c As String * 1
Randomize
For i = 1 To 20
a(i) = "" '將第i個元素清空
n = Int(Rnd * 10 + 1) '產(chǎn)生[1,10]的隨機(jī)數(shù)
For j = 1 To n 'a(i)中有n個字符
c = Chr(Int(Rnd * 26 + 97)) '隨機(jī)產(chǎn)生字母97是字母a的ASCII碼
a(i) = a(i) + c
Next j
Next i
End Sub
Private Sub Command2_Click() '(2)輸出字符串
Dim i As Integer
For i = 1 To 20
Print Tab(((i - 1) Mod 5) * 11); a(i);
If i Mod 5 = 0 Then Print
Next i
End Sub
Private Sub Command3_Click() '(3)最長的字符串
Dim i As Integer, imax As Integer
imax = 1
For i = 2 To 20
If Len(a(i)) > Len(a(imax)) Then
imax = i
End If
Next i
Print "最長的字符串："; a(imax)
End Sub

第7，8題答案在教材中找。
第9題“自定義變量”含義不明，暫時無法回答。
第5，10 題 [暫略]