Visual Basic在数组中输入信息

时间:2013-06-23 00:36:30

标签: vb.net multidimensional-array listbox

我有两个文本框输入学生的姓名和标记。

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

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

阵列完成后,我需要将结果显示在列表框中。

谢谢

EDIT !!!

这是我现在的代码,但我仍然有很少的错误

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

2 个答案:

答案 0 :(得分:2)

基本上就是这样..

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

所以,如果你想把你的文本框添加到..

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

对于Next,您必须了解List Of ..我相信Google先生会帮助您..

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

答案 1 :(得分:0)

阵列对于这种应用来说有点混乱。根据你得到的输入增加或减少它的大小并不容易。列表更容易使用。 您还可以使用keyvaluepairs列表,它将数据的两个部分组合在一起:

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