计算器的连加连成问题
众所周知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
在线求助!!!