谁知道抽奖软件？求数字滚动的抽奖软件！在线等，谢谢~

1、微博抽奖

微博上的话，直接用微博自带的抽奖工具就可以。

点击抽奖中心，选择一条微博抽奖，点开就是下面的界面了。

不得不说微博的抽奖平台做的还是相对比较全面的，不过流程较为复杂，很多功能需要付费使用，这点是硬伤。

2、企微云

这个平台相对微博而言，抽奖元素所占的比例更大。画面感要强烈的多，甚至还有3D效果。

抽奖流程也比较有动感效果

综合而言，可玩性以及观赏性都较好，缺陷就是，抽奖的人都需要他人拉进去，而且平台需要付费使用。

3、星礼说

星礼说是款抽奖类小程序，界面相对比较简洁清爽。首页能直接看到他人发布的抽奖活动，能直接点进去参与，流程较为简单。

发布抽奖的同时，平台还会每天更新免费的礼物供抽取，只需要小手点一点就有机会获得各种大牌的免费礼物！

开奖后系统会直接通过服务通知发送在微信通知中，如果成功中奖，可以直接填写收货信息，等待礼物的到来啦。

此外，自己也可以发布奖品，做活动，为自己公众号或平台号引流。而发布活动也有两种模式：普通模式和疯狂模式。

疯狂模式与普通模式的区别在于，疯狂模式可以设置多个奖项，根据所达成的任务来发布相应奖品。

在下方还能添加自己账号的一些简介，以此引流

三款产品各有优劣，怎么选择就看你们自己的需求了。

提供一个思路给你，你可以把抽奖号添加到一组数列里，一般使用数据库存储，并且自动编排号码。

使用随机数random函数随机1-你的号码数量，获得这个号码的排位数，即为获奖号码。

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 If

End Sub

Private Sub Command1_Click()

a = CStr(Text1)

Text2 = 10 ^ (Len(a) - 1) + Int(Rnd * 0.9 * 10 ^ Len(a))

End Sub

---