Private Sub Form_Click()
Dim num%, ch$
a = 1: b = 2: c = 3: d = 4: e = 5: f = 6: g = 7: h = 8
i = 9: j = 10: k = 11: l = 12: m = 13: n = 14: o = 15: p = 16
q = 17: r = 18: s = 19: t = 20: u = 21: v = 22: w = 23: x = 24
y = 25: z = 26
ch = InputBox("输入一个单词:")

End Sub

到这里就不会了 大概的意思就是 a是1 b是2 如此向下推，然后输入一个单词，把它的单词所代表的数字都加起来的和
谢谢高手了
我是一个新手

[[it] 本帖最后由 abisuqin 于 2008-5-18 11:27 编辑 [/it]]

sum=0
sum=sum+val(ch)

sum=0
sum=sum+val(ch)

谢谢了！

能不能在说明一下 val 这个函数的作用.

刚才我试过了  不行啊  结果总是0
比方说 单词is 应该为9+19=28

上面的方法貌似不对，但楼主给的代码从思路上也不对，因为变量变量就是个存值的空间，就像数学里的x，值可以是20，可以是30，但和字母“x”其实一点关系也没有。所以就算你定义a是1，下面也是没法直接调用的。或者说，你定义的a和b变量没有本质的区别。（当然也不是绝对的，通过引用vbscript库可以实现即时解释代码，但有点高深）

试试下面的，原理是查询ascii码：

Dim Inputstr As String, Sum As Integer,i As Integer    'Integer应该够了
Inputstr=InputBox("...")    '输入字符串
Sum=0
Inputstr=LCase(Inputstr)    '转换为小写
For i=1 to Length(Inputstr)
    Sum=Sum + Asc(Mid(Inputstr,i,1))-Asc("a")+1
Next 'i

恩 谢谢了 不但给出了 结果 还给了解释！