近年来,娱乐节目中常用电脑抽奖,我对此产生兴趣,于是用VB编写了一个小程序实现此功能,其原理如下:
1、 源代码与注释已提供。
2、 窗体的原始代码文件

3、 命中注定的数

4、 按下停止按钮

5、 启程前往新旅程

6、 恭喜你,中奖了!请查收你的奖项:m_strNameArray(m_nNameIndex).strName。
7、 感谢您使用本软件,对此我们深表谢意。

8、 否则,按下开始按钮。
9、 开始停止按钮的标题应设置为停止。
10、 设定开始的秒数
11、 将滚动字步长设定为5,可调整数值以改变滚动速度。
12、 设置标题的移动范围
13、 将默认的开始滚动方向设置为向左。
14、 将选定的数字初始化为0。
15、 初始化程序界面设置
