VB.net 随机数，每个到不同的标签

Question

我有这个函数，它返回随机数而不重复相同的标签除以"，"。如何将所有 6 个值返回到 6 个不同的标签？

公开课测试员    将 ds 作为新数据集公开    公共 strSQL 作为字符串    公共cmd作为新的MySql命令    Public dr As MySqlDataReader    将整数数字暗淡为整数    将 arrNumber（0 到 5） 暗为整数    将 i， x， y 调暗为整数    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click标签1.文本 = "对于 x = 0 到 5    开始：            随机化（）            intNumber = Int（（49 * Rnd（）） + 1）            对于 y = 0 到 5                如果 intNumber = arrNumber（y） 则                    转到开始                结束如果            下一个 yarrNumber（x） = intNumber        下一个 x        对于 i = 0 到 5            标签1.文本 = （arrNumber（i））        下一个    结束子结束类

Answer 1

Dim arrNumber(0 To 5) As Integer
'Create the array from your labels:
Dim aLabels() As Label = {Label1, Label2, Label3, Label4, Label5, Label6}

在你的循环中

For i = 0 To 5
    aLabels(i).Text = (arrNumber(i))
Next