用VB做一个模拟体彩36选7的小程序（会有追加分）

Dim a(6) As Integer '声明数组

Function JC(n As Integer) As Double

'求阶乘

JC = 1

For i = 1 To n

JC = JC * i

Next

End Function

Sub S36_7()

'选号

On Error Resume Next

For i = 0 To 6

Line1:

a(i) = Fix(Rnd * 36) + 1

For j = 0 To i - 1

If a(i) = a(j) Then

GoTo Line1

End If

Next

Next

End Sub

Sub PrintNum()

'输出

For i = 0 To 6

Print a(i)

Next

Print

End Sub

Private Sub Command1_Click()

'调用

Call S36_7

Call PrintNum

End Sub

Private Sub Command2_Click()

'输出

Print "获奖概率"JC(36) / JC(7) / JC(36 - 7)

End Sub

大梦想程序商店

帮你发现更多好用、好玩小程序

来自专栏优质小程序推荐

推荐10款阅读资讯类的小程序，想体验的朋友可以在微信小程序直接搜索小程序名称。分享不易，觉得有用的话记得点个赞再走。

1.知乎热榜

知乎官方出品的小程序，不用打开App，在微信里就能快速了解今日热点。数据于App同步。

2.热门微博

微博官方出品的小程序，很多朋友平时不用微博，有了这个小程序就可以在微信里随时关注热点实事、幽默搞笑段子，帮你吃到最新鲜的瓜。

3.轻芒

【轻芒杂志】是一个高品质在线杂志，涵盖家居、饮食到旅游、咖啡、猫等等，在这里订阅你感兴趣的任何东西。

4.Readhub

【Readhub】是一款科技新闻小程序，每天只需要花3分钟就能速览互联网行业资讯、创业动态、融资信息发布、大公司新闻等。

5.一周进步

【一周进步】小程序定期分享效率工具使用技能、职场软件、技能提升产品等种类繁多的高品质内容，帮助年轻人培养兴趣，更好地应对职场生活。

分享的内容进行了系统且清晰的分类，整体结构包括：首页、素材、神器、专栏，希望成为学习者的工具库。

6.36氪Lite

36氪官方出品的小程序，为用户提供36氪平台的资讯以及36氪举办的活动的购票功能。

7.豆瓣评分

豆瓣评分官方出品的小程序，提供电影查询与评分公示，抛弃其他多余的功能，专注做一个电影评分展示工具。

8.汽车之家

【汽车之家】是一款专业的汽车资讯小程序，提供选车、买车、用车、换车所有环节的全面、准确。快捷的一站式资讯服务。

9.人民日报

人民日报官方出品的小程序，帮你快速了解实事新闻，附带评论功能。在小程序里也能轻松发表你的看法。

10.西方媒体查一查

在【西方媒体查一查】小程序粘贴你在看的国外新闻链接，可以帮你迅速了解西方媒体的倾向性和可信度。

【其他类型小程序推荐】

大梦想程序商店：有哪些微信小程序值得推荐？ | 建议收藏

大梦想程序商店：有哪些鲜为人知但非常实用的小程序推荐?

大梦想程序商店：有哪些堪称神器的小程序值得推荐？ | 好用想哭

大梦想程序商店：有哪些微信小游戏值得推荐？

大梦想程序商店：公众号运营必备的10款小程序

大梦想程序商店：有哪些工具类小程序值得推荐？

大梦想程序商店：有哪些资讯类小程序值得推荐？

大梦想程序商店：有哪些政务类小程序值得推荐？

大梦想程序商店：有哪些医疗类小程序值得推荐？

大梦想程序商店：有哪些社交类小程序值得推荐？

大梦想程序商店：十款大大提高工作效率的小程序

设置单人参与次数。

1、在小程序搜索结果中直接进入抽签助手小程序。

2、点击创建抽签按钮，无需注册，直接可以开始创建自己的抽签活动。

3、进入创建抽签界面，在基本信息里，输入抽签活动主题和相关描述，也可以配置相关图片。

4、在高级设置页面，可设定截止日期以及更多定制化内容，单人参与次数、个人信息填写、抽签结果查看权限等。

5、点击确定按钮，即可完成活动创建。

---