処理が面倒ですがこのようにすればできると思います。
[+]は[+]
[−]は[-]
[×]は[*]
[÷]は[/]
と表記してください
a="1+2+3+4+5"
input a,150,20
button "(・∀・)",*処理
stop
*処理
dim mode,100
max=0
flg=0
repeat
c=-1
if instr(a,flg,"+")!-1:if c>instr(a,flg,"+") or c=-1:c=instr(a,flg,"+"):mode(cnt)=0
if instr(a,flg,"-")!-1:if c>instr(a,flg,"-") or c=-1:c=instr(a,flg,"-"):mode(cnt)=1
if instr(a,flg,"*")!-1:if c>instr(a,flg,"*") or c=-1:c=instr(a,flg,"*"):mode(cnt)=2
if instr(a,flg,"/")!-1:if c>instr(a,flg,"/") or c=-1:c=instr(a,flg,"/"):mode(cnt)=3
if c=-1{
max=cnt+1
break
}
flg+c+1
await 1
loop
flg=0
repeat max-1
no1=0
no2=0
flg2=flg
if cnt=0{
if mode(cnt)=0:no1=instr(a,flg,"+")
if mode(cnt)=1:no1=instr(a,flg,"-")
if mode(cnt)=2:no1=instr(a,flg,"*")
if mode(cnt)=3:no1=instr(a,flg,"/")
flg+no1+1
ans=int(strmid(a,flg2,no1))
}
if max-2!cnt{
if mode(cnt+1)=0:no2=instr(a,flg,"+")
if mode(cnt+1)=1:no2=instr(a,flg,"-")
if mode(cnt+1)=2:no2=instr(a,flg,"*")
if mode(cnt+1)=3:no2=instr(a,flg,"/")
}else:no2=strlen(a)-flg
if mode(cnt)=0:ans+int(strmid(a,flg,no2))
if mode(cnt)=1:ans-int(strmid(a,flg,no2))
if mode(cnt)=2:ans*int(strmid(a,flg,no2))
if mode(cnt)=3:ans/int(strmid(a,flg,no2))
flg+no2+1
flg2=flg
await 1
loop
mes "'"+a+"'="+ans+""
stop