有一个程序
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的各点都有值。
这种情况，ａ(ｉ)数组怎么定义比较简洁合理

呃 我觉得你应该把a(i)取值条件说一下

就我所知道的数组定义法没有能做到你想要的 不过你可以通过修改代码来实现只对数组特定元素赋值并输出

在一个较大的循环里面计算赋值a(i),b(i),c(i),数组
ａ（ｉ）是间隔（这里是６００）有值的
ａ（ｉ）数组定义也为a(0 To 3600)，其实只有ａ（0）;ａ（600）;ａ（1200）;ａ（1800）;ａ（2400）;ａ（3000）;ａ（3600）
怎么定义ａ（ｉ）数组合理？

直接a(0 To 6)不行么

这样
可以改为
c(i) = i * i + b(i) * b(i)
在循环里ｂ（ｉ），ｃ（ｉ）都为３６１个值
ａ（ｉ）只有ａ（0）;ａ（600）;ａ（1200）;ａ（1800）;ａ（2400）;ａ（3000）;ａ（3600）有值
ａ（ｉ）与　ｂ（ｉ），ｃ（ｉ）它们的标号在
ａ（0）;ａ（600）;ａ（1200）;ａ（1800）;ａ（2400）;ａ（3000）;ａ（3600）是对应的