VB中福利彩票的编程代码怎么写啊
2个回答
展开全部
在command1_click里写
dim a(1 to 6)
randomize
do
for i=1 to 6
a(i)=fix(rnd*(33)) +1
next i
loop while a(1)>a(2)>a(3)>a(4)>a(5)>a(6)
这是双色球红球的抽奖方式，最后输出数组a就行了，其他的彩票同理 。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
楼上的朋友代码随便一看就是有问题,会出现0的号码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
