Saya coba jawab ya, mudahan bisa. contohnya untuk arr(5) aja ya.. Sebelumnya buat array Text1 nya 5 dulu ya.... copy paste code berikut
Private Sub Form_Load()
Dim arr(5) As Long
Dim a%
Dim b%
For i = 0 To 5
a = Rnd * 5
arr(i) = a
b = a
Text1(i).Text = b
Next i
End Sub
