双色球随机选号器源码

wohenxiangaita

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

复制代码