VB中如何使Asc转换TXTE中的N个字符？
Asc中只可以转换一个字符或者一个字符串的第一个字符！
如果我输入N个字那么它只转换第一个不是我想要的！
我怎么才可以让他一次转换N个字符呢？（别说叫我一个一个慢慢转呀）
会的朋友一点要帮帮小弟呀！
不胜感激~自学真难~
参考答案:asc返回的是long型
如果你同时转换N个的话，那返回的就是N个long型数据
要用到数组或Variant型了
所以还不如自己编一个函数
Private Sub Command1_Click()
Dim aa As Variant
aa = allasc(Text1.Text)
For i = 1 To UBound(aa)
List1.AddItem aa(i)
Next i
End Sub
Public Function allasc(ByVal s As String) As Variant
Dim xx() As Long
ReDim xx(1 To Len(s)) As Long
For i = 1 To Len(s)
xx(i) = Asc(Mid(s, i, 1))
Next i
allasc = xx
End Function