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

huangwy 2003-03-14 03:53:10

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

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

...全文

92 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2003-03-14

打赏
举报

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

CloneCenter 2003-03-14

打赏
举报

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

horsefly 2003-03-14

打赏
举报

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

bluoy 2003-03-14

打赏
举报

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

huangwy 2003-03-14

打赏
举报

vbscript中支持结构体吗？

Sean918 2003-03-14

打赏
举报

一楼正解！

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

xsp 2003-03-14

打赏
举报

用结构体吧
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
...
由于数据没什么规律，不能用循环填充数据。

hmily_girl 2003-03-14