声明一维数组6，并在文本框中显示1-6之间的随机值。

Question

我需要帮助我的程序。我声明了一个6的一维数组，并希望在文本框中显示1-6之间的随机值。

我的问题是如何用textbox1.text在数组中显示值？

这是我的代码：

Public Sub ClickMyFirstClassButton()

   If FirstClass.Checked = True Then

        'This piece of code declares an array
        Dim Seats As Integer()

        'This is a One Dimensional Array
        ReDim Seats(6)

        TextBox1.Text = (String.Format("First Class is checked. The number of seats are : ", (Seats)))
        'ElseIf FirstClass.AutoCheck = True Then

        'MessageBox.Show("FirstClass is Auto checked")
    End If
End Sub 

我搞砸了我的程序，这就是我所做的。

公共子ClickMyFirstClassButton()

    If FirstClass.Checked = True Then

        'Dim Seats As Integer() = {1, 2, 3, 4, 5, 6}
        Dim Seats(0 To 6) As Integer
        Seats(0) = 1
        Seats(1) = 2
        Seats(2) = 3
        Seats(3) = 4
        Seats(4) = 5
        Seats(5) = 6

        TextBox1.Text = (String.Format("First Class is checked. Your seat is : {0}", Seats(RandomNumber(Seats))))
        MessageBox.Show(String.Format("First Class is checked. Your seat is : {0}", Seats(RandomNumber(Seats))))
        'ElseIf FirstClass.AutoCheck Then

        'MessageBox.Show("FirstClass is Auto checked")

    End If
End Sub

Answer 1

在你现在有“(座位)”的地方，用string.join("，"，座位)代替它，看看你是否喜欢这些结果。

(虽然我不知道这与随机值有什么关系，但它应该显示数组中的值。)

Answer 2

我仍然不确定为什么要以这种方式使用数组--如果您只想要一个介于1到6之间的数字，这将实现您想要的结果：

Public Sub ClickMyFirstClassButton()
   If FirstClass.Checked = True Then
        TextBox1.Text = (String.Format("First Class is checked. The number of seats are : " & CInt(Math.Ceiling(Rnd() * 6)) + 1))
    End If
End Sub 

这是一个学习练习吗？如果是这样的话，我很想看到你被问到的问题，因为这对我来说没有多大意义。