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]]

谢谢了！

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

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

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