Access專家課堂周年慶
網站公告
·Access快速平臺QQ群號:277422564    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-???函數/VBA

新剑侠情缘手游后期哪个职业最厉害:VBA二維數組的基礎介紹

新剑侠情缘3藏剑 www.djqok.icu 時 間: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交流群 (群號:86789465)       access源碼網店

最新評論 查看更多評論(0)

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助