VB.NET：InputBox输入存入一维数组并显示到ListBox出错求助

你的这段VB.NET代码存在几个关键问题，导致无法正常运行：

• 数组未初始化：你只声明了NumArray() As Double，但没有给数组分配内存空间。在VB.NET中，动态数组必须先指定大小才能存储元素，否则直接赋值会触发NullReferenceException。
• 赋值逻辑错误：NumArray = InputBox(...)这行完全不符合要求——InputBox返回的是字符串类型，而且你应该给数组的单个元素（比如NumArray(ii)）赋值，不是把整个数组替换成输入的字符串。
• 循环变量混淆：你先把ii赋值为10，接着写For ii = 0 To ii -1，虽然第一次循环时ii-1是9，但循环过程中ii会被迭代覆盖，逻辑上很容易混乱，建议用独立的循环变量或者直接在For循环内声明变量。
• 缺少输入验证：如果用户输入非数字内容（比如字母、空值），直接转换为Double会抛出FormatException，导致程序崩溃。

针对以上问题，我们可以按以下步骤修复：

1. 先初始化数组，指定长度为10（对应你要输入的10个数值）；
2. 在循环中获取用户输入，通过安全转换验证输入是否为有效数字；
3. 规范循环变量的使用，避免变量名冲突。

下面是修正后的完整代码：

' 初始化数组，下标从0到9，共10个元素
Dim NumArray(9) As Double
Dim inputStr As String
Dim validNumber As Double

' 循环获取10个输入值并存入数组
For index As Integer = 0 To 9
    Do
        inputStr = InputBox($"请输入第 {index + 1} 个数值", "数据输入")
        ' 使用TryParse安全验证并转换输入为Double类型
        If Double.TryParse(inputStr, validNumber) Then
            Exit Do ' 输入有效，跳出循环
        Else
            MessageBox.Show("请输入有效的数字！", "输入错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    Loop While True ' 直到输入有效为止
    
    NumArray(index) = validNumber
Next

' 将数组元素添加到ListBox中显示
For index As Integer = 0 To 9
    ListBox1.Items.Add(NumArray(index))
Next

• 使用Double.TryParse进行输入验证，相比直接用CDbl强制转换更安全，能避免无效输入导致的程序崩溃；
• 字符串插值$"请输入第 {index + 1} 个数值"让字符串拼接更简洁易读，也可以替换为传统的字符串拼接方式："请输入第 " & (index + 1) & " 个数值"；
• VB.NET的数组下标从0开始，所以声明NumArray(9)表示数组包含10个元素（下标0到9），刚好对应你需要的10个输入值。

内容的提问来源于stack exchange，提问作者Haydeer Hussien