尝试从InputBox中获取数字，拆分它们然后将每个数字添加到数组中

Question

我有InputBox要求用户输入5个数字，然后尝试将每个数字添加到数组大小5.但是我收到错误。循环是在数组中添加数字任何人都可以帮忙吗？

Answer 1

您知道split会生成数组。

消息是你的数组而不是arraynums。

您的for循环为0到5，即6。

Answer 2

阅读文档，例如Split Function

Dim i
Dim arrayNums
Dim message
Dim userInput

message = InputBox("Please Enter 5 numbers!")
arrayNums = Split( message)

For i=0 To ubound(arrayNums)  
 msgbox(arrayNums(i))
Next

Answer 3

你走在正确的轨道上。您只需Split结果即可创建数组。然后，您可以测试数组的UBound()以查看您是否有5个数字。

这是一个循环，一直持续到输入5个数字：

Do
    a = Split(InputBox("Please enter 5 numbers, separated by spaces:"))
Loop Until UBound(a) = 4

' Now, a(0) through a(4) are your 5 numbers.

当然，您可能还想验证5个条目以确保它们实际上是数字。 IsNumeric()功能可以提供帮助。