求一个小型VB计算器，有加减乘除就行，但是计算过程和结果都要在一个文本框显示。在线等

发代码也行

---

添加一个模块
Public Enum Arithmetic
加法 = 0
乘法 = 1
减法 = 2
除法 = 3
'以下为需银渗要使用的新命令
End Enum
Public Function Calculation(Optional x = 0, Optional Arithmetic As Arithmetic, Optional y = 0)
On Error Resume Next
Select Case Arithmetic
Case 加法搭旦
Calculation = x + y
Case 减锋枝脊法
Calculation = x - y
Case 乘法
Calculation = x * y
Case 除法
Calculation = x / y
End Select
End Function

在formload中调用 Calculation(x,加减乘除,y)进行计算
可以为msgbox x,加,y

---

网上有很多，你自己去搜吧，或者把书上的代码自己输入运行就可以了。

---