Question

vb的长二进制转换问题

access表格中有一个长二进制数据，我用vb取出后处理如下：
aa_ = MidB(Text1.Text, 1, 1)
bb_ = MidB(Text1.Text, 2, 1)
aa = AscB(aa_)
bb = AscB(bb_)
Text2.Text = (aa + 128 * bb) / 10 - 1
现在我想把text2中的数据再换成长二进制的，改如何处理？

Answer 1

进行逆运算即可：

cc = (Val(Text2.Text) + 1) * 10
aa = cc \ 128
bb = cc Mod 128
aa_ = ChrB(aa)
bb_ = ChrB(bb)
Text1.Text = aa_ & bb_

Answer 2

你好，text2中的数据是string类型的，不能直接转换为二进制，如果确定text2中的数据除了数字以外没有其他类型的话，可以先用Cint函数转换为integer类型，然后再用取余函数mod逐位除以二取余，如果代码不会写的话再追问。

Answer 3

咖啡沸滚
在一万年里哈哈
西埃拉山将要枯萎毁灭，变成蝎子的巢穴。
破碎的冰屑与残曲的树木。
没有伊甸之园，没有堕落，
只有这风化的土地