eval在VB里怎么弄？

tz-chf

VB6。0不识eval

todaynew

引号起来估计他就认识了

tz-chf

怎么引号起来。VB里没有Eval啊。

todaynew

怎么引号起来。VB里没有Eval啊。
tz-chf 发表于 2010-2-27 09:11

好像有吧，可以查出来。

使用 Eval 函数可以计算一个结果为文本字符串或数值的表达式的值。
可以构造一个字符串，然后就像是一个真正的表达式一样把字符串传给 Eval 函数，。Eval 函数将计算字符串表达式并返回计算结果值。例如， Eval("1 + 1") 返回 2。
如果传给 Eval 函数的字符串包含一个函数的名称，Eval 函数会返回该函数的返回值。例如，Eval("Chr$(65)") 返回 "A"。
Eval(stringexpr)

请参见《非常简单的计算器》一文，该文中运用Eval函数进行计算。

tz-chf

ScriptControl.eval有，多个控件太麻烦，放弃这个功能算了。

todaynew

不知道你需要什么。仅仅是将字符串表达的算式计算出来的话，只需要用Eval函数即可。似乎与控件无关。

t小宝

VB6 没有EVAL，但可SQL语句实现类似功能，如：
stsql = "Select (5+3)*2 as 表达式1"
Set rst = dbs.OpenRecordset(stsql)
MsgBox rst!表达式1