VBA二维数组的基础介绍

时　间:2019-05-18 23:04:49
作　者:杨雪   ID：42182  城市：南京
摘　要:你已经知道了如何有规划地产生一个清单（一维数组），是时候仔细看一下如何使用数据表了。下面的过程产生一个二维数组，储存国家名称，货币名称和交换汇率。
正　文:

源码：

Sub Exchange()
    Dim t As String
    Dim r As String
    Dim Ex(3, 3) As Variant
    t = Chr(9)    'tab
    r = Chr(13)    'Enter
    Ex(1, 1) = "Japan"
    Ex(1, 2) = "Yen"
    Ex(1, 3) = 128.2
    Ex(2, 1) = "Mexico"
    Ex(2, 2) = "Peso"
    Ex(2, 3) = 9.423
    Ex(3, 1) = "Canada"
    Ex(3, 2) = "Dollar"
    Ex(3, 3) = 1.567
    MsgBox "Country " & t & t & "Currency" & t & "per US$" _
         & r & r _
         & Ex(1, 1) & t & t & Ex(1, 2) & t & Ex(1, 3) & r _
         & Ex(2, 1) & t & t & Ex(2, 2) & t & Ex(2, 3) & r _
         & Ex(3, 1) & t & t & Ex(3, 2) & t & Ex(3, 3), , _
           "Exchange"
End Sub

当你运行过程Exchange时，你将看到一个信息框，显示三列信息