VB初学者：VB中怎么样字符串的每个字节的ASCII值加起来，再除以100求余？

Dim intAsc as Integer
dim strString as String
strString="abcdefg"

for i=1 to len(strString)
intAsc =intAsc +asc(mid(strString,i,1))
next

intAsc =intAsc mod 100

没具体执行 但是应该没问题 求的是strString的 ASCII值的余

哥们差不多也该结贴了吧

dim s as string
dim sum as integer
dim i as integer
s="ABC"
for i=1 to len(s)
sum=sum+asc(mid(s,i,1))
next i
print sum mod 100

s = InputBox("请输入字符串")
For i = 1 To Len(s)
n = n + Asc(Mid(s, i, 1))
Next
Print "结果为:" & n Mod 100