＋设为首页 ＋添加到收藏夹
小女子真诚请教，刚学vb不久，多谢各位！
dim strtest as string
dim test() as byte
test = strconv (strtest,vbfromunicode)
dim a as string
dim b() as byte
dim i as integer,j as integer
i=len(a)
redim b(i)
for j=0 to i
b(j)=mid(a,j,1)
next j
试一下吧,很旧没玩vb了,手疏
