关于数组!!!

guilong2008 2008-03-24 02:53:45
如何把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
...全文
120 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
熊孩子开学喽 2008-03-26
  • 打赏
  • 举报
回复
没有看明白代码的意思,最主要的是没有看到变量和数组的定义。
楼主还是把你的原始需求写出来,我们帮你想个思路吧。
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

需要把bbuf(k)里面的元素赋给cbuf(),怎么实现。以上是我的代码,总是出错,请各位看看,谢谢。
qiu5208 2008-03-24
  • 打赏
  • 举报
回复
你的代码没贴全啊。

赋值就用FOR赋值可以的。
转换成二进制的函数网上很多,查一查就行。
guilong2008 2008-03-24
  • 打赏
  • 举报
回复
急,希望各位高手。拔刀相助

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧