Сформировать массив из 27 элементов и заполнить его случайными целыми числами в диапазоне [-45.45] - VB

Private Sub Command1_Click()
Form1.Cls
Dim p As Double, m%, n%
Dim k%(27)
'formiruem
For i = 1 To 27
 k(i) = Int(Rnd(1) * 91) - 45
 Print k(i);
Next i
Print
'proisvedenie
p = 1
For i = 1 To 27
 p = p * k(i)
Next i
Print p
'maximum
m = k(1): n = 1
For i = 2 To 27
 If m < k(i) Then m = k(i): n = i
Next i
Print "max = "; m; "nomer = "; n
'obnulim
For i = 1 To 27
 If k(i) < 0 Then k(i) = 0
 Print k(i);
Next i
End Sub