Question

VB如何处理数学表达式

Answer 1

Private
Declare
Function
EbExecuteLine
Lib
"vba6.dll"
_
(ByVal
StringToExec
As
Long,
ByVal
Any1
As
Long,
_
ByVal
Any2
As
Long,
ByVal
CheckOnly
As
Long)
As
Long
Dim
Variable
As
Variant
Function
ExecuteCode(Code
As
String,
Optional
CheckOnly
As
Boolean)
As
Boolean
ExecuteCode
=
EbExecuteLine(StrPtr(Code),
0&,
0&,
CheckOnly)
=
0
End
Function
Private
Sub
Command1_Click()
Dim
Code
As
String
Code
=
Replace(Text1.Text,
vbCrLf,
":")
Call
ExecuteCode(Code)
End
Sub
Private
Sub
Form_Load()
Text1.Text
=
"a=(1+2)*3-52+cos(1)"
+
vbCrLf
+
"
Variable=a"
+
vbCrLf
+
"
msgbox
a"
Label1.Caption
=
"请在文本框中输一段代码，看看效果"
End
Sub
把数组Oprt()中的数据相应转换为你设置的操作数或符号后加入text1字符串.....应该没什么问题了,vb6中测试通过

Answer 2

vb里面也有一数学计算中的公式啊
如abs()是最绝对值等..