vb中怎么赋值给数组？

vb中怎么赋值给数组？

vb赋值给数组，有以下几种方式：

第一种方式：

PrivateSubCommand1_Clic别王分局圆想主书语神k()

Dima(10)AsInteger'定义数组a,下标最大值为10

Fori=0To10

a(i)=i'这乙存顾衡粉冲里可以直接给数组赋值了

Print"a("&i&")的值"&a(i)'打印数组

N搞等考例歌刻水烟极ext

EndSub

第二种方式：

PrivateSub稳交修资苗难Command1_Cli入送预果游关儿它ck()

Dima(财完红区差保无危)AsInteger'定义数组a，这里未设置下标

Fori=0To10

ReDimPreservea因赵轴(i)'ReDim语句改变数组的元素以及维数的数目

a(i)=i'这里可以直接给数组赋值了

Print"a("&i&")的值"&a(i)

Next

EndSub

第三种方式：

PrivateSubCommand1_Click()

a=Array(1,5,2决副弱范矿露国待,43,222)

MsgBox"a(0)原来的值是：起跑"&a(0)

a(0)=100

MsgBox"a(0)赋值挥司了后的值是："&a(0)

EndSub