井冈山红色基因教育:用VB怎么编：编写程序、输入两个，再选择“+”“-”“*”“/“四个按钮之一，跟据所选择的运算并输出结果

Private Sub cmdAdd_Click()
Text3 = Int(Text1.Text) + Int(Text2.Text)
End Sub

加法用上面可以实现。减法、乘法也一样。

至于除法，要加一个判断，就是除数不能为0

这不就是个计算器吗？是上课的基本示例，我手头没有现成的，自己做又变懒了，你到网上找一下，有源码的。

－－－－－－－－－－
－－－－－－－－－－
－－－－－－－－－－
－－－－－－－－－－
－－－－－－－－－－
－－－－－－－－－－
Private Sub Command1_Click()
Dim A As Long
A = Text1.Text
B = Text2.Text
Text3.Text = A - (-B)
End Sub

Private Sub Command2_Click()
Dim A As Long
A = Text1.Text
B = Text2.Text
Text3.Text = A - B
End Sub

Private Sub Command3_Click()
Dim A As Long
A = Text1.Text
B = Text2.Text
Text3.Text = A * B
End Sub

Private Sub Command4_Click()
Dim A As Long
A = Text1.Text
B = Text2.Text
If Text1.Text = 0 Then
MsgBox "无解"
Else
Text3.Text = A * B
End If
End Sub

楼上的同志的观点恕我不能苟同，你可以查一下书“Int”是什么意思，我的方法如下：
Private Sub cmdAdd_Click()
Dim num as Integer
num=Val(Text1.Text)+Val(Text2.Text)
Print num
End Sub
加法用上面可以实现。减法、乘法也一样。
至于除法，要加一个判断，就是除数不能为0 。

叼你啊 这都不会