VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 3624|回复: 2

彩票35选7机选软件

[复制链接]
 楼主| 发表于 2012-5-30 16:19:03 | 显示全部楼层 |阅读模式
彩票35选7机选软件,很灵验呀
有没有人有兴趣帮我完善一下呀。
Public e As Integer

Private Sub Command1_Click()
Dim d(7) As Integer
Dim i As Integer, m As Integer, n As Integer, l As Integer, a As Integer, b As Integer, c As Integer
e = e + 1
m = 1
l = 1
Randomize Timer
For i = 1 To 7
Do
d(i) = Int((35 - 1 + 1) * Rnd + 1)
l = i
MM:
l = l - 1
Loop While d(i) = d(l)
If l > 0 Then GoTo MM
Next i
c = 7
For a = 1 To c - 1
For b = a + 1 To c
If d(a) > d(b) Then
temp = d(a): d(a) = d(b): d(b) = temp
End If
Next b
Next a
Print "第" & e & "组"
Print ""
For i = 1 To 7
Print Tab((m - 1) * 5 + 3); d(i);
m = m + 1
n = n + 1
If n Mod 7 = 0 Then
Print Chr(13)
Print "____________________________________"
m = 1
End If
Next i
End Sub

Private Sub Command2_Click()
Cls
e = 0
End Sub
发表于 2012-7-24 17:16:25 | 显示全部楼层
能不能做双色球全双红球机选程序啊
回复 支持 反对

使用道具 举报

发表于 2012-7-28 09:27:07 | 显示全部楼层
本帖最后由 luoxibin 于 2012-7-28 09:30 编辑
  1. ‘我把楼主的代码改成了双色球:

  2. Public e As Integer

  3. Private Sub Command1_Click()
  4. Dim d(7) As Integer
  5. Dim i As Integer, m As Integer, n As Integer, l As Integer, a As Integer, b As Integer, c As Integer
  6. e = e + 1
  7. m = 1
  8. l = 1
  9. Randomize Timer
  10. For i = 1 To 7
  11. Do
  12. d(i) = Int((34 - 1 + 1) * Rnd + 1)
  13. l = i
  14. MM:
  15. l = l - 1
  16. Loop While d(i) = d(l)
  17. If l > 0 Then GoTo MM
  18. Next i
  19. c = 7
  20. For a = 1 To c - 1
  21. For b = a + 1 To c
  22. If d(a) > d(b) Then
  23. temp = d(a): d(a) = d(b): d(b) = temp
  24. End If
  25. Next b
  26. Next a


  27. For i = 1 To 6
  28. Print Tab((m - 1) * 5 + 3); d(i);
  29. m = m + 1
  30. n = n + 1
  31. If n Mod 7 = 0 Then

  32. Print Chr(13)
  33. Print "____________________________________"
  34. m = 1
  35. End If
  36. Next i
  37. Print "第" & e & "组" & "兰球" & Int((16 - 1 + 1) * Rnd + 1)
  38. End Sub

  39. Private Sub Command2_Click()
  40. Cls
  41. e = 0
  42. End Sub
复制代码
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-7-3 18:37

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表