程序执行 输入的代码

[accomp]

程序上的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按钮 ，怎么才能执行 ，这段代码呢 ？

[DarkChampion]

lz自己写一个脚本解释器

[wangjun_3298127]

你用的不是VB编程软件吗?可以执行啊

[simon__sun]

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