Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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




Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助