com引用 MSScriptControl
MSScriptControl.ScriptControlClass msc=new MSScriptControl.ScriptControlClass();
msc.Language="vbs";
msc.ExecuteStatement("dim a");
msc.ExecuteStatement("If True Then a=1 End If ");
object i=msc.Eval("a");
int b=int.Parse(i.ToString());