彩票是指：国家特定发行的，印有号码、图形或文字，供人们自愿购买并按照特定规则获取中奖权力的书面凭证。

彩票不计名，不挂失，不返回本金，不计付利息，不能流通使用。

VB开发彩票软件

彩票软件实现原理：

综合应用VB控制结构、选择语句、循环结构、控件数组、过程及各种控件综合开发而成。

本程序实现代码如下，代码较长，有不明白的地方可以直接添加小编微信号交流。

❤

实现代码

Dim start As Boolean

Dim manu  As Boolean

Dim auto  As Boolean

Dim base  As Integer

Dim sTime As Single

Dim sDiff As Single

---

Private Sub cmdAuto_Click()

cmdAuto.Enabled = False

auto = True

For i = 0 To 4

If Not auto Then

Exit For

End If

option1(i) = True

sTime = Timer

sDiff = Rnd * 0.5 + 0.2

cmdStart_Click

Next

auto = False

start = False

cmdStart.Enabled = True

cmdAuto.Enabled = True

cmdStop.Enabled = False

cmdStart.SetFocus

option1(0) = True

End Sub

---

Private Sub cmdEnd_Click()

manu = False

start = False

auto = False

Unload Me

frmLoad.Show

End Sub

---

Private Sub cmdStart_Click()

Dim i As Integer

For i = 0 To 4

If option1(i).Value Then

Exit For

End If

Next

base = i * 7

cmdStop.Enabled = True

cmdStart.Enabled = False

cmdAuto.Enabled = False

cmdStop.SetFocus

start = True

Do While start

Randomize Timer

i = Rnd() * 6

lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))

DoEvents

If auto Then

If Timer - sTime > sDiff Then

Exit Do

End If

End If

Loop

End Sub

---

Private Sub cmdStop_Click()

cmdStop.Enabled = False

i = 0

Do While True

lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))

i = i + 1

If i = 7 Then

Exit Do

End If

p = Rnd / 5

N = Timer

Do While Timer - N < p

Randomize Timer

r = Rnd() * (6 - i) + i

lblNum(r + base).Caption = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))

DoEvents

Loop

Loop

start = False

cmdStart.Enabled = True

cmdAuto.Enabled = True

cmdStart.SetFocus

End Sub

---

Private Sub Form_Load()

cmdStop.Enabled = False

For i = 0 To 34

lblNum(i).Caption = ""

Next

End Sub

Private Sub lblNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim r As Integer

If (Not start) And (Not auto) Then

r = Index Mod 7

manu = True

Do While manu

lblNum(Index) = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))

DoEvents

Loop

End If

End Sub

---

Private Sub lblNum_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

manu = False

End Sub

程序运行如下

今天的内容就是这些，更多VB编程精彩内容，尽在跟我学VB！

VB视频

1、关注公众号即可获得基础学习资料一份；

2、VB从入门到精通视频讲解资料月底优惠发放中。

大家对本期的讲解有疑问以及在学习过程中有问题，可以添加老师微信号，耐心提供在线解答。

---

---

长按上图，关注跟我学VB公众平台