Hinzufügen von 2 Zahlen in 2 TextBox

Question

Ich habe Probleme beim Hinzufügen von 2 Ganzzahlen in TextBox. Wenn ich 1 + 1 hinzufügen, erhalte ich 11

Bitte helfen ..

Hier ist mein Code:

Private Sub cmdAdd_Click() 

Dim a As Integer 
Dim b As Integer 
Dim c As Integer 

a = CInt(TextBox1.Text) 
b = CInt(TextBox2.Text) 
c = CInt(TextBox3.Text) 

TextBox3.Value = TextBox1.Value + TextBox2.Value 

c = a + b 

End Sub 

ich diesen Code verwendet, und es funktioniert auch:

x = CDbl(txtSurveyYes.Value) + CDbl(txtSurveyNo.Value) 

     txtTotal.Value = x 

Answer 1

Sie müssen den Wert nach cint umwandeln, wie Nathan_Sav sagte, Sie verketten gerade Strings.

Sie müssen, so etwas tun:

Private Sub cmdAdd_Click() 

TextBox3.Value = CInt(TextBox1.Value) + CInt(TextBox2.Value) 

End Sub