vb编写彩票选号器的问题，请高手进来

Question

如上图：1。已知一个存有过去已开奖号码的文本文件123.txt（按落球序），将其导入text1(或列表框）。2。已知1至36个数被分组,如"A组"和"B组"3.  在已开奖的号码中分析:A. 按从1-7个号码中(落序)的顺序如果有连续3期增大(减小)的,则本期将从1-36中排除,再将余下的号放入同位置的text5()k中，例：02，32，14，16，33，21，1832，12，31，27，13，21，2311，07，34，22，23，21，19将第二个小于7的号从1-36中排除，余下的放入第二text5(1）中，将第三个大于34的从1-36中排除，余下的放入text5(2)中。B。将连开三期的号排除，如上，第六个号21本期排除，余下的放入text5(5)中C。将连续三期尾数相同的，本期同位排除此尾数，如上，第五个连续三期“3”尾，则从1-36中排除“3”尾的，余下放入text5(4)中D。假设上三期中第7个号码都是同一“A”组，则本期第7个号将从1-36中排除“A”组中所有的号，将余下的放入text5(6)中。。。。然后将text5()控件组进行整理。每个框中去掉重复的数（重复的只留下一个）再将7个text5()里面的数进行组合成7个数为一组的号：(直到最多数的text()分别与其它组合完为止） A=text5(0)+text5(1)+text5(2)+text5(3)+text5(4)+text5(5)+text5(6)排除7个数中有重复号的，排除从1到7个数中顺序两个以上的姐妹号：如，01，02，03，21，13，20，04中前三个为顺序中的姐妹号，则排除此组号。将A导入列表框1，再大小序后导入2保存，读取。 问题有点多，也比较复杂，我将所有的分抛出找真正的高手。请用原代码并解说，谢谢各位！本人邮箱[email protected] 

Answer 1

Private Sub Command1_Click()
Dim i, a(34), b(7)
Randomize: Cls
For i = 1 To 7
b(i) = Int(Rnd * 34 + 1)
If a(b(i)) Then i = i - 1 Else a(b(i)) = 1
Next
Print "34 选 7组 福利彩票系统,中奖号码:"
For i = 1 To 7
Print b(i)
Next
End Sub

请不要发违规广告，是违法行为

Answer 2

我也自行编写了一个双色球彩票选号程序，其中包括了对历期数据的统计分析与最终涮选号码，虽然目前还不能实行完全自动化，也没中过大奖，但小奖不断，也就是说中奖概率的确比以前提高了，而且大大减少了工作量。 以我的经验看，用Excel中的VB编程是比较简单易行的，比较适用于VB初学者。

Answer 3

Private Sub command1_Click()
N = -1
For i = 0 To 4
N = N + 1
If option1(i).Value = True Then Exit For
End If
Next i
Dim a(1 To 7) As Integer
For i = 0 To N
For j = 1 To 7
Randomizea(j) = Int(Rnd * 35 + 1)'随机生成号码
Next j
For k = 1 To 7
For m = k + 1 To 7
If a(k) = a(m) Then v = Int(Rnd * 35 + 1)
Do While v = a(1) Or v = a(2) Or v = a(3) Or v = a(4) Or v = a(5) Or v = a(6) Or v = a(7)
v = Int(Rnd * 35 + 1)
Loop 
a(k) = v'发现重复的号码，重新生成
End If
Next m
Next k
For k = 1 To 7
For m = k + 1 To 7
If a(k) > a(m) Then
X = a(k)
a(k) = a(m)
a(m) = X
End If
Next m
Next k
Text1(i) = Format(a(1), "00")
Text2(i) = Format(a(2), "00")
Text3(i) = Format(a(3), "00")
Text4(i) = Format(a(4), "00")
Text5(i) = Format(a(5), "00")
Text6(i) = Format(a(6), "00")
Text7(i) = Format(a(7), "00")
Next i'设置输出格式
End Sub

追答

Answer 4

你也太能了吧，兄弟咱们是同路人呀，我也正在学着用vb写彩票程序，
别用文本，数据库好用多了，便宜又实惠，本回答被提问者采纳

Answer 5

折扣力度相对其他的大，在塯览器中输入括号内连接(xh5、ΡW)即可打开