{Button["Start",q=""],Button["Clear Last",If[StringLength[q]>0,q=StringDrop[q,-1]]],Button["Execute",Print[ToExpression[q]]],Dynamic[q]}
Table[With[{t=s},Button[s,q=q<>t]],{s,CharacterRange[" ","~"]}]