在TEXTBOX中求和???

Question

在一个text控件输入三个数,求这三个数的和

Answer 1

Private Sub Command1_Click()
    Dim a() As String
    Dim sum As Long
    sum = 0
    a() = Split(Text1.Text, " ")
    For i = 0 To UBound(a)
        If a(i) <> "" Then
            sum = sum + Val(a(i))
        End If
    Next
    Print sum
End Sub

Answer 2

Dim a, b, c As String
Dim d As Integer
a = Mid(Form2.Text1.Text, 1, 1)
b = Mid(Form2.Text1.Text, 2, 1)
c = Mid(Form2.Text1.Text, 3, 1)
d = Val(a) + Val(b) + Val(c)
Text5.Text = d