程序执行 输入的代码

Question

程序上的textbox可以输入  类似于if A > 30,000,000 then
  B = C - 30,000,000
Else
  B = C * 0.03
  if D > C then
    E = 0
  else
    E = C - D
  end if
end If点ok按钮 ，怎么才能执行 ，这段代码呢 ？

Answer 1

http://topic.csdn.net/t/20050428/16/3974006.html在部件中添加ms   script   control   1.0   
  在窗体中添加一个ms   script   control，一个label，两个text，两个command   
    
  程序：   
  Option   Explicit   
    
  Private   Sub   Command1_Click()   
  ScriptControl1.Language   =   "VBScript"   
  ScriptControl1.AddCode   (Text1.Text)   
  ScriptControl1.Run   ("Test")   
  End   Sub   
    
  Private   Sub   Command2_Click()   
  ScriptControl1.Language   =   "VBScript"   
  ScriptControl1.ExecuteStatement   (Text2.Text)   
  End   Sub   
    
  Private   Sub   Form_Load()   
  'Expose   the   form   as   frmMainWindow   
  ScriptControl1.AddObject   "frmMainWindow",   Me   
  Text1   =   "sub   Test()frmMainWindow.label1=""hello""   end   sub"   
  Text2   =   "frmMainWindow.BACKCOLOR=VBRED"   
  End   Sub