关于字符串的几个问题 --续集

Question

原贴:http://community.csdn.net/Expert/topic/4299/4299320.xml?temp=7.253665E-02在文本框中怎样把输入的字母转换成数字并保存在一个变量里(比如字母用相应的Ascii码代替)?
strNumber = ""
For i = 1 To Len(strSource)
    strNumber = strNumber & Asc(Mid(strSource, i, 1))
Next i我想把每个Ascii码依次相加,该如何做?
比如:david (100+97+118+105+100=520)

Answer 1

strNumber = 0
For i = 1 To Len(strSource)
    strNumber = strNumber + Asc(Mid(strSource, i, 1))
Next i

Answer 2

Dim b() As Byte
    Dim i As Long
    Dim Sum As Long
    
    b = StrConv(strSource, vbFromUnicode)
    
    Sum = 0
    For i = 0 To UBound(b)
        Sum = Sum + b(i)
    Next i

Answer 3

我给你的范例中  & 符号是  连接  的意思   +  才是加法运算