用VB编写接近实际的抽奖程序 近来彩票风行全国。笔者设计了一个颇有味道的彩票程序，希望能助您中奖。本程序以“江苏风采福利彩票”(36选7)为例。 由于福利彩票是从36个球中选出7个球,有一些资料上介绍是用随机函数产生一个数,为了避产生重复的数故而进行比较，重复时舍弃重选。或者做7个变量使它们不同。本程序的特点是接近实际，将ListBox作为数据容器,每产生一个数将其移去(RemoveItem方法)。产生的数都放在数组中，最后再排序。 一、窗体设计 在窗体中放置两个命令按钮(CmdRnd,CmdExit)；包含5个元素的控件数(text1(0)～text1(4))；一个组合框控件List1，将其Visible属性设置为False。
二、源程序
声明
Private Const AllData = 36 ’总数为36
Private Const Choose = 7 ’要选出的数为7个
Dim Num(Choose - 1) As Byte ’数组用来存放选出的数
Private Sub CmdRnd_Click() ’产生随机数
Dim i, j, RndData
For j = 0 To 4 ’产生5组数据
For i = 1 To AllData
List1.AddItem i
Next i
For i = 0 To Choose - 1
Randomize ’初始化随机数的种子数
RndData = Int(((AllData - i) * Rnd) + 1)
Num(i) = List1.List(RndData - 1)
List1.RemoveItem (RndData - 1)
Next i
PopSort ’调用冒泡排序
Text1(j) = " "
For i = 0 To Choose - 1
If Num(i) < 10 Then
Text1(j) = Text1(j) & "0" & Num(i) & " " ’小于10的数在前面补“0”
Else
Text1(j) = Text1(j) & Num(i) & " "
End If
Next i
List1.Clear ’清除总数容器
Next j
End Sub
Sub PopSort() ’冒泡排序
Dim i, j, Temp As Byte
For i = Choose - 1 To 1 Step -1
For j = Choose - 1 To 1 Step -1
If i >= Choose - 1 - j Then
If Num(j) < Num(j - 1) Then
Temp = Num(j - 1)
Num(j - 1) = Num(j)
Num(j) = Temp
End If
End If
Next j
Next i
End Sub
Private Sub CmdExit_Click() ’退出程序
Unload Me
End
End Sub
注：可以用ComboBox控件代替ListBox控件,只须将程序中的ListBox控件（list1）改为ComboBox控件（combo1）即可。
（王建华）