在VB中，可以使用InputBox函數來獲取用戶輸入的值，然后將這些值賦給數組。以下是一個示例代碼：
Dim myArray(4) As Integer
Dim i As Integer
For i = 0 To UBound(myArray)
myArray(i) = InputBox("請輸入第" & (i + 1) & "個元素的值：")
Next i
For i = 0 To UBound(myArray)
MsgBox "第" & (i + 1) & "個元素的值為：" & myArray(i)
Next i
在這個示例中，首先定義了一個包含5個整數的數組myArray。然后使用For循環和InputBox函數獲取用戶輸入的值，并將這些值分別賦給數組中的元素。最后使用For循環和MsgBox函數將數組中的值顯示出來。
