在人事系統的工資模塊中,要求做到工資項目的的自定義工式,如何計算公式的結果

[zj3164]

str ="( x and y )+4*z/2"
怎樣計算出該運處的值

[射天狼]

把菜单"工程/引用/Microsoft Script Control 1.0"加入自己的工程

Private Sub Form_Load()
Dim eq As New ScriptControl

eq.Language = "VBScript"
MsgBox eq.Eval("(2*3)+4")
End Sub

[射天狼]

如果你里面带变量的话,要把变量写到外边
str ="( x and y )+4*z/2"

如
Private Sub Form_Load()
Dim x As Long, y As Long, z As Long
Dim str As String

eq.Language = "VBScript"

x = 1: y = 2: z = 3
str = "( " & x & "and " & y & ")+4*" & z & "/2"
MsgBox eq.Eval(str)
End Sub

[hxy2003]

Microsoft Script Control 1.0
楼上的方法就是...很好

[lihonggen0]

工程---部件----添加Microsoft Script Control 1.0



Private Sub Form_Load()
MsgBox ScriptControl1.Eval("200*20-30+100")
End Sub

[zj3164]

非常感謝!還想問一下,為什麼你的vb能學的這麼好呢??

[lihonggen0]

我，用VB好几年了

可以访问

www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com
http://www.codestudy.net
http://www.vbaccelerator.com/
http://www.mvps.org/vbnet/
http://www.freevbcode.com/
http://www.pscode.com/vb/
http://www.allapi.net
http://home.jlu.edu.cn/~celeron/vb/key.htm
和MSDN得到更多的帮助.............