VBA разработка формы для вывода...

[grim]

Уважаемые знатоки!
Помогите пожалуйста мне с решением задачи.
Разработать форму для вывода:
1.Исходного одномерных массива случайных целых чисел
Это я сделал
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 10
a(i) = Int(Rnd() * 100)
b(i) = Str(a(i))
ListBox1.AddItem b(i)
Next i
End Sub
Теперь надо
2)Сумма всех чисел из исходного массива больше 1
3)Разницы между min и max значениями исходного массива

[grim]

тему можно закрыть, спасибо