在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)表示数组的第一个元素。在赋值数组元素时，可以使用赋值语句为每个元素赋值。