VB编写一个抽奖小程序，要求每次抽奖的数字不重复

VB编写一个抽奖小程序，要求每次抽奖的数字不重复

Dim n As IntegerDim 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