代码如下：
choose case s1
        case '*'     sle_1.text=string(dec(sle_1.text)*add1)
        case '/'     sle_1.text=string(add1/dec(sle_1.text))
        case '+'     sle_1.text=string(dec(sle_1.text)+add1)
        case '-'     sle_1.text=string(add1 - dec(sle_1.text))
      end choose
     add1=dec(sle_1.text)
     s1=this.text
     flag=0
在线等答案。希望各位大侠多多帮忙。

case 后的语句应另起一行，应改成：
choose case s1
  case '*'
     sle_1.text=string(dec(sle_1.text)*add1)
  case '/'     
     sle_1.text=string(add1/dec(sle_1.text))
   case '+'     
     sle_1.text=string(dec(sle_1.text)+add1)
   case '-'     
     sle_1.text=string(add1 - dec(sle_1.text))
end choose