第七章、数组

【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】: