vb中怎么赋值给数组？

2025-03-29 07:49:33

推荐回答（1个）

回答1：

vb赋值给数组，有以下几种方式：
第一种方式：
Private Sub Command1_Click()
Dim a(10) As Integer '定义数组a,下标最大值为10
For i = 0 To 10
a(i) = i'这里可以直接给数组赋值了
Print "a(" & i & ")的值" & a(i) '打印数组
Next
End Sub
第二种方式：
Private Sub Command1_Click()
Dim a() As Integer '定义数组a，这里未设置下标
For i = 0 To 10
ReDim Preserve a(i)'ReDim 语句改变数组的元素以及维数的数目
a(i) = i'这里可以直接给数组赋值了
Print "a(" & i & ")的值" & a(i)
Next
End Sub
第三种方式：
Private Sub Command1_Click()
a = Array(1, 5, 2, 43, 222)
MsgBox "a(0)原来的值是：" & a(0)
a(0) = 100
MsgBox "a(0)赋值后的值是：" & a(0)
End Sub