请教,如何按指定条件存数据到文件中(如内)?

比如这样一个小程序,
dim i,j,k
dim t(i,j,k),t0(i,j,k)
dim t

Open "E:\dataOK.dat" For Output As #1

for t=1 to 200
for i=1 t0 100
for j=1 to 100
for k=1 to 100

t(i,j,k)=i*t0(i,j,k)+j*t0(i,j,k)+k*t0(i,j,k)

Print #1, i, j, k, t(i, j, k)
'输出数据到一个记事本中

next k
next j
next i
next t
Close #1
上面的程序意思是每一个 t 值就存一个数组的值,我想让t 每隔10 存一次数据,但运算次数和上面的程序一样多,不知怎么处理好了,请哪位朋友指点一下