主题：请问金字塔的VBA编程中，可不可以实现二维数组的运算

例一

tempArray= Array("0","1","2","3","4","5","6","7","8","9",
"a","b","c","d","e","f","g","h","i","j",
"A","B","C","D","E","F","G","H","I","J",
"~","!","@","#","$","%","^","&","*","(")

Dim codeArray(9,3)
For i=0 To 3
For j=0 To 9
codeArray(j,i) = tempArray(i*10+j)
Next
Next

例二

dim a(1,3)
for i = 0 to ubound(a,2)
for j = 0 to ubound(a,1)
a(j,i)=x
x=x+1
next
next

for i = 0 to ubound(a,2)
for j = 0 to ubound(a,1)
str1=str1 & a(j,i) & vbcrlf
next
next
msgbox str1

都是百度搜来的，建议客户遇到金字塔VBA的开发问题，多利用一下网络资源。

金字塔VBA用的VBS脚本，与VBS保值100%兼容性