VB 例如a = "1+2"，怎样才能把这个字符串转换成表达式，即a = 1 + 2呢？

Question

VB6.0 ,好像是没有eval函数

Answer 1

首先题主要明确，VB 是一种编译性语言，不是 JS 脚本这种解释性语言，不会有 eval 这种翻译代码的函数的，因为 VB 的代码在编译的时候已经用 link.exe 翻译了，只有脚本才会有 eval 之类的函数。

 

所以要想这么用的话，只能调用 VBS 或者 JS 的函数来写，VB 本身是没有的，比如调用 VBA 的 EbExecuteLine()：

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
    
Public 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()
    ExecuteLine "Dim a As Integer"
    ExecuteLine "a = 1 + 2"
    ExecuteLine "Msgbox a"
End Sub

 

或者是用 MSScriptControl，这个题主可以自行查找下，网上有很多。

 

总之，利用 VB 本身的功能是不可能实现的，只能去调用其他的。

Answer 2

没学过，不好意思帮不上你的忙，不过希望你可以自己努力

Answer 3

楼主说的是让VB算字符串？

追问

嗯对。

追答

这里有代码，自己写的，你试试看，只支持+-*/()这几个运算符

调用MyMainCount就行了，参数就是你要运算的字符串(如："(3+5)*6")，函数的返回值就是你要的数值

追问

哎呀好麻烦哦。简单点好么？只支持+-*就可以，不需要输入数据的合法性检查。只要运算部分。谢谢哈。就是1+1*2-1这样的能算就可以

追答

楼主可以把它装到一个模块里面，调用MyMainCount就行了，里面的函数缺一不可，各有分工，让我拆开的话...
其实你不用看我的代码
我的代码并没有输入数据的合法性检查，只有运算部分...

本回答被提问者采纳