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

用VB做一个模拟体彩36选7的小程序(会有追加分),第1张

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、点击确定按钮,即可完成活动创建。


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/11055721.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-13
下一篇 2023-05-13

发表评论

登录后才能评论

评论列表(0条)

保存