编写一个能够进行四则运算的程序

来源：百度知道 编辑：UC知道 时间：2024/06/21 15:05:41
然后输入一个运算符，当运算符为“+”时，对两个数进行加法运算；当运算
符为“-”时，对两个数进行减法运算；当运算符为“*”时，对两个数进行乘
法运算；当运算符为“/”时，对两个数进行除法运算；其他符号时，显示出错。

以下代码可以给你实现两个数的 四则运算..非常方便而且简单.你复制下研究吧.

'事先定义一个运算函数
Private Function YunSuan(S1 As Long, FuHao As String, S2 As Long, JieGuo) As Long
Select Case FuHao
Case "+"
JieGuo = S1 + S2
Case "-"
JieGuo = S1 - S2
Case "*"
JieGuo = S1 * S2
Case "/"
JieGuo = S1 / S2
Case Else
MsgBox "错误的运算符,请检查"
End Select
End Function

Private Sub Form_Click()
YunSuan 50, "+", 50, JieGuo '加法运算
MsgBox "50+50=" & JieGuo

YunSuan 50, "-", 50, JieGuo '减法运算
MsgBox "50-50=" & JieGuo

YunSuan 50, "*", 50, JieGuo '乘法运算
MsgBox "50*50=" & JieGuo

YunSuan 50, "/", 50, JieGuo '除法运算
MsgBox "50/50=&quo