在VB中，可以使用InputBox函数来获取用户输入的值，然后将这些值赋给数组。以下是一个示例代码：

Dim myArray(4) As IntegerDim i As IntegerFor i = 0 To UBound(myArray)myArray(i) = InputBox("请输入第" & (i + 1) & "个元素的值：")Next iFor i = 0 To UBound(myArray)MsgBox "第" & (i + 1) & "个元素的值为：" & myArray(i)Next i

在这个示例中，首先定义了一个包含5个整数的数组myArray。然后使用For循环和InputBox函数获取用户输入的值，并将这些值分别赋给数组中的元素。最后使用For循环和MsgBox函数将数组中的值显示出来。