用 VB 编写抽奖程序教学设计

  新建一个标准的    exe 工程。在 form1  窗体中放置一个定时器
（ timer1 ）、 两 个 文 本 框 （ label1 ， label2 ）、 两 个 命 令 按 钮
（command1 ，command2 ）和包含 7 个元素的控件数组（ label3
（0） label3 （6））
       。
  二、属性设置
  label3 控件数组中的所有元素皆采用相同设置。
  三、代码编写
  本程序的实现原理是：当用户单击       开始 按钮时，打开定时器，
利用定时器控件同时产生两个随机数       sj1 、sj2，sj1 的范围是 1 ～32 ，
sj2 的范围是 0～49 。当 sj1=24 的时侯，用 sj2 与前面产生的中奖号
码作比较，若与前面的中奖相同，则退出本过程；若与前面的中奖号
码不同， 则将此随机数作为中奖号码。 当产生了 7 个中奖号码时， 关
闭定时器控件，停止产生随机数。
  本程序用到的函数简介：
  (1)randomize ：初始化随机数的种子数。
  (2)int （）：返回一个非 ...