在VB中，可以使用Dim語句定義一維數組，并使用賦值語句為數組元素賦值。以下是定義和賦值一維數組的示例代碼：
Dim arr(4) As Integer '定義一個包含5個整數的一維數組
arr(0) = 1 '為數組的第一個元素賦值
arr(1) = 2 '為數組的第二個元素賦值
arr(2) = 3 '為數組的第三個元素賦值
arr(3) = 4 '為數組的第四個元素賦值
arr(4) = 5 '為數組的第五個元素賦值
上述代碼定義了一個包含5個整數的一維數組，并為數組的每個元素賦了一個值。請注意，數組索引從0開始，因此arr(0)表示數組的第一個元素。在賦值數組元素時，可以使用賦值語句為每個元素賦值。
