在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函数将数组中的值显示出来。
