计算器的连加连成问题

众所周知PB实现计算的简单加法
0-9数据键上都写下下面代码：
if flag=0 then
 sle_1.text=""
 flag=1
end if
sle_1.text=sle_1.text+this.text
 
运算符键上都写下下面代码：
choose case s
  case'*'
    sle_1.text=string(dec(sle_1.text) * a)
   case'/'
    sle_1.text=string(a / dec(sle_1.text))
   case'+'
    sle_1.text=string(dec(sle_1.text) + a)
   case'-'
    sle_1.text=string(a - dec(sle_1.text))
end choose
a=dec(sle_1.text)
s=this.text
flag=0
 
 
等于符号下下面写下代码：
choose case s
  case'*'
    sle_1.text=string(dec(sle_1.text) * a)
   case'/'
    sle_1.text=string(a / dec(sle_1.text))
   case'+'
    sle_1.text=string(dec(sle_1.text) + a)
   case'-'
    sle_1.text=string(a - dec(sle_1.text))
end choose
flag=0
s=''

但是如何对其进行连加呢？
如要实现5+3=8 再按= =11 再按= =14
在线求助！！！