visual basic 6.0如何给数组赋值，如何引用已赋值的数组呢，用循环的方法赋值及引用。

Question

如何按照一定的规律给数组赋值，比如要求一个数组包含1000个数，然后第一个数是0，以后每个数均增加0.03，在visual basic 6.0中怎么实现呢，赋值后怎么引用呢？越详细越好，谢谢！
0,0.03,0.06,0.09…… 15，15.03……一直到1000个数据

Answer 1

Option Explicit
'Option Base 1  '默认下标改为从1开始
Private Sub DataOutput(arrRef() As Double)
   Dim i&
   For i = LBound(arrRef) To UBound(arrRef)
      Debug.Print arrRef(i)
   Next
End Sub
Private Sub Command1_Click()
   Dim aTmp(999) As Double 'VB默认下标从0开始
   '如果使用了Option Base 1，就要把999改为1000
   Dim i&, d#
   d = 0    '这句可以不要
   For i = 0 To 999     '数组赋值
      aTmp(i) = d
      d = d + 0.03
   Next
   For i = 0 To 999      '本地使用数组成员
      Debug.Print i, aTmp(i)
   Next
   '把数组传递到其它过程用使用：
   DataOutput aTmp   '这儿就用数组名
End Sub

Answer 2

Dim a(1000) As Currency
a(0) = 0
For i = 1 To 1000
a(i) = a(i - 1) + 0.03
Next

Answer 3

dim i as integer
dim a(999) as double
for i=0 to 999
    a(i)=i * 0.03
next i
for i =0 to 999
    if i<>0 and i mod 10 =0 then print
    print a(i);
next i