1， 彩票生成系統： 生成壹組隨機的雙色球彩票(壹***7個數字，前六位隨機範圍為1-33，最後壹位範圍1-16)，

Dim RedBall(6) As Integer

Rnd (Resize)

For k = 0 To 32

GRedBall(k) = k + 1

Next k

For j = 0 To 5

k = Int(Rnd * (33 - j))

RedBall(j) = GRedBall(k)

For l = k To 32 - j

If l <> 32 Then

GRedBall(l) = GRedBall(l + 1)

End If

Next l

Next j

RedBall(6) = Int(Rnd * 15) + 1

MsgBox (RedBall(0) & " " & RedBall(1) & " " & RedBall(2) & " " & RedBall(3) & " " & RedBall(4) & " " & RedBall(5) & " " & RedBall(6))

用VB 寫的壹個 對付看吧