VBA二维数组的基础介绍-杨雪
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


VBA二维数组的基础介绍

发表时间:2019/5/18 23:04:49 评论(0) 浏览(7695)  评论 | 加入收藏 | 复制
   
摘 要:你已经知道了如何有规划地产生一个清单(一维数组),是时候仔细看一下如何使用数据表了。下面的过程产生一个二维数组,储存国家名称,货币名称和交换汇率。
正 文:

源码:

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时,你将看到一个信息框,显示三列信息



Access软件网交流QQ群(群号:198465573)
 
 相关文章
数组的力量  【nivenm  2013/6/25】
如何判断VBA中的一个数组是否已经定义其维数上限下限  【MDZZ  2017/4/17】
【Access基础】求一维数组的最大值  【缪炜  2018/6/15】
UBound函数、LBound函数、以及得到数组元素个数  【伊西军  2018/8/2】
【Access基础】求一维数组的最小值的自定义函数  【仙来  2018/8/19】
导出Excel报表的时候,激活Excel模版中的数组公式  【易勋  2019/1/31】
索引超出了数组界限(Microsoft.SqlServer.Smo...  【周韶璋  2019/4/2】
常见问答
技术分类
相关资源
文章搜索
关于作者

杨雪

文章分类

文章存档

友情链接