从文本框添加数组值并显示在一个标签

我是新来的和总是Stackoverflow,它帮助我总是与我的问题。 请帮我拿我的问题我需要做它为我下周的考试。 请帮我尽快。

使用Visual Basic。 我应该创建一个数组和一个整数字符串。 整数字符串= =距离的名字。 将会有两个文本框,标签和2按钮。

txtname。 文本,txtdistance。 文本、lblname lbldistance,btninputdata btnshowcontent

btninputdata应该禁用后填满30数组,使btnshowcontent可见和显示所有30值(通过文本框插入值)在lblname和lbldistance。

而他们都需要通过一个文本框插入存储到数组,然后使用btnshowcontent存储数组应该显示在单独的标签名称和距离。

“我的代码”

Public Class Form1
Dim ara(29) As String

Private Sub Form1_Load(sender As Object, e As EventArgs)

End Sub

Private Sub btninputdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninputdata.Click

If txtname.Text <> "" Then
    For h As Integer = 0 To 29
        If ara(h) = "" Then
            ara(h) = txtname.Text
            txtname.Clear()
            Exit Sub
        End If
        Label1.Text = ara.ToString()

    Next
    MsgBox("arry full")
    btninputdata.Visible = False
    btnshowcontent.Visible = True

End If

End Sub

Private Sub btnshowcontent_Click(sender As Object, e As EventArgs) Handles btnshowcontent.Click
'ListBox1.Items.Clear()
'ListBox1.Items.AddRange(ara)
''Label1.Text &= ara(I) & ""

End Sub

Private Sub Form1_Load_1(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub
End Class
谢谢你！