在ＶＢ中有没有计算字符串表达式，然后得出结果的属性或函数

Question

就好象javascript中的eval

Answer 1

> Script ControlMicrosoft Script Control
> Class ModuleClass Module
> 
> Public k1 As Integer
> 
> Form1CommandButtonTextBox
> 
> Private Sub Command1_Click()
> Dim a(1)
> Dim shar As New Class1
> 
> ScriptControl1.AddObject "sh", shar
> ScriptControl1.AddCode "Function Main(x)" & vbCrLf & "kk=" & Text1.Text
> & vbCrLf & "sh.k1 = kk " & vbCrLf & "End Function"
> 
> ScriptControl1.Run "main", a
> MsgBox "" & shar.k1, , ""
> End Sub
> 
> 
> Private Sub Form_Load()
> Text1.Text = "3+2*1"
> End Sub
> 
> Command1Text1