VB 彩票投注问题

来源：百度知道 编辑：UC知道 时间：2024/07/02 07:46:37
一个彩票投注的VB题目,要求：在最上面的2个TEXT中可以选择投注数和奖号长度，其中奖号长度用复选框更好。单击PUSHBUTTON（PUSHBUTTON上有图片更好）按钮后可以将随机出来的多个数显示在一个LISTBOX中，并且不可出现重复数字，“1”必须用“00001”类似的形式表示。
请大家帮忙，谢谢了！

不是很清楚你的意思，大概做了一个，你试着用用吧。一个TEXT输入投注数，一个Combo1用于选择奖号长度，至于按钮，呵，你可以用图形控件做个漂亮的。如果奖号长度固定，可以简化程序，我这个任意位数都可以。

Dim a() As Long
Dim b() As String

Private Sub Form_Load()

'这里设置奖号的各种长度
Combo1.AddItem 5
Combo1.AddItem 10
Combo1.AddItem 20
Combo1.ListIndex = 0
End Sub

Private Sub Command1_Click()
Dim i, j, n, m, l As Integer
Dim k As Long
Dim s As String
Dim t As Boolean

n = Val(Text1.Text)
If n <= 0 Then Exit Sub
List1.Clear
ReDim a(n)
ReDim b(n)
m = Val(Combo1.List(Combo1.ListIndex))
l = m Mod 7
m = m \ 7
k = 1
For i = 1 To l
k = k * 10
Next

For i = 1 To n
b(i) = ""
Next

i = 0
Do While i < n

Randomize
Text1.Text = m
For j = 1 To m
a(i) = Int(Rnd() * 10000000) '产生0到9999999的数 7位
s = Trim(Str(a(i)))