在2个TextBox中添加2个数字

Question

我在TextBox中添加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