求破解民间私彩摇号机程序，可预知每次的小汽车摇号结果查询，谢谢！！！！

来源：蜘蛛抓取(WebSpider) 时间：2014-12-07 21:05 标签： 北京汽车摇号
用VB制作一个彩票摇号器_百度知道
按默认排序
'详见&''两个Label，5个文本框（数组），四个按钮Dim&k&As&Boolean,&i%Private&Sub&Form_Load()&&&&For&i&=&0&To&5&&&&&&&&Text1(i)&=&&&&&&&Next&i&&&&&&&&Label2&=&&&&&&&&&&&Command2.Enabled&=&FalseEnd&SubPrivate&Sub&Command1_Click()&'开始&&&&Command2.Enabled&=&True&&&&Label2&=&&&&&&&k&=&False&&&&Do&While&k&=&False&&&&&&For&i&=&0&To&5&&&&&&&&&&&Text1(i)&=&Int(9&*&Rnd())&+&1&&&&&&Next&i&&&&&&&&&DoEvents&&&&Loop&&&&Label2&=&Text1(0)&&&Text1(1)&&&Text1(2)&&&Text1(3)&&&Text1(4)&&&Text1(5)End&SubPrivate&Sub&Command2_Click()&'停止&&&k&=&True&&&Command2.Enabled&=&FalseEnd&SubPrivate&Sub&Command3_Click()&'清除&&&Call&Form_LoadEnd&SubPrivate&Sub&Command4_Click()&'结束&&&Unload&MeEnd&Sub
运行的时候Private Sub Form_Load()这个说不能给只读属性赋值...是怎么回事？小白一枚...求解释
哪行代码？如果是：Label2 = &&的话就修改为Label2.caption = &&
Text1(i) = &&
你把源文件发给我
文本用控件数组
不懂...求源文件...
做商业用吗？Sorry,请联系别人。。。。。。
大学题目...为考试奋战...
哦，大学题目。好好学习，天天向上。做一个有用的人，改良当前网络NC多的印象。
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁急求vb彩票摇奖怎么做？？？_百度知道
急求vb彩票摇奖怎么做？？？
提问者采纳
用随机涵数生成就可以了。
能不能帮忙做下呀！！！ 具体的题是这样的：编写一个简易的30选5彩票摇奖程序。功能要求；用户可以输入5个不同的整数或者通过机选按钮自动生成5个互不相同的随机数，单击摇奖按钮，生成中奖号码并对用户输入或者机选的彩票数字进行评奖，如果用户选对一个数字，获5等奖，选对两个数字获4等奖..............
0分，没有空帮你写。可以提供思路给你，一个是INT(RND*30+1),生成1至30的随机数。一个注意的就是生成不相同的随机数方法，最好用数组，随机后，把数组排列号换出来。A（30），X=INT(RND*(30-N)+1)，A（X）=A(30-N)。
提问者评价
谢谢你!!!1
其他类似问题
彩票的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁急求程序：用vb编写一个30选5的彩票摇奖程序。_百度知道
急求程序：用vb编写一个30选5的彩票摇奖程序。
要求：输入5个不同的整数或通过机选生成5个不同的随机数然后按摇奖按钮输出中奖号码再对用户进行中奖评价，选对一个数为五等奖，选对两个得四等奖……
　　手动输入数字太慢了，按按钮多好，新建一个command1(29)组，3个按钮　　这样也好测试　　Option Explicit　　Private x(6) As Integer, m As Integer, n As Integer　　Dim i As Integer　　Private Sub Command1_Click(Index As Integer)　　Picture1.SetFocus　　Command1(Index).Enabled = False　　n = n + 1　　If n = 5 Then　　Command2.Enabled = True　　For i = 0 To 29　　If Command1(i).Enabled = True Then Command1(i).Visible = False　　Next　　End If　　End Sub　　Private Sub Command2_Click()　　Picture1.Cls　　Picture1.Print &中奖号码：&　　m = 0: n = 0　　For i = 1 To 5　　Do　　x(i) = 1 + Int(30 * Rnd)　　Loop While x(i) = x(i - 1)　　Picture1.Print x(i);　　If Command1(x(i) - 1).Enabled = False Then m = m + 1　　Next　　Picture1.Print　　Picture1.Print　　If m & 0 Then Picture1.Print &恭喜您中了& & 6 - m & &等奖&　　End Sub　　Private Sub Command3_Click()　　Picture1.Cls　　n = 0　　For i = 0 To 29　　Command1(i).Enabled = True　　Command1(i).Visible = True　　Next　　Command2.Enabled = False　　End Sub　　Private Sub Form_Load()　　End Sub
采纳率100%
其他类似问题
彩票的相关知识
按默认排序
其他1条回答
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁彩票在摇奖过程中，能作假吗？_百度知道
彩票在摇奖过程中，能作假吗？
自己不中奖
就怀疑有作假
其实没意义啊···国家发行彩票现在一年卖一千几百亿，只有一半拿来返奖~国家和彩票中心收入很丰厚了还值得拿几个500万出来作假玩么人多嘴杂，如果总在作假早就被抓出来了·······如有帮助还望采纳答案哈
其他类似问题
彩票的相关知识
其他2条回答
必须的要不为什么每次都是最少的
当然可以了，几百万买的那个机器，想出什么数字就出什么数字，就跟麻将机似的，想中大奖，做梦！！！！
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁七乐彩彩票是怎样摇奖的？摇奖时间、地点在哪？有现场直播吗？_百度知道
七乐彩彩票是怎样摇奖的？摇奖时间、地点在哪？有现场直播吗？
提问者采纳
中国福利彩票发行中心(北京)每周一三五21:30中国教育电视台一套现场直播
其他类似问题
七乐彩的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 北京汽车摇号 的文章

 

随机推荐