模拟 双色球

这几天做梦梦见中奖了，睡醒以后又是南柯一梦。没什么事干，写了一段代码模拟双色球，呵呵。

Randomize Function RndNumber()

  Dim a(32)

  Dim b(5)

  Dim temp

  Dim str

  For i=0 To 32

    a(i)=i+1

  Next

  For j=0 To 5

    b(j)=Int(Rnd*33+1)

    While (a(b(j)-1)=0)

    b(j)=Int(Rnd*33+1)

    wend

    a(b(j)-1)=0

  next

  For j=0 To 5

     If b(j)<10 Then

        temp="0"&b(j)

     Else

         temp=b(j)

     End If

     RndNumber=RndNumber&" "&temp

  Next

  temp=Int(Rnd*16+1)

  If temp<10 Then

     str="0"&temp

  Else

      str=temp

  End if

  RndNumber=RndNumber&" "&str

End Function