关于数组!!!
如何把bbuf(k)这个数组里面的元素赋值给cbuf(q)这个数组,并把cbuf(q)这个数组的元素用二进制一一写出来。
下面是我的代码:
d = 0
q = 0
For Rows = 0 To (z3 - 1)
For Zs = 0 To 1247
If Zs Mod z3 = 0 Then
d = 0
Else
d = d + 1
End If
newbit(Zs + Rows * 1248) = oldbit(d + Rows * T)
q = q + 1
Next Zs
Next Rows
cbuf(q) = bbuf(k)
For j = 0 To (q - 1)
Put #2, , cbuf(j)
Next j