想进行微信小程序开发发制作，怎么选择呢？

来源：蜘蛛抓取(WebSpider) 时间：2017-05-03 14:09 标签： 微信小程序开发
查看: 449|回复: 2
想做个机选双色球的小程序
阅读权限20
在线时间 小时
本帖最后由 d5681794 于
15:07 编辑
普通的随机我会的。
我的思路是这样的。
从1-33的范围里机选33个数。然后看这33个数的重复个数。设一个阀值，比如说在b1输入5，代表这33个数里重复5次或大于5次的数值，作为一个红球，如果这33个数里没有重复大于阀值的，重新机选33个数，直到出现。
然后重复上一行的步骤直到选出6个红球。如果6个里有重复的，就再重复上面步骤。
蓝球也是从1-16的范围里机选16个数，设阀值。蓝球选出一个即可。
最终在表里a1:a7输出这注选号。
我做了红球的。但通不过。
有没有大神帮改改，或优化一下。
Dim i, j, k, l, m, n, o, p, q, r, s, t
Dim ara(33), arb(33), arc(6), ard(6) As Integer
i = Sheets(1).Range(&f6&)
startchoose1: For j = 1 To 6
startchoose2: For k = 1 To 33
l = Application.WorksheetFunction.RandBetween(1, 33)
ara(k - 1) = l
For m = 1 To 33
n = Application.WorksheetFunction.CountIf(ara, ara(m - 1))
arb(m - 1) = n
o = Application.WorksheetFunction.Max(arb)
If p - i &= 0 Then
& &For q = 1 To 33
& && &If arb(q - 1) = p And j - 6 & 0 Then
& && && &&&arc(j - 1) = ara(q - 1)
& && && &&&Exit For
& && && &Next q
& && &&&Next j
& && &End If
& && &If arb(q - 1) = p And j = 6 Then
& && && &&&arc(j - 1) = ara(q - 1)
& && && &&&Exit For
& && && &Next q
& && && &Exit For
& & GoTo shartchoose2
For r = 1 To 6
&&s = Application.WorksheetFunction.CountIf(arc, arc(r - 1))
ard(r - 1) = s
t = Application.WorksheetFunction.Max(ard)
If t - 1 & 0 Then GoTo shartchoose1 Else Sheets(1).Range(&i1:i6&) = arc
阅读权限95
在线时间 小时
本来代码可以给你写写的，但是，论坛好像有规定说不准讨论盗版，不准利用VBA研究彩票，所以我也只能爱莫能助了
阅读权限90
在线时间 小时
本来代码可以给你写写的，但是，论坛好像有规定说不准讨论盗版，不准利用VBA研究彩票，所以我也只能爱莫能 ...
确定有说不准？
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 微信小程序开发 的文章

 

随机推荐