第七章、數組

【1】:利用數組a存放姓名：
    Dim a(1 To 3) As String    '要在不同模塊中使用，需在通用階段要申明
    a(1) = "zhangsan": a(2) = "lisi": a(3) = "wangwu"
【2】:隨機生成10個兩位數放入數組中
Dim a(1 To 10) As Integer

Private Sub Form_Load()
    Randomize
    For i = 1 To 10
        a(i) = Int(Rnd * 90) + 10
    Next
End Sub
【3】:隨機生成小於100的整數放入5*5的方陣中
Dim a(5, 5) As Integer

Private Sub Form_Load()
    Randomize
    For i = 1 To 5
        For j = 1 To 5
            a(i, j) = Int(Rnd * 99) + 1
        Next
    Next
End Sub
【4】:將例2中的數組按2行5列輸出
Private Sub Form_Activate()
    Cls
    Print
    For i = 1 To 10
        If i Mod 5 = 0 Then
            Print a(i)
        Else
            Print a(i); " ";
        End If
    Next
End Sub
【5】:將例3中的數組按5行5列在列表中輸出
Private Sub Command1_Click()
    List1.Clear
    Dim p As String
    For i = 1 To 5
        p = ""
        For j = 1 To 5
            p = p & Format(a(i, j), "!@@@")
        Next
        List1.AddItem p, i - 1
    Next
End Sub
【6】:將變體型數組a的第二個元素賦予b

Dim a As Variant
a = Array(10, 20, 30)

b=a(2)

【7】: