Создать массив - VB

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

Необходимо составить массив с помощью генератора случайных чисел,определить произведение элементов,значения которых кратны пяти.. вот мои попытки...

Dim p As Single, n As Single, x() As Integer, i As Single
Private Sub Command1_Click()
x() = Rnd(1)
List1.AddItem x(n)
p = 1
For i = 0 To n - 1
If x(i) Mod 5 = 0 Then
p = p * x(i)
End If
Next
 
If p <> 1 Then
Print "ГЏГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў, ГЄГ°Г*ГІГ*Г»Гµ ГЇГїГІГЁ = ", p
Else
Print "Г€Г±ГЄГ®Г¬Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г*ГҐГІ"
End If
End Sub

Решение задачи: «Создать массив»

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

                            ' заполнить массив случайными числами (отрицательными или положительными) от 0 до 100
For i = 0 To 99
a(i) = Fix(Rnd * 100)
Next
b = Fix(Rnd * 100)
For i = 0 To b
a(i) = a(i) * -1
Next
                        