vba二维数组初始化_VBA二维数组的基础介绍

时　间:2019-05-18 23:04:49

作　者:摘　要:你已经知道了如何有规划地产生一个清单(一维数组)，是时候仔细看一下如何使用数据表了。下面的过程产生一个二维数组，储存国家名称，货币名称和交换汇率。

正　文:

源码：

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交流群(群号:39785885)

Access源码网店