Question

vb中如何把text1中的0,1数字序列转换成ASCII字符

例如：text1.text=“01010001110110100011111100001001101”，经过转换，把text1.text按ASCII码输出到text2.中。
8位0,1码转化为一个字符，即范围为0-255的标准ASCII表

Answer 1

只给思路，没空给你写了。
你这个需要把8位二进制数转化为一个十进制数，每次把一个8位二进制转为一个十进制数就用Char()函数将它转为字符串，直至完成全部转换，如果后面遇到二进制数不够8位则往它后面补0。

Answer 2

private sub command1_click()
dim i as integer,k as integer
dim t as string
t=text1.text
k=len(t)
i=k\8
if i<>k/8 then
t=t & string((i+1-k)*8,"0")'不够8位补0
end if
for i=1 to len(t) step 8
text2=text2 & toojz(mid(t,i,8)) & " "
next i
end sub
'二进制转换为十进制
Public Function toojz(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
toojz = toojz* 2 + Val(Mid(Bin, i, 1))
Next i
End Function
手写代码，楼主自己测试。大体思路就这样。

追问

不是转换成十进制，是每8位按ASCII输出一个字符

Answer 3

我这是一一对应
text2.text=asc(mid(text1,1,1))
for i=2 to len(text1.text)
text2.text=text2.text+" "+asc(mid(text1,i,1))
next

Answer 4

对应关系是啥？