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 n As Integer

Dim a()

Private Sub Command1_Click()

    If n = 0 Then            '第一次点击时执行

        m = Val(Text1)

        ReDim a(1 To m)

        For i = 1 To m      '生成数组a，元素为1至m这m个数

            a(i) = i

        Next

        For i = 1 To m - 1             '随机打乱数组a中元素

            r = Int(Rnd  m + 1)

            tmp = a(i)

            a(i) = a(r)

            a(r) = tmp

        Next

    End If

    n = n + 1                 '计数点击次数

    If n > Val(Text1) Then    '次数超过指定次数，抽奖结束

        MsgBox "抽奖结束！"

        Exit Sub

    End If

    Text2 = a(n)              '从数组中抽出第n个数，由于数组中是随机排列，所以相当于生成一个随机数，并且不会重复

End Sub

只要在窗体中做二个命令按钮、一个标签和一个定时器对象，复制以下代码，就可以运行了：

Private Sub Command1_Click()

If Command1Caption = "开始" Then

Command1Caption = "暂停"

Timer1Enabled = True

Else

Command1Caption = "开始"

Timer1Enabled = False

End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Label1Caption = ""

Label1FontSize = 50

Timer1Interval = 50

Timer1Enabled = False

Command1Caption = "开始"

Command2Caption = "结束"

End Sub

Private Sub Timer1_Timer()

Label1Caption = Int(Rnd 50) + 1

End Sub

说几点编程建议给你就行了。

定义一个模块级的整数变量

1、首先获得数据中的人名个数。将这个数赋给变量

2、定义一个数组。数组上限数为人名数量，

3、用Randomize 来防止重复人名

4、下面的是按空格运行，回车停止

如果你的窗体上没有什么按钮和文本框等能得到焦点的控件就将下面的代码放在窗体的Form_KeyUp（）过程中。否则就每个能得到焦点的控件中都要放。

If KeyCode = 13 Then'回车键

MsgBox "Stop"

ElseIf KeyCode = 32 Then'空格键

MsgBox "run"

End If

以上就是关于VB程序做随机抽奖全部的内容，包括:VB程序做随机抽奖、VB编写一个抽奖小程序，要求每次抽奖的数字不重复、怎么用vb做一个抽奖程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！