Sub 号码生成器()
Dim i&, J%, A%
Dim s(100000) As String
Randomize
For i = 1 To 100000
ReDim R(1 To 4)
For J = 1 To 11
A = (Round(Rnd * 3) + 1)
R(A) = R(A) + 1
If R(A) > 3 Then
J = J - 1
GoTo 10
End If
s(i) = s(i) & A
10 Next
Next
Sub 号码生成器()
Dim i&, J%, A%
Dim s(100000) As String
Randomize
For i = 1 To 100000
ReDim R(1 To 4)
For J = 1 To 11
A = (Round(Rnd * 3) + 1)
R(A) = R(A) + 1
If R(A) > 3 Then
J = J - 1
GoTo 10
End If
s(i) = s(i) & A
10 Next
Next