怎么将数值序列3,6,9,12,……,99存入数组中,并显示在窗体上?

在窗体上放一个命令按钮,代码如下
Private Sub Command1_Click()
Dim i As Integer, a(47) As Integer, k As Integer
k = 3
For i = 3 To 99 Step 3
a(i - k) = i
Print "a(" & i - k & ")=" & i
k = k + 2
Next i
End Sub