这种情况，ａ(ｉ)数组怎么定义比较简洁合理

有一个程序
Option Explicit
Private SubCommand1_Click()
Dim a(0 To 3600), b(0 To 3600), c(0 To3600), i#
For i = 0 To 3600 Step 1
If i Mod 600 = 0 Then a(i) = 2 * i
b(i) = Sin(i) * 6
c(i) = a(i) * a(i) + b(i) * b(i)
Print i; a(i); b(i); c(i)
Next i
End Sub
在一个循环里其中ａ(ｉ) 只在　a(0);a(600);a(120);a(1800);a(2700);a(3300);a(3600)有值，b(i)和 c(i) 在i的各点都有值。
这种情况，ａ(ｉ)数组怎么定义比较简洁合理