摇奖程序中的next i位置问题

显示全部楼层 · 2009-7-14 09:02:44

说说我以前写着玩的一个摇奖程序的思路，希望能互相探讨。首先算出所有的组合数M，不是排列，是组合，这样一是比较少，二是不用再排列大小。然后用随机数生成一个1到M之间的一个数。然后有几个数就写出几层FOR循环，第一层循环i1从1开始，第二层循环i2从i1开始，后面以此类推。最里面一层循环中，用一个数N从1开始，每循环一次N+1，如果N=M，那么就把各循环数i1、i2等输出就可以了，大小也排好了，绝不会有重复。我记得用这个方法编出来的30选7，还有33选7，用Long型变量就可以处理，如果要出现幸运号的话，就选8，然后再随机出一个1到8之间的数字，随机到几，第几个数就是幸运数，很简单。如果变量用Long溢出，可以用Double型的。

千问 · 2009-7-14 09:02:44

修改下Text1.Text = Text1.Text & CStr(j)