在VB中，可以通过以下几种方式来给数组赋值：
1. 使用Array函数创建并初始化数组：
```vb
Dim arr() As Integer '声明一个整型数组
arr = Array(1, 2, 3, 4, 5) '使用Array函数为数组赋值
```
2. 使用花括号 `{}` 包围元素来赋值给数组：
```vb
Dim arr() As Integer = {1, 2, 3, 4, 5} '直接使用大括号来为数组赋值
```
3. 使用索引逐个赋值给数组元素：
```vb
Dim arr(4) As Integer '声明一个包含5个元素的整型数组
arr(0) = 1 '为第一个元素赋值
arr(1) = 2 '为第二个元素赋值
arr(2) = 3 '为第三个元素赋值
arr(3) = 4 '为第四个元素赋值
arr(4) = 5 '为第五个元素赋值
```
4. 使用For循环或其他迭代方式来为数组赋值：
```vb
Dim arr(4) As Integer
For i As Integer = 0 To 4
arr(i) = i + 1
Next
```
以上是几种常见的给数组赋值的方式，你可以根据具体的情况选择适合的方式。
