Массив в visual basic - VB

Формулировка задачи:

задание:Описать, заполнить, вывести на форму в строчку массив R в котором 9 элементов. Значения элементов массива — целые случайные числа от 12 до 31. Найти сумму элементов и среднее геометрическое элементов массива. решение:

Private Sub Command1_Click()
Dim a(9)
For I = 12 To 31
a(I) = Int(Rnd * 19 + 12)
S = 0
S = S + a(I)
Next I
Print "сумма элементов"; S
End Sub

скажите пожайлуста что неверно в решении???

Решение задачи: «Массив в visual basic»

textual
                            Листинг программы 
                        
                            Random = Int(Rnd * (Max - Min + 1)  + Min)