如何计算用户输入的表达式的值？

XJ_HE

如何计算用户输入的表达式的值？
如下：
请输入功率：20-5*9
如果用户输入以上表达式，那么我如何得到最后的值：-25
？？请问有没有简单的方法？


dim scgl as double
dim str as string
str = ThisDrawing.Utility.GetString(50,  vbcrlf & "输入功率:")  '一般这样：25-20

scgl=val(str) '这样根本不可能过去的。VAL可以将表达式转为数值，
                  ‘可是对于字串来说，  不能完成啊

msgbox scgl

efan2000

最简单的就用Val函数吧，它会对参数首先进行计算，然后试着转换为数字。
如：Val(20-5*9)=-25。

gzy

str(x) 将数值表达式转成字符串
chr(x)将ACS码转成字符
asc(x)将字符转成ACS码
val(x)将数字字符串转成数值
int(x)取整
cint(x)小数部分四舍五入
clng(x)转换成长整型数
cdbl(x)转换成双精度数

tukuitk

用GEOMCAL.ARX就可以实现

tukuitk

如上图

XJ_HE

呵呵，我决定采用二楼的做法。可是：
dim scgl as double
dim str as string
str = ThisDrawing.Utility.GetString(50,  vbcrlf & "输入功率:")  '一般这样：25-20

scgl=val(str) '这样根本不可能过去的。VAL可以将表达式转为数值，
                  ‘可是对于字串来说，  不能完成啊

msgbox scgl

zeng29

Val函数并不能返回以字符串形式保存的表达式的值,在AutoCADVBA中可以用以下代码,但调用时,字符串形式的表达式必须是合法的数学表达式.
Sub CalExample()
    MsgBox CalExp("20-5*9")
End Sub

Public Function CalExp(sExp As String) As Double
    Dim Temp As Double
    Temp = ThisDrawing.GetVariable("userr1")
    ThisDrawing.SendCommand "setvar userr1 " & "'cal " & sExp & vbCr
    CalExp = ThisDrawing.GetVariable("userr1")
    ThisDrawing.SetVariable "userr1", Temp
End Function

XJ_HE

我也是这么做的，看来只好如此了。不过总觉得不太习惯。
呵呵，算了，解决问题就行了吧。