在VB中，定義數組并賦值的方法有多種。以下是幾種常用的方法：
使用Array類型的靜態方法：
Dim arr() As Integer = Array.CreateInstance(GetType(Integer), 3) '定義一個長度為3的整數數組
arr(0) = 1 '賦值
arr(1) = 2
arr(2) = 3
使用Array類型的構造函數：
Dim arr() As Integer = New Integer() {1, 2, 3} '定義并賦值一個整數數組
使用初始化列表：
Dim arr() As Integer = {1, 2, 3} '定義并賦值一個整數數組
使用Array類型的Resize方法：
Dim arr() As Integer
Array.Resize(arr, 3) '定義一個長度為3的整數數組
arr(0) = 1 '賦值
arr(1) = 2
arr(2) = 3
注意：在VB中，數組的下標從0開始計數。上述方法可以根據需要調整數據類型和數組長度。
