vb中的两个text的数相加如何编写

由于在vb中，“+”号即可用来将两个字符相连，有可以用来将两个数相加，因为text中的内容默认为字符型，如果直接用“+”号是实现不了两个数的数值相加的，而是直接将两个数当字符相连起来了，所以，通常应将字符转换为数字在相加，也就是使用val()函数，例如将文本框text1和文本框text2的数值相加，应该写完val(text1text)+val(text2text),而不是直接text1text+text2text。

最简单的方法就是直接创建一个ComboBox控件再把下面的代码粘贴到窗体的代码处吧
Private Sub Combo1_Click()
Text1Text = Combo1Text
End Sub
Private Sub Form_Load()
Combo1AddItem 1, 0
Combo1AddItem 2, 1
Combo1AddItem 3, 2
End Sub
运行程序，点击下拉框即可为文本框赋值。
注意下，“Combo1AddItem ”后面第一个位置写你想要的数值，的二个位置是这个数值的代号
例如上面代码里面“Combo1AddItem 1, 0”意思是在下拉框里添加一个数值“1”，代号为“0”，想修改的话把“1”改为你想要的数值就OK了，想继续添加的话也可以在后面加Combo1AddItem语句。另外，也可以删掉 ”Private Sub Form_Load()“ 到 ”End Sub“ 这段代码，直接在Combo1的List 里面直接写下你想要的数值也行。又不懂，或是不满意的再问吧，希望对你有帮助~

Dim str
Private Sub Form_load()
Text1 = ""
Text2 = ""
Option1Caption = "逆序"
Option2Caption = "求和"
Option3Caption = "求积"
End Sub
Private Sub Option1_Click()
str = Text1Text
Text2 = StrReverse(str)
End Sub
Private Sub Option2_Click()
Text2Text = Val(Text1Text) + Val(Text2Text)
End Sub
Private Sub Option3_Click()
str = Text1Text
Text2 = StrReverse(str)
Text2Text = Val(Text1Text) Val(Text2Text)
End Sub
这够简单基本了吧。。你只要添加2个文本 3个单选 连名字我都给你设定好了
如果你要限制输入的只是数字 你也可以用下面的代码
Dim str
Private Sub Form_load()
Text1 = ""
Text2 = ""
Option1Caption = "逆序"
Option2Caption = "求和"
Option3Caption = "求积"
End Sub
Private Sub Option1_Click()
str = Text1Text
If IsNumeric(Text1Text) = False Then
MsgBox "非数字请重新输入"
Else
Text2 = StrReverse(str)
End If
End Sub
Private Sub Option2_Click()
If IsNumeric(Text1Text) = False Then
MsgBox "非数字请重新输入"
Else
Text2Text = Val(Text1Text) + Val(Text2Text)
End If
End Sub
Private Sub Option3_Click()
If IsNumeric(Text1Text) = False Then
MsgBox "非数字请重新输入"
Else
str = Text1Text
Text2 = StrReverse(str)
Text2Text = Val(Text1Text) Val(Text2Text)
End If
End Sub

---