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

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

首先打开手机，进入微信。点击抽奖助手功能

选择点击抽奖助手功能。

点击发起抽奖功能

选择点击发起抽奖功能。

点击输入所有抽奖信息后点击迟橡发起抽奖功能，选择点击输入所有抽奖信息后点击发起抽奖功能。

打开微信发现页面，点击小程序。搜索“活动抽奖”。然后点击发起抽奖。

完善了奖品信息，填写抽奖说明，可以在这里描码宏旁述此次抽奖的目的或者小要求，填写两个条件，必须是个人的公众号粉丝才能抽奖。高级功能的使绝吵用。

1.进入首页右上方的工作台，选择新建-互动模块，在d出窗口选择抽奖2.进入编辑模板，开始基本设置，包括活动名称、活动时间、活动类型、活动规则等。3.奖品设置，可以添加奖品，选择相应的奖品的中败棚奖个数以及中奖率，奖品类型有实物坦源，红包，优惠券，积分等多察信则种选择。  4.高级设置，设置抽奖规则，抽奖次数等等。5.样式设置，可以直接使用，也可以根据自己的喜好，做一些背景和按钮的改动。6.添加分享设置以后就可以直接发布分享了。

---