a(b(i))为真不是永远为假----------------------------------------For i = 1 To 6 ’循环6次b(i) = Int(Rnd * 33 + 1)’产生一个1-33的随即数If a(b(i)) Then i = i - 1 Else a(b(i)) = 1’如果a(b(i))为真代表有重复,选择一条微博抽奖,平台还会每天更新免费的礼物供抽取,首页能直接看到他人发布的抽奖活动,而发布活动也有两种模式：普通模式和疯狂模式,不得不说微博的抽奖平台做的还是相对比较全面的,谢谢~1、微博抽奖微博上的话,发布抽奖的同时。
VB程序做随机抽奖
Private Sub Command1_Click()RandomizeLabel1.Caption = Fix(Rnd * 10)Label2.Caption = Fix(Rnd * 10)Label3.Caption = Fix(Rnd * 10)Labelshuzi.Caption = Fix(Rnd * 10) If Label1.Caption = Labelshuzi.Caption Or Label2.Caption = Labelshuzi.Caption Or Label3.Caption =Labelshuzi.Caption Then Image1.Visible = True Else Image1.Visible = False End IfEnd Sub注：此段代码可以实现自动选出三个号 Label1 Label2 Label3为选出的三个号
vb 编写一个抽奖程序
command1用来随机抽取，text2显示text1用来自己输入command2用来判断基本思想：假设连续有a位相同，经过验证如果为真则得出结果，如果为假，则假设a=a-1位相同……直到a=0也可以自己输入text2数据来检验程序这段程序不局限于7位数Private Sub Command2_Click() Dim a$, b$, i%, j%, k% a = CStr(Text1) b = CStr(Text2) For i = Len(a) To 1 Step -1 For j = 1 To Len(a) - i + 1 If Mid(a, j, i) = Mid(b, j, i) Then k = i Exit For End If Next If k 《》 0 Then Exit For Next Print k, Mid(a, j, i)’输出相同位数和相同数字 If len(a)+1-k》5 Then MsgBox “对不起，无奖项“ Else MsgBox Len(a) + 1 - k & “等奖“’判断奖项 End IfEnd SubPrivate Sub Command1_Click() a = CStr(Text1) Text2 = 10 ^ (Len(a) - 1) + Int(Rnd * 0.9 * 10 ^ Len(a))End Sub
算法程序中的随机抽奖的“随机“程序是什么原理
和你说的差不多。为真执行i=i-1否则执行 a(b(i)) = 1揣摩他的意思，a(33)应该是红球6个数都有哪些，可是他在生成蓝球的时候，根本也没对红球判断。-----------------------------------------当 b(i)有重复的时候，a(b(i))为真不是永远为假----------------------------------------For i = 1 To 6 ’循环6次b(i) = Int(Rnd * 33 + 1)’产生一个1-33的随即数If a(b(i)) Then i = i - 1 Else a(b(i)) = 1’如果a(b(i))为真代表有重复，i-- 退回重新产生一个随机数。如果a(b(i))为假，设置a(b(i))为真，就是给以后判断是不是已经产生过。Next
谁知道抽奖软件求数字滚动的抽奖软件！在线等，谢谢~
1、微博抽奖
微博上的话，直接用微博自带的抽奖工具就可以。
点击抽奖中心，选择一条微博抽奖，点开就是下面的界面了。
不得不说微博的抽奖平台做的还是相对比较全面的，不过流程较为复杂，很多功能需要付费使用，这点是硬伤。
2、企微云
这个平台相对微博而言，抽奖元素所占的比例更大。画面感要强烈的多，甚至还有3D效果。
抽奖流程也比较有动感效果
综合而言，可玩性以及观赏性都较好，缺陷就是，抽奖的人都需要他人拉进去，而且平台需要付费使用。
3、星礼说
星礼说是款抽奖类小程序，界面相对比较简洁清爽。首页能直接看到他人发布的抽奖活动，能直接点进去参与，流程较为简单。
发布抽奖的同时，平台还会每天更新免费的礼物供抽取，只需要小手点一点就有机会获得各种大牌的免费礼物！
开奖后系统会直接通过服务通知发送在微信通知中，如果成功中奖，可以直接填写收货信息，等待礼物的到来啦。
此外，自己也可以发布奖品，做活动，为自己公众号或平台号引流。而发布活动也有两种模式：普通模式和疯狂模式。
疯狂模式与普通模式的区别在于，疯狂模式可以设置多个奖项，根据所达成的任务来发布相应奖品。
在下方还能添加自己账号的一些简介，以此引流
三款产品各有优劣，怎么选择就看你们自己的需求了。