Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10 - VB

Dim i(1 To 10) As Integer
Dim a As Integer
Dim c(1 To 10) As Integer
Private Sub Command1_Click()
Randomize
For a = 1 To 10
i(a) = Int(Rnd * 10) + 1
Print i(a)
Next
Print 'Сейчас пойдёт средние арифметическое
Print (i(1) + i(2) + i(3) + i(4) + i(5) + i(6) + i(7) + i(8) + i(9) + i(10)) / 10
End Sub