无法输出数组

Question

我被要求在一个标签中输出两个数组，我的代码如下：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click    
  If block = True And counter <= 23 Then
    Try
      array1(counter) = TextBox1.Text
      Dim txtbox2 As String = CInt(TextBox2.Text)
      array2(counter) = txtbox2
      counter += 1
    Catch ex As Exception
      TextBox2.Text = ""
    End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  Dim arr1 As String
  Dim arr2 As String
  Dim result As String
  For Each values In array1
    arr1 = values
  Next

  For Each values In array2
    arr2 = values.ToString
  Next
  Label3.Text = String.Join("     ", arr1, arr2)
End Sub

当我单击按钮时，它不会显示数组的所有值，而是仅显示每个数组的第一个。 我也试图以标签形式的表格视图显示它。

Answer 1

您可能应该使用List(Of String)而不是数组，但话虽这么说，您的String.Join试图合并两个数组，但它并非完全如此。

尝试将字符串添加到List(Of String) ，然后将整个输出转换回单个数组：

Dim results As New List(Of String)(array1)
results.AddRange(array2)
Label3.Text = String.Join(" ", results.ToArray)

如果第二个数组是整数数组，则必须将它们转换为字符串数组：

Dim results As New List(Of String)(array1)
results.AddRange(array2.Select(Function(x) x.ToString))
Label3.Text = String.Join(" ", results.ToArray)