㈠ VB中福利彩票的編程代碼怎麼寫啊
在command1_click里寫
dim a(1 to 6)randomizedofor i=1 to 6a(i)=fix(rnd*(33)) +1next iloop while a(1)>a(2)>a(3)>a(4)>a(5)>a(6)
這是雙色球紅球的抽獎方式，最後輸出數組a就行了，其他的彩票同理。