VB福利彩票抽奖开发案例

一、游戏规则介绍

福利彩票双色球中奖规则：

双色球投注区分为红色球号码区和蓝色球号码区，红色球号码区由1-33共三十三个号码组成，蓝色球号码区由1-16共十六个号码组成。投注时选择6个红色球号码和1个蓝色球号码组成一注进行单式投注，每注金额人民币2元。

案例效果图

二、随机数复习

随机数种子： Randomize

默认把什么作为随机数种子？

默认把系统时间作为随机数

因为系统时间每分每秒都在变化，意味着随机数种子也会不同，就增大了随机数不同的概率。

表示随机数的系统关键字：rnd

rnd的范围： 0<=rnd<1

[0,10)之间的实数  0<=rnd*10<10

[1,10)之间的实数  1<=rnd*9+1<10

[0,33]之间的整数  int(rnd*34)

[1,33]之间的整数  int(rnd*33)+1

三、设置字体

用font开头的代码都是跟字体有关的

设置窗体的autoredraw就可以解决刷新问题，使得print出来的字不会消失。

四、相关链接符号的作用

& 用来连接字符串(string)

; 用来把下一行的Print输出到同一行

五、程序开发界面和源码

界面控件

需要配置：

1）时钟控件的时间间隔属性interval（单位毫秒）为1

2）通过修改时钟控件的enable属性控制是否启用时钟控件

3）Command1是停止按钮 ；Command2是开始按钮

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Cls
Show
Randomize
FontSize = 30 '设置字体大小
ForeColor = vbRed '设置字体为绿色
CurrentX = 200 '设置水平方向上打印的距离
CurrentY = 1200 '设置垂直方向上打印的距离
Print Int(Rnd * 33) + 1 & "," & Int(Rnd * 33) + 1&; "," & Int(Rnd * 33) + 1&; "," & Int(Rnd * 33) + 1&; "," & Int(Rnd * 33) + 1&; "," & Int(Rnd * 33) + 1;
ForeColor = vbBlue '设置字体为蓝色
Print "," & Int(Rnd * 16) + 1
End Sub