如何让数字不按顺序滚动

一定要滚动吗

用随机数最简单，如果要每个数200次内只显示一次，就要用洗牌算法了

主要是先不重复随机赋值

'200次滚动不重复的抽奖方式
'在窗体上放置一个按钮，一个计时器，一个label,一个列表框
Option Explicit
Dim a(1 To 200) As Integer
Private Sub Form_Load()
Dim i%, j%, tem%
For i = 1 To 200
a(i) = i
Next
'洗牌算法乱序
Randomize
For i = 1 To 200
j = Int(Rnd * 200) + 1
tem = a(i)
a(i) = a(j)
a(j) = tem
Next i
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Command1_Click()
List1.AddItem Label1
End Sub
Private Sub Timer1_Timer()
Static i As Integer
If i > 200 Then i = 1
i = i + 1
Label1 = a(i)
End Sub

回复 yjtx256 :没看懂- -，能不能讲解的更清楚点，只有C语言基础。麻烦您了，谢谢

Public Sub Fresh(ByRef swapTextBox As TextBox)
Dim numbers(1 To 200) As Long
Dim i As Long:Randomize
For i = 1 To 200 '滚动200次
LABEL_BACK:
Dim rndId As Long: RndId=Int(Rnd*200+1) '这里如果出现运行错误就自己百度随机数VB代码
If numbers(rndId)=0 Then
swapTextBox.Text=CStr(numbers(rndId))
Else
GoTo LABEL_BACK
End If
End Sub