雙色球選號器

Private Sub Command1_Click()

Dim i, a(34), b(7)

Randomize: Cls

For i = 1 To 7

b(i) = Int(Rnd * 34 + 1)

If a(b(i)) Then i = i - 1 Else a(b(i)) = 1

Next

Print "34 選 7組 福利彩票系統,中獎號碼:"

For i = 1 To 7

Print b(i)

Next

End Sub

請不要發違規廣告，是違法行為

上一篇:三百人吃五千萬零食壹盒名片上千，難怪拜騰燒光84億造不出量產車

下一篇:湖人vs開拓者錄像（NBA季後賽首輪激戰）