怎么将一个很长的数字每一位分配给一个一给数组 vb数组 字符串 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 转成 char 数组而后 arry 数组 Dim L as LongDim i as LongDim slen as LongDim arry1 as Byte()Dim S as StringL=1326478564&S=CStr(L)slen=Len(S)ReDim arry1(slen-1)for i=0 to slen-1 arry1(i)=val(mid(S,i+1,1)) debug.print "arry1(";i;")=";arry1(i)next 上帖第4行应为Dim arry1() as Byte Listview 数据处理超卡 ListView传递文本给CombBox和TextBox的速度问题 VB6 用libmysql.dll连MYSQL 有关社会保险问题 定义全局变量 远程数据库访问的问题! 如何在水晶报表中过滤掉其他不必要的信息? 如何得到SQL所在的服务器名??(用SQL语句) 怎样卸载联想Windows 98th OEM升级文件呀 高手菜鸟一齐来看看 VB2010数组应用的小疑问 VB进行CATIA二次开发,体积测量问题
而后 arry 数组
Dim i as Long
Dim slen as Long
Dim arry1 as Byte()
Dim S as String
L=1326478564&
S=CStr(L)
slen=Len(S)
ReDim arry1(slen-1)
for i=0 to slen-1
arry1(i)=val(mid(S,i+1,1))
debug.print "arry1(";i;")=";arry1(i)
next
Dim arry1() as Byte