s = "1，2，3，4，5"
创新互联坚持“要么做到，要么别承诺”的工作理念，服务领域包括：做网站、成都做网站、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的即墨网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！
n = 0
For i = 1 To Len(s)
n = n + Val(Mid(s, i, 1))
Next
Print "数字和为："; n
可以使用StringBiuder对象
因为StringBiuder系统只会为他分配一次内存空间，而你定义三个string变量，这样系统会为它们分配3次内存空间，
这个问题用vb.net比较简单.......
在text1里输入12
85
74
69
73
91
65
在text2里输入第一个数+第二个数
我这个方法的前提是：
text1里的每个数必需由空格分隔
text2里的文本要用+分隔
----------------------------------------------------------
dim
t1()
as
string
dim
t2()
as
string
dim
t1l,
i
as
integer
dim
temp
dim
r
as
integer,
rs
as
string
'用split函数分隔用户的输入
t1
=
split(text1.text,
"
")
t2
=
split(text2.text,
"+")
'获取数组t1中一共有几个元素
for
each
temp
in
t1
t1l
=
t1l
+
1
next
'直接开始相加
for
each
temp
in
t2
r
=
r
+
t1(i)
rs
=
rs
t1(i)
"+"
i
=
i
+
1
next
'显示结果
rs
=
left(rs,
len(rs)
-
1)
rs
=
rs
"="
r
text3.text
=
rs
----------------------------------------------------------
代码就是这样，缺点就是不是说在text2中输入第一个数+第二个数才可以加，输入a+b也可以加
Private Sub Command1_Click()
MsgBox CalcResult(2)
End Sub
Public Function CalcResult(X As Long) As Double
Dim dblMinLevel As Double
Dim dblItem As Double
Dim dblN As Double
Dim dblMember As Double, dblBase As Double
Dim i As Double
Dim dblResult As Double
dblMinLevel = 10 ^ (-6)
dblN = 0
Do
dblMember = X ^ dblN
dblBase = 1
i = dblN
Do While i 1
dblBase = dblBase * i
i = i - 1
Loop
dblItem = dblMember / dblBase
dblResult = dblResult + dblItem
dblN = dblN + 1
Loop While dblItem = dblMinLevel
CalcResult = dblResult
End Function