如何计算文本框里的数值？

Question

请问：我在form中放置一个Text文本框，然后往里输入数值，怎样得到这些数值累加的和？？如：
1.25
3.267
6.015
7.208
...
...
9.236
如何得到这些数值的累加和？

Answer 1

回车输入下一个,Esc输出结果
Dim sum As IntegerPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    If IsNumeric(Text1.Text) Then
        sum = sum + CLng(Text1.Text)
        Text1.Text = ""
        Text1.SetFocus
    End If
ElseIf KeyCode = 27 Then
    MsgBox sum
    Text1.Text = ""
End If
End Sub

Answer 2

dim sum as integer如果不够大,就改成dim sum as long

Answer 3

谢谢！
我想再text中保留每次输入的数值，因为以便输着输着发现那里不对了可以更改，另外您的按esc得到结果的我想改成command响应的，可以吗？

Answer 4

还有，小数点如何解决？dim成Double行吗？

Answer 5

2个text,其中text2的multiline属性设置为true
1个commandOption Explicit
Dim sum As LongPrivate Sub Command1_Click()
MsgBox sum
Text1.Text = ""
End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
    If IsNumeric(Text1.Text) Then
        Text2.Text = Text2.Text & vbCrLf & Text1.Text
        sum = sum + CLng(Text1.Text)
        Text1.Text = ""
        Text1.SetFocus
    End If
End If
End Sub

Answer 6

小数点,那你就double吧,sum = sum + CLng(Text1.Text)改成
sum = sum + CDbl(Text1.Text)

Answer 7

s=text1.text
do
if s="" then exit do
k=instr(s,str(13))
m=val(left(s,k))
sum=sum+m
s=mid(s,k+1)
loop

Answer 8

还有些毛病呀!
1、Text2中无法换行，都连在一起了，每次输入的分不清
2、能不能做成只有一个Text的呢？

Answer 9

Text2中无法换行已经解决multiline设成ture即可

Answer 10

现在就剩能否将其放在一个text中，不知有无方法？

Answer 11

viena老师教我的，http://community.csdn.net/Expert/topic/3795/3795512.xml?temp=.2085993不知是否有用！！