婚礼抽奖程序源码 用vb编写抽奖程序

用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（）：返回一个非整形数字取整后的整数。

　　(3)rnd：产生一个0～1之间的随机数（大于等于0，但小于1）。

　　(4)qbcolor（）：返回参数（0～15）对应的颜色。

　　(5)val：将一个字符形变量转化为一个数值型变量。

　　(6)format：格式化一个表达式。

　　以下是程序的完整代码：

　　dim sy as integer

　　′命令按钮1的单击事件

　　private sub command1_click（）

　　′清除label3控件数组的内容

　　for i=0 to 6

　　label3（i）.caption=″″

　　next

　　timer1.enabled=true′打开定时器

　　command1.enabled=false′使开始按钮失效

　　sy=－1′索引值初始化为－1

　　end sub

　　′命令按钮2的单击事件

怎么用vb做一个抽奖程序

只要在窗尘碧锋体中做二个命令按钮、一个标签和一个定时器对象，复制以下代码，就可以运行了：
Private Sub Command1_Click()
If Command1.Caption = "开始"派晌 Then
Command1.Caption = "暂停"
Timer1.Enabled = True
Else
Command1.Caption = "开慧锋始"
Timer1.Enabled = False
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Label1.FontSize = 50
Timer1.Interval = 50
Timer1.Enabled = False
Command1.Caption = "开始"
Command2.Caption = "结束"
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd * 50) + 1
End Sub

一个关于抽奖游戏的VB小程序

第一步，在界面上放三个按钮、一个标签、一个计时器。

第二历轮步，把下面的代码复制过去。
Dim x As Integer, y As Integer

Private Sub Command1_Click()
Do
x = Val(InputBox("请输入你选择的号码（1~10）"))
If x 10 Then
MsgBox "选号范围是1到10，看看你选了什么呀", vbCritical
Else
Exit Do
End If
Loop
Command1.Visible = False
Command2.Visible = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
Command2.Visible = False
Command3.Visible = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Command3.Visible = False
Command4.Visible = True
信息 = "你选的号码是判誉" & x & vbCrLf & "本期中奖号码是" & y
If x = y Then
信息 = 信息 & vbCrLf & "恭喜你，中奖了。"
Else
信息 = 信息 & vbCrLf & "遗憾，你没有中奖。"
End If
MsgBox 信息
End Sub

Private Sub Command4_Click()
复原
End Sub

Private Sub Form_Load()
Command1.Caption = "选号"
Command2.Caption = "开奖"
Command3.Caption = "确定"
Command4.Caption = "重来"
Label1.FontSize = 28
Timer1.Interval = 100
复原
End Sub

Private Sub 复肢冲信原()
Command1.Visible = True
Command2.Visible = False
Command3.Visible = False
Command4.Visible = False
Label1 = ""
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Randomize
y = Int(Rnd * 10 + 1)
Label1 = y
End Sub

第三步，运行。