关于数组的使用，高分！！！！

[huangwy]

事本1 1MC 120000
事本1 2MC 320000
事本2 FOS 280000
事本2 FOD 120000

有如上一组数据，如何把它放在一个数组里面。
这个数组应先如何定义？？
循环如何写？

[zw_yu]

用结构体吧
type YourName
事本1 as string
1MC as string
120000 as long
end type

dim a(3) as YourName

[zhuangbx220]

redim v(4,4,4)

v(1,0,0)=事本1
...
v(4,0,0)=事本2

v(0,1,0)=1MC
...
v(0,4,0)=FOD


v(0,0,1)=120000
...
v(0,0,4)=120000

[hmily_girl]

dim s(2,n) as string

s(0,0)=事本1
s(1,0)=1MC
s(2,0)=120000

s(0,0)=
s(1,0)=
s(2,0)=

s(0,0)=
s(1,0)=
s(2,0)=

[xsp]

用结构体吧
type TypeName
a1 as string
a2 as string
a3 as long
end type

dim arr(1 to 4) as TypeName
arr(1).a1="事本1"
arr(1).a2="1MC"
arr(1).a3=120000
...
由于数据没什么规律，不能用循环填充数据。

[Sean918]

一楼正解！

使用结构体作元素的数组是最好的方法

[huangwy]

vbscript中支持结构体吗？

[bluoy]

dim s(3,2) as string

s(0,0)=事本1
s(0,1)=1MC
s(0,2)=120000

s(1,0)=事本1
s(1,1)=2MC
s(1,2)=320000

s(2,0)=事本2
s(2,1)=FOS
s(2,2)=280000

s(3,0)=事本2
s(3,1)=FOD
s(3,2)=120000

for i = 0 to 3
for j = 0 to 2
debug.pring s(i,j)
next j
next i

[horsefly]

结构体。
既方便看起来又清楚。

[CloneCenter]

VB 中好象不支持数组常量定义哦。

[northwolves]

Private Sub Command1_Click()
Dim col1 As New Collection
col1.Add "事本1 1MC 120000"
col1.Add "事本1 2MC 320000"
col1.Add "事本2 FOS 280000"
col1.Add "事本2 FOD 120000"

Dim x
x = Split(col1(3), " ")
MsgBox x(2)
End Sub