Visual Basic 在数组中输入信息答案

【问题标题】：Visual Basic enter information in an arrayVisual Basic 在数组中输入信息
【发布时间】：2013-06-23 00:36:29
【问题描述】：

我有两个文本框来输入学生的姓名和分数。

我不知道如何在 Visual Basic 中为其创建数组

数组必须是多维的，并且还需要有一个索引，每次输入新的标记和名称时都会增加。

数组完成后，我需要将结果显示在列表框中。

谢谢

编辑！！！

这是我现在拥有的代码，但我仍然有一些错误

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim LName As New List(Of String)
    Dim LMark As New List(Of Integer)


    LName.Add(txtEnterName.Text)
    LMark.Add(txtEnterMarks.Text)

    For counterOne As Integer = 0 To 10

        For counterTwo As Integer = 0 To 10

       Array[counterOne][counterTwo] = listview.text

        Next

    Next
End Sub

【问题讨论】：

不，列表框在visual basic中（与数组相同的程序）
欢迎来到 StackOverflow。这不是“这是我的要求。请为我编写代码。谢谢”的地方。键入问题。你已经很好地解释了你需要什么——现在你需要做的就是写一些代码来尝试去做。完成此操作后，如果无法使其正常工作，您可以在此处发布以解释与该代码一起无法正常工作的内容并提出具体问题。不过，我们确实希望您先付出一些努力来完成自己的工作。祝你好运。
很好的编辑。希望其他人回来并收回他们的 dvs

标签： vb.net multidimensional-array listbox

【解决方案1】：

基本上是这样的..

Dim LName as New List(Of String)
Dim LMark as New List(Of Integer)

所以，如果你想将你的文本框添加到 ..

LName.Add(Textbox1.Text)
LMark.Add(TextBox2.Text)

接下来你必须了解List Of ..我相信Google先生会帮助你..

要生成 ListBox .. 最好使用带有 2 列的 ViewListBox ..

【讨论】：

【解决方案2】：

对于这种应用程序来说，数组有点乱。根据您获得的输入来增加或减少它的大小并不容易。列表更容易使用。您还可以使用键值对列表将数据的两部分联系在一起：

Public Class Form2
    'Declare the list here so that it's available to the whole class    
    Dim AllMarks As New List(Of KeyValuePair(Of String, Integer))
Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    Dim Mark As Integer
    If Integer.TryParse(txtEnterMarks.Text, Mark) AndAlso txtEnterName.Text <> "" Then
        AllMarks.Add(New KeyValuePair(Of String, Integer)(txtEnterName.Text, Mark))
    End If
    'Using the datasource property is a quick and easy way to fill your listbox
    ListBox1.DataSource = Nothing
    ListBox1.Items.Clear()
    ListBox1.DataSource = AllMarks
    txtEnterMarks.Text = ""
    txtEnterName.Text = ""
End Sub
End Class

【讨论】：