在文本框中查找字符总和

Question

我有一个文本框，其中的字符来自我的代码中的计算。文本框只包含整数...有没有办法可以在文本框中总结整数？例如。如果我的文本框有123456，代码应找到1 + 2 + 3 + 4 + 5 + 6的总和，然后在另一个文本框中显示总和。提前谢谢

Answer 1

VB6

Public Sub Calculate()
    Dim i       As Integer
    Dim sum     As Integer
    Dim length  As Integer
    i = 1
    sum = 0
    length = Len(TextBox1.Text)

    While i <= length
        sum = sum + Mid(TextBox1.Text, i, 1)
        i = i + 1
    Wend

    TextBox2.Text = sum
End Sub

Answer 2

使用Mid $（）和Len（）函数按编号检索数字，并将其（+）添加到总计（总和）。

修改：

Dim total As Integer, i As Integer
For i = 1 To Len(Trim$(Text1.Text))
    total = total + CInt(Mid$(Text1.Text, i, 1))
Next i
Text2.Text = total