Question

Sub Main()
    Dim name1 As String
    Dim name2 As String

    Console.WriteLine("Enter name:")
    name1 = Console.ReadLine

    While name1 <> "x"

        name2 = name1

        Console.WriteLine("Enter name:")
        name1 = Console.ReadLine

    End While

    Console.WriteLine(name2)

    Console.ReadLine()

End Sub

我只是一个基本程序员，试图编写一个程序，允许某人输入一堆名字，直到用户输入“x”。但是我无法让程序在最后显示所有名称，一旦用户输入“x”，我尝试了很多方法，但我仍然有非常基本的知识。

Answer 1

name2不应该是String，而应该是“字符串列表”。我会称之为names，因为它更有意义：

Dim names As New List(Of String)

然后在name2 = name1行中，您应该将name1添加到names。使用Add列表的names方法。

最后，您必须遍历整个names以打印出结果。请使用For Each循环。

我找到了一个非常好的例子，显示了这里的三个步骤：

http://msdn.microsoft.com/en-us/library/4kf43ys3(v=vs.110).aspx

控制台：输入名称直到

1 个答案: