主题：[求助]打乱组合顺序

Dim ary() As String = {a(rand.Next(0,n)), b(rand.Next(0,n1)), c(rand.Next(0,n2)）}

For j As Integer = 1 To 5 '洗牌次数
    Dim rnum1 As Integer = Rand.Next(ary.Length)
    Dim rnum2 As Integer = Rand.Next(ary.Length)
    Dim temp As String = ary(rnum1)
    ary(rnum1) = ary(rnum2)
    ary(rnum2) = temp
Next
Dim s As String = String.Join("", ary)