如何在 vb.net 中创建无限数组

Question

我正在尝试创建一个 while 循环，该循环在有人键入“.”时结束。

我的代码如下，我收到代码后面的错误：

    Dim x, y As Integer
    Dim stuff(x) As String
    y = 1
    x = 0
    While y = 1
        x = x + 1
        Console.WriteLine("input stuff end with .")
        stuff(x - 1) = Console.ReadLine()
        If stuff(x - 1) = "." Then
            y = 0
        End If

    End While

错误信息：

An unhandled exception of type 'System.IndexOutOfRangeException' occurred in practise.exe

Additional information: Index was outside the bounds of the array.

提前致谢。

Answer 1

使用列表

    Dim stuff As New List(Of String)
    Do
        Console.WriteLine("input stuff end with .")
        stuff.Add(Console.ReadLine())
    Loop While stuff(stuff.Count - 1) <> "."

Answer 2

您可以使用字典代替数组，也可以使用 x 变量作为键

Answer 3

x = x + 1
ReDim Preserve stuff(x) 'add this line
Console.WriteLine("input stuff end with .")

如果它运行一段时间，您也可能会超出Integer数据类型所能容纳的范围。 Dim x As Long （如果您需要更多，则为Decimal ）。

Answer 4

基本上你的代码的问题是你的数组。 下面的代码应该首先定义大小为 1 的数组，然后您可以在循环中重新定义大小为 (x+1) 的数组。

    Dim x, y As Integer
    Dim stuff(1) As String
    y = 1
    x = 0
    While y = 1
        x = x + 1
        Console.WriteLine("input stuff end with .")
        stuff(x - 1) = Console.ReadLine()
        If stuff(x - 1) = "." Then
            y = 0
        End If
        ReDim Preserve stuff(x + 1)

    End While

希望这可以帮助

[更新 13/10/16 15:21] 将ReDim更改为ReDim Preserve以保留数组中的数据。 谢谢顶图