Question

vb.net 编写一个函数

函数返回的是一个4*13的二维数组，数组中的数值都是1、2、3、4的随机整数，并且在这个数组中1、2、3、4出现的次数都是13次 用窗体来运行出来

Answer 1

注意：参数为动态数组；
Private Function MyF(ByRef d() As Integer)
ReDim d(4, 13) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim MyNum(4) As Integer

For i = 1 To 4
MyNum(i) = 0
Next i

Randomize
For i = 1 To 4
For j = 1 To 13
n = Int(Rnd * 4 + 1)
Do While MyNum(n) = 13
n = Int(Rnd * 4 + 1)
Loop
d(i, j) = n
MyNum(n) = MyNum(n) + 1
Next j
Next i

End Function

追问

为什么要动态数组呢

追答

下面这个是非动态数组：

Private Function MyF(ByRef d() As Integer)
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim MyNum(4) As Integer

For i = 1 To 4
MyNum(i) = 0
Next i

Randomize
For i = 1 To 4
For j = 1 To 13
n = Int(Rnd * 4 + 1)
Do While MyNum(n) = 13
n = Int(Rnd * 4 + 1)
Loop
d(i, j) = n
MyNum(n) = MyNum(n) + 1
Next j
Next i

End Function