vb双色球摇号代码

Dim a(5) As Integer, t As Integer
Dim i As Integer, j As Integer

Randomize
a(0) = Int(Rnd * 33) + 1 '先随机生成一个红球
For i = 1 To 5
L1:    t = Int(Rnd * 33) + 1
       For j = 0 To i - 1
           If a(j) = t Then
                GoTo L1
                Exit For
           End If
       Next j
       a(i) = t
Next i

For i = 0 To 4 '控制趟数
  For j = i + 1 To 5 '控制每趟比较的次数
       If a(i) > a(j) Then
          t = a(i)
          a(i) = a(j)
          a(j) = t
       End If
  Next j
Next i

Text1.Text = a(0)
Text2.Text = a(1)
Text3.Text = a(2)
Text4.Text = a(3)