软件源码

　　PrivateSubclose_Click()

　　End

　　EndSub

　　PrivateSubjisuan_Click()

　　DimaAsDouble

　　DimbAsString

　　DimcAsDouble

　　a=shu1.Text

　　b=fuhao.Text

　　c=shu2.Text

　　Calljisuanguocheng(a,b,c)

　　EndSub

　　PrivateSubjisuanguocheng(a,b,c)

　　Ifb="+"Then

　　jieguo.Text=a+c

　　ElseIfb="-"Then

　　jieguo.Text=a-c

　　ElseIfb=""Then

　　jieguo.Text=ac

　　ElseIfb="/"Then

　　Ifc=0Then

　　jieguo.Text="除数为0，请检查输入数据"

　　Else

　　jieguo.Text=a/c

　　EndIf

　　EndIf

　　EndSub

使用方法

　　该计算器执行简单的加、减、乘、除计算功能

　　使用方法：

　　在计算数据中输入要计算的数据，符号中输入+、-、*、/符号，

　　点击计算，即可输出结果

　　注意：

　　不可在计算数据中输入符号