在代码:
Dim a(52) As String
Dim b(4, 13) As String
Dim i, j, t As Integer
For i = 1 To 52
a(i) = i
Next
Randomize(Timer)
For i = 1 To 4
For j = 1 To 13
t = Int(52 * Rnd()) + 1
Do While a(t) = 0
t = Int(52 * Rnd()) + 1
Do While a(t) = 0
t = Int(52 * Rnd()) + 1
Loop
Loop
b(i, j) = a(t) : a(t) = 0
Next j
Next i
For i = 1 To 4
For j = 1 To 13
Response.Write(b(i, j) & " ")
Next j
Response.Write("<br />")
Next i
中我想把52个数字改为52张扑克牌,不知道要怎么赋值才可以

For i = 1 To 4
For j = 1 To 13
For n = 1 To 52
b(i)(j) = a(n)
Next n
Next j
Next i

这样不就可以了??