VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2975|回复: 0

[转帖] 双色球随机选号器源码

[复制链接]
 楼主| 发表于 2010-9-11 18:41:49 | 显示全部楼层 |阅读模式

  1. Private Sub Command1_Click()
  2. '声明红色球数值
  3. Dim red(6) As Integer
  4. '声明红色球重复校验
  5. Dim redIsRepeat(33) As Boolean
  6. '清空
  7. Text1.Text = ""
  8. Text2.Text = ""
  9. '初始化随机数发生器
  10. Randomize
  11. '随机产生6组不同数值
  12. For i = 1 To 6
  13.     '过滤重复数值
  14.     Do
  15.         red(i) = Int(Rnd * 33 + 1)
  16.     Loop While redIsRepeat(red(i))
  17.     redIsRepeat(red(i)) = True
  18. Next i
  19. '从小到大有序排列
  20. Dim t As Integer
  21. For j = 1 To 5
  22.     For i = 1 To 6 - j
  23.         If red(i) > red(i + 1) Then
  24.             t = red(i + 1)
  25.             red(i + 1) = red(i)
  26.             red(i) = t
  27.         End If
  28.     Next i
  29. Next j
  30. '显示红色球号码
  31. For i = 1 To 6
  32.     Text1.Text = Text1.Text & Format(red(i), "00") & Space(2)
  33. Next i
  34. '去除右边空格
  35. Text1.Text = Trim(Text1.Text)
  36. Dim blue As Integer
  37. '随机产生数值
  38. blue = Int(Rnd * 16 + 1)
  39. '显示蓝色球号码
  40. Text2.Text = Format(blue, "00")
  41. End Sub

  42. Private Sub Form_Load()
  43. '调用按钮事件
  44. Call Command1_Click
  45. End Sub

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

本版积分规则

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

GMT+8, 2022-7-3 01:06

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