㈠ 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就行了，其他的彩票同理。