VB程序做随机抽奖

Private Sub Command1_Click()

Randomize

Label1Caption = Fix(Rnd 10)

Label2Caption = Fix(Rnd 10)

Label3Caption = Fix(Rnd 10)

LabelshuziCaption = Fix(Rnd 10)

If Label1Caption = LabelshuziCaption Or

Label2Caption = LabelshuziCaption Or

Label3Caption =LabelshuziCaption Then

Image1Visible = True

Else

Image1Visible = False

End If

End Sub

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

Dim a(1 To 100) As String

Dim i As Integer, x As Integer

Const n = 3 'n的值可根据实际需要赋予不同的变量

Private Sub Command1_Click()

Timer1Enabled = True

End Sub

Private Sub Command2_Click()

Timer1Enabled = False

End Sub

Private Sub Form_Load()

Randomize '初始化随机数生成器

a(1) = "富士康" '以此将n个人的姓名保存在数组a中

a(2) = "庞麦郎"

a(3) = "非主流"

For i = 1 To n

List1AddItem a(i)

Next

Timer1Enabled = False

End Sub

Private Sub Timer1_Timer()

x = Rnd() n + 1 '产生一个[1，n]中的随机整数并存入变量x中

Label2Caption = a(x) '在标签Label2中显示下标变量a(x)的值（第x个人的姓名）

End Sub

以上就是关于VB程序做随机抽奖全部的内容，包括:VB程序做随机抽奖、VB中可用的抽奖程序的代码、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！