Question

vbs 怎么定义二维数组和循环读取

在JS中定义：
var a = [{
u: "a1",
d: "a2"
},{
u: "b1",
d: "b2"
}]
读取：
for (var b in a) {
popub(a[b]["a"])
popub(a[b]["b"])

}
请问用VBS怎么写
var a = [{
u: "a1",
d: "a2"
},{
u: "b1",
d: "b2"
}]

这个用vbs怎么写？

Answer 1

vbs的数组不支持key
你可以改用Dictionary对象或者Class

用Class:

Class Demo
Public u
Public d
End Class

Dim a(1)
Set a(0) = New Demo
a(0).u = "a1"
a(0).d = "a2"
Set a(1) = New Demo
a(1).u = "b1"
a(1).d = "b2"

Dim b
For b = 0 To Ubound(a)
Msgbox a[b].a
Msgbox a[b].b
Next

Answer 2

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