caipiao.txt

来自「体育彩票选号小软件,可以自动列处处结果！随机选号！好方便！」· 文本 代码 · 共 76 行

'下面的程序是对福利彩票２２选５的投注模拟，在程序上增加产生了不重复数，及排序的功能．窗体上有两个命令按钮，一个文本框控件：

Private Sub Command1_Click()

Dim a(1 To 7) As Integer, i As Integer, str1 As String, j As Integer, n As Integer

For i = 1 To 7 '初始化数组及随机化种子

a(i) = 0

Next i

Randomize

a(1) = Fix(1 + 36 * Rnd) '产生7个不重复的数(1-36)

j = 1

Do

n = Fix(1 + 36 * Rnd)

For i = 1 To j

If n = a(i) Then

Exit For

ElseIf i = j Then

a(i + 1) = n

j = j + 1

End If

Next i

Loop While j < 7

For i = 2 To 7 '对生成的5个数进行从小到大排序

For j = 7 To i Step -1

If a(j) < a(j - 1) Then

n = a(j)

a(j) = a(j - 1)

a(j - 1) = n

End If

Next j

Next i

str1 = a(1) & " " & a(2) & " " & a(3) & " " & a(4) & " " & a(5) & " " & a(6) & " " & a(7) & " "

Text1.Text = CStr(str1)
Label3.Visible = True

End Sub

Private Sub Command2_Click()
MsgBox "欢迎交流使用，QQ：153720622"
End

End Sub

Private Sub Form_Load()

End Sub