在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
以上是幾種常見的給數組賦值的方式，你可以根據具體的情況選擇適合的方式。
