Question

如何在VB中计算所有字符的ASCII码之和并显示

Answer 1

计算机中用得最广泛的字符集及其编码，是由美国国家标准局(ANSI)制定的ASCII码（American Standard Code for Information Interchange，美国标准信息交换码），它已被国际标准化组织（ISO）定为国际标准，称为ISO 646标准。适用于所有拉丁文字字母，ASCII码有7位码和8位码两种形式。

因为1位二进制数可以表示（2^1）=2种状态：0、1；而2位二进制数可以表示（2^2）=4种状态：00、01、10、11；依次类推，7位二进制数可以表示（2^7）=128种状态，每种状态都唯一地编为一个7位的二进制码，对应一个字符（或控制码），这些码可以排列成一个十进制序号0～127。所以，7位ASCII码是用七位二进制数进行编码的，可以表示128个字符。

第0～32号及第127号(共34个)是控制字符或通讯专用字符，如控制符：LF（换行）、CR（回车）、FF（换页）、DEL（删除）、BEL（振铃）等；通讯专用字符：SOH（文头）、EOT（文尾）、ACK（确认）等；

第33～126号(共94个)是字符，其中第48～57号为0～9十个阿拉伯数字；65～90号为26个大写英文字母，97～122号为26个小写英文字母，其余为一些标点符号、运算符号等。

Private Sub Command1_Click()

For i = 33 To 126

  Print i; Chr(i),

  If i Mod 5 = 2 Then Print

  s = s + i

Next i

Print

Print "Sum="; s

End Sub

Answer 2

都怪提问者没有把问题说清楚，按我的理解，提问者的意思是拿出一段文字，然后计算这段文字中所有字符的ASCII码之和，如果只是计算所有字符的ASCII码之和，那么只要用个简单循环就可搞定，我想提问者不会连这点都不懂吧？所以楼上两位都可能理解错了。

ss = "这里是一段要计算ASCII码总和的文字ABCDEFGH1234567890abcdefgh$%^&*"
s = 0
For i = 1 To Len(ss)
s = s + Asc(Mid(ss, i, 1))
Next
Print "ASCII码之和为"; s

追问

我的意思就是随便打一串字符，然后计算，最好答案是VB代码

追答

ss = InputBox("请随意输入一串字符")
s = 0
For i = 1 To Len(ss)
s = s + Asc(Mid(ss, i, 1))
Next
MsgBox "ASCII码之和为" & s

Answer 3

dim sum as integer
for i = Asc("!") to Asc("z")
sum = sum + i

next i
楼上的朋友，回答很不错，但是不对题了。
要是把33到126都知道了，还需要做字符的相加求和？
Asc函数是求ASCII值，用I来取出！到z的值，再相加i就行了。

Answer 4

在VB窗口上创建一个text1控件和command1按钮控件，添加如下代码：
Private Sub Command1_Click()
Dim ret As Integer
Dim a As String
ret = 0
a = "11111"
For i = 1 To Len(a)
ret = ret + Asc(Mid(a, i, 1))
Next i
Text1.Text = ret
End Sub