VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对( 首页上一页 1 下一页尾页 1 条记录 1/1页
数组？请高手指点。
发表在VB答疑区
2010-05-03
是否精华
是
否
版块置顶:
是
否
privite sub command1_click()
dim i as integer
dim intarray(5) as integer
for i=0 to 4
intarray(i)=2205
next i
dim strarray(5) as string
for i=0 to 4
strarray(i)="明日图书"
next i
dim arr(1 to 2) as variant
arr(1)=intarray()
arr(2)=intarray()
msgbox arr(1)(2) '为什么显示结果为2205
msgbox arr(2)(3) '为什么显示结果为“明日图书”
dim i as integer
dim intarray(5) as integer
for i=0 to 4
intarray(i)=2205
next i
dim strarray(5) as string
for i=0 to 4
strarray(i)="明日图书"
next i
dim arr(1 to 2) as variant
arr(1)=intarray()
arr(2)=intarray()
msgbox arr(1)(2) '为什么显示结果为2205
msgbox arr(2)(3) '为什么显示结果为“明日图书”
分享到：
