vb不能给数组赋值怎样解决

在VB中，给数组赋值有多种方式。以下是一些常见的方法：
1. 使用For循环逐一赋值数组元素：
```vb
Dim arr(5) As Integer
For i As Integer = 0 To arr.Length - 1
arr(i) = i + 1
Next i
```
2. 使用Array类的Initialize方法初始化数组：
```vb
Dim arr() As Integer = New Integer() {1, 2, 3, 4, 5}
```
3. 使用集合类（如List或ArrayList）来动态添加元素，并将其转换为数组：
```vb
Dim list As New List(Of Integer)()
list.Add(1)
list.Add(2)
list.Add(3)
Dim arr() As Integer = list.ToArray()
```
4. 使用Array类的Resize方法调剂数组大小，并逐一赋值数组元素：
```vb
Dim oldArr() As Integer = {1, 2, 3}
ReDim arr(oldArr.Length) ' 调剂数组大小
For i As Integer = 0 To oldArr.Length - 1
arr(i) = oldArr(i)
Next i
```
请根据您的具体需求选择合适的方法。