Созд массив А[1..7] с использованием генератора случайных чисел. - VB

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

Помогите создать массив А[1..7] с помощью генератора случайных чисел и вывести его на экран. Увеличить все его элементы в два раза.ПАРНИ!!! ПОМОГИТЕ!!! РЕАЛЬНО НАДО ОЧЕНЬ СРОЧНО!!! ЗАВТРА СДАЮ!!! ЭТО ИТОГОВАЯ РАБОТА!!! я в информатике полный нуб! Заранее спасибо!!!

Решение задачи: «Созд массив А[1..7] с использованием генератора случайных чисел.»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim a(1 To 7) As Integer, aaa
Dim i
aaa = ""
For i = 1 To 7
a(i) = Int((100) * Rnd + 50)
aaa = aaa & a(i) & " "
Next i
MsgBox aaa
aaa = ""
For i = 1 To 7
a(i) = 2 * a(i)
aaa = aaa & a(i) & " "
Next i
MsgBox aaa
End Sub
                        