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