声明一个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 

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

公用子点击MyFirstClassButton()

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

如果您当前有"(Seats)"，请将其替换为string.join("，"，Seats)，看看您是否喜欢这些结果。

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

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 

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