在2个文本框中添加2个数字

Question

我无法在文本框中添加2个整数。如果我添加1 + 1，我得到11

请帮助..

这里是我的代码：

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 

我用这个代码和它的作品太：

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

     txtTotal.Value = x 

Answer 1

你需要将值转换为cint，正如Nathan_Sav所说，您目前正在串联字符串。

你需要做这样的事情：

Private Sub cmdAdd_Click() 

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

End Sub