第七章、数组

原创

金牛IT 2011-02-28 22:17:51 ©著作权

©著作权归作者所有：来自51CTO博客作者金牛IT的原创作品，请联系作者获取转载授权，否则将追究法律责任

【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