鬼湖拉昂错:VB程序做随机抽奖

来源：百度文库编辑：查人人中国名人网时间：2024/05/03 02:55:27

哪位高手可以帮我编一个可以随机抽奖的VB程序啊，谢谢

Private Sub Command1_Click()
Randomize
Label1.Caption = Fix(Rnd * 10)
Label2.Caption = Fix(Rnd * 10)
Label3.Caption = Fix(Rnd * 10)
Labelshuzi.Caption = Fix(Rnd * 10)
If Label1.Caption = Labelshuzi.Caption Or
Label2.Caption = Labelshuzi.Caption Or
Label3.Caption =Labelshuzi.Caption Then
Image1.Visible = True
Else
Image1.Visible = False
End If
End Sub

注：此段代码可以实现自动选出三个号 Label1 Label2 Label3为选出的三个号

这有个例子

要求也不说清楚，怎么下手啊

VB程序做随机抽奖 VB编写电脑抽奖的程序用VB软件制作一个有四个文本框的抽奖的程序如何做？ pp点点通随机抽奖做个VB程序请问怎么样VB编的程序随机启动怎样用VB做一个随机生成的11位数字? 如何用VB制作一个有若干图片滚动点击停止的抽奖程序用VB怎么做出那个快乐大转盘抽奖的程序百度有没有随机抽奖活动是蔡志强吗