输入一小段语句，然后执行

来源：百度知道 编辑：UC知道 时间：2024/05/31 14:58:34
用Visual Basic编程，我想实现：
在一个Textbox里面输入一个表达式，然后程序算出结果
不要用分析字符串的方法
就是让程序直接运行它

怎么做？

是要这个效果？
http://zhidao.baidu.com/question/44191276.html

还是要这个效果？

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Command1_Click()
Dim code As String
code = "a=""你好！欢迎"":msgbox left(a,3),64,right(a,2)"
ExecuteLine code
End Sub

这个好像目前还没人做到吧！！！我们都是要提取字符的！！

用第三方表达式求值控件