VB中如何给多个控件分别生成多个个不同的随机数

Private Sub Command1_Click() Dim a(8) As Integer, i As Integer, j As Integer Randomize '这个最好加上，不然并不是真正的随机 For i = 0 To 8 '开始随机9个数字，保证不重复 a(i) = Int(Rnd * 1000) '0~999之间的数字 For j = 0 To i - 1 If a(i) = a(j) Then i = i - 1 Exit For End If Next j Next i '赋值开始 n1.Caption = a(0) n2.Caption = a(1) n3.Caption = a(2) n4.Caption = a(3) n5.Caption = a(4) n6.Caption = a(5) n7.Caption = a(6) n8.Caption = a(7) n9.Caption = a(8)End Sub

哥们早醒了。。以下是代码：RandomizeLabel1.caption=rnd *9好了，其它的LABEL只要照着这段代码写就行了。。