# 关于数组！！！

guilong2008 2008-03-24 02:53:45

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
...全文
81 点赞 收藏 4

4 条回复

guilong2008 2008-03-25
For Row = 0 To (z3 - 1)
Tmp = StarPos + Row * 4
Tmp1 = testarr(Tmp + 1) * CLng(256)
Tmp2 = testarr(Tmp + 2) * CLng(65536)
zh = testarr(Tmp) + Tmp1 + Tmp2

rowL = zh - bfzh

For rowZ = 0 To (rowL - 1)

If rowZ Mod 2 = 0 Then
gs = testarr(JtPos + rowZ)
Else
sm = testarr(JtPos + rowZ)
For y = 0 To (gs - 1)

bbuf(k) = sm
k = k + 1

Next y
End If

Next rowZ

bfzh = zh
JtPos = JtPos + rowL
Next Row

k2 = 0
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)
cbuf(k2) = q
q = q + 1
Next Zs
Next Rows

qiu5208 2008-03-24

guilong2008 2008-03-24

VB基础类

7522

VB 基础类

2008-03-24 02:53