调用 VBScript 计算简单的四则混合运算数学题

function Calc(s: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(s);
end;

//调用
var
s:string;
begin
s:=Calc('10*2/5-0.32+5*2/3.15*[(6+5)-3/5]');
ShowMessage(s);
end;