如何通过vb 产生1-33的随机数和1-16的随机数，在1个文本中显示出来，并且从小到大排列，求代码~~

Question

如题所述

Answer 1

如果是要随机产生双色球的话，参考如下代码：
Private Sub Command1_Click()
Dim a(6) As Integer
Dim b As Integer

For i = 1 To 6
a(i) = Int(Rnd() * (1 + (33 - 1))) + 1
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
End If
Next

Next

For i = 1 To 6
For j = i + 1 To 6
If a(i) < a(j) Then
T = a(i): a(i) = a(j): a(j) = T
End If
Next
Next

b = Int(Rnd() * (1 + (16 - 1))) + 1

Text1.Text = a(6) & " " & a(5) & " " & a(4) _
& " " & a(3) & " " & a(2) & " " & a(1) & " +" & b

End Sub