Question

怎么把vb文本框中的数据赋给数组 求vb高手 帮帮忙

这是我写的程序 但是为什么不能行 我实在是不知道了
s1 = Replace(Text1.Text, " ", "")
s1 = Replace(s1, vbCrLf, ""): s1 = Trim$(s1)
bi = Split(s1, "")

Answer 1

怎么把vb文本框中的数据赋给数组
dim bi() as byte
bi=strcinv(trim(text1.text),128)'这样就行了

你的代码我看着也没有问题
但那个split那个的第二参数,不能为"",为空也没有用
直接取也行
redim bi(len(s1))
for i=1 to len(s1)
bi(i)=mid(s1,i,1)
next

Answer 2

分隔符改成逗号试试
s1 = Replace(Text1.Text, " ", "")
s1 = Replace(s1, vbCrLf, ","): s1 = Trim$(s1)
bi = Split(s1, ",")