我目前正在使用asp.net vb代码。我试图每次清除计算按钮时都将数字加在一起。我目前只有一个文本框，可用于输入工资单应用程序中发送的消息。我想每次单击计算按钮时计算出数字的总和。我只有一个文本框。因此，用户将消息输入到“同一个文本框”中，每次输入新的数字时，它将被添加到一起。

我尝试过tbTotalMessages += messages来尝试添加它们（我想这就是你的做法，因为这是课堂上解释的，但是我想我还是误会了），因为所有这样做都是添加相同的数字，所以如果我放“ 23”，则每次单击该按钮都将变成“ 23232323”

这是我计算按钮的代码，我也有一个pieceworkWorker类

 Dim inputName As String = tbWorkersname.Text
 Dim inputMessages As String = tbMessagesSent.Text
 Dim messages As Integer = 0
 Dim errorMessage As String = ""
 Dim overallMessages As Integer = 0

        If radioButtonList.SelectedIndex = 0 Then
            Dim newWorker As PieceworkWorker

            If inputName.Trim = "" Then
                errorMessage += "Please enter a valid name"
            End If

            If Not (Integer.TryParse(inputMessages,messages)) AndAlso messages > -1 Then
                If errorMessage <> "" Then
                    errorMessage += Environment.NewLine
                End If

                errorMessage += "Please enter a valid number of text messages sent"
            End If

            If errorMessage <> "" Then
                Response.Write(errorMessage)
            Else
                newWorker = New PieceworkWorker(inputName,messages)
                newWorker.FindPay()
                tbLastWorkerPay.Text = newWorker.CalculatedPay.ToString()

            End If
        ElseIf radioButtonList.SelectedValue = 1 Then
            Dim newWorker As SeniorWorker

            If inputName.Trim = "" Then
                errorMessage += "Please enter a valid name"
            End If

            If Not (Integer.TryParse(inputMessages,messages)) AndAlso messages > -1 Then
                If errorMessage <> "" Then
                    errorMessage += Environment.NewLine
                End If

                errorMessage += "Please enter a valid number of text messages sent"
            End If

            If errorMessage <> "" Then
                Response.Write(errorMessage)
            Else
                newWorker = New SeniorWorker(inputName,messages)
                newWorker.FindPay()
                tbLastWorkerPay.Text = newWorker.CalculatedPay.ToString()
            End If
        End If

        tbNumberOfWorkers.Text = Val(tbNumberOfWorkers.Text) + 1.ToString()
        tbTotalMessages.Text += messages