vb10个固定手机号随机抽奖，用数组

Dim a(10) As String

Private Sub Command1_Click()‘输入手机号

For i = 1 To 10

a(i) = InputBox("请输入第" &i &"个手机号:")

Next i

End Sub

Private Sub Command2_Click()’开始抽奖

Timer1.Interval = 50

Timer1.Enabled = True

End Sub

Private Sub Command3_Click()‘显示中奖号

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

x = Int(10 * Rnd) + 1

Label1.Caption = a(x)

End Sub

不是指定的。微信抽奖小程序抽奖码是随机的，抽奖名额是系统抽中确定的，不是指定的。微信小程序，小程序的一种，英文名WechatMiniProgram，是一种不需要下载安装即可使用的应用，它实现了应用“触手可及”的梦想，用户扫一扫或搜一下即可打开应用。

---