【VB开源代码栏目提醒】：本文主要为网学会员提供“用VB编写抽奖程序 - 软件工程”，希望对需要用VB编写抽奖程序 - 软件工程网友有所帮助，学习一下!

用VB编写抽奖程序 一、界面设计 新建一个标准的EXE工程。

    在Form1窗体中放置一个定时器Timer1、两个文本框Label1Label2、两个命令按钮Command1Command2和包含7个元素的控件数组Label30—Label36。

     二、属性设置 Label3控件数组中的所有元素皆采用相同设置。

     三、代码编写 本程序的实现原理是当用户单击“开始”按钮时打开定时器利用定时器控件同时产生两个随机数sj1、sj2sj1的范围是132sj2的范围是049。

    当sj124的时侯用sj2与前面产生的中奖号码作比较若与前面的中奖相同则退出本过程若与前面的中奖号码不同则将此随机数作为中奖号码。

    当产生了7个中奖号码时关闭定时器控件停止产生随机数。

     本程序用到的函数简介 1Randomize初始化随机数的种子数。

     2Int返回一个非整形数字取整后的整数。

     3Rnd产生一个01之间的随机数大于等于0但小于1。

     4Qbcolor返回参数015对应的颜色。

     5Val将一个字符形变量转化为一个数值型变量。

     6Format格式化一个表达式。

     四、运行 单击工具栏上的“启动”按钮启动抽奖程序。

    单击“开始”按钮Label1控件将用五彩缤纷的颜色快速显示132之间的数字并在Label3控件数组中产生一组7个数字的中奖号码。

    再次单击“开始”按钮程序将自动清除Label3控件数组中的内容并重新产生一组7个数字的中奖号码与前面的不相同。

     以下是程序的完整代码 Dim sy As Integer ′命令按钮1的单击事件 Private Sub Command1_Click ′清除Label3控件数组的内容 For i0 To 6 Label3i.Caption〃〃 Next Timer1.EnabledTrue′打开定时器 Command1.EnabledFalse′使开始按钮失效 sy1′索引值初始化为1 End Sub ′命令按钮2的单击事件 Private Sub Command2_Click Unload Me ′卸载本窗体 End Sub ′定时器1的定时事件 Private Sub Timer1_Timer Dim sj1sj2ys As Integer Randomize′初始化随机数 sj1IntRnd321 sj2IntRnd50 Label1.Captionsj1′设置标签1的内容 ysIntRnd69 Label1.ForeColorQBColorys If sj224 Then′如果sj2等于24 sysy1′索引值加1 For ao To sy If sj1ValLabel3a.Caption Then sysy 1 Exit Sub End If Next Label3sy.CaptionFormatsj1 〃00〃 Label3sy.ForeColorQBColorys End If If sy6 Then′如果索引值等于6 Timer1.EnabledFalse ′关闭定时器 Command1.EnabledTrue ′使命令按钮有效即可重新开始抽奖 End If End Sub