YICK BLOG

昊天居

vb编写彩票投注程序

下面这段简单代码用来产生体彩的七星彩,两个命令按钮,一个文本框控件数组:

Private Sub Command1_Click() '产生七位随机数

Dim i As Integer, a(1 To 7) As Integer

For i = 1 To 7

a(i) = 0

Next i

Randomize

For i = 1 To 7

a(i) = Fix(10 * Rnd)

Text1(i - 1).Text = a(i)

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

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

Private Sub Command1_Click()

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

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

a(i) = 0

Next i

Randomize

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

j = 1

Do

n = Fix(1 + 22 * 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 < 5

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

For j = 5 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) & " ;"

Text1.Text = CStr(str1)

End Sub

Private Sub Command2_Click()

End

End Sub

 
阅读更多
个人分类: VB
想对作者说点什么? 我来说一句

HTML+CSS+JS简单彩票统计脚本

2013年10月23日 5KB 下载

一个用VB写的彩票分析源代码

2009年01月03日 357KB 下载

php,彩票源码学习

2016年08月02日 8.69MB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭