表达式计算: 1. 引用:"Microsoft Script Control 1.0" 2. 代码实现: Dim StringCalc As New ScriptControl StringCalc.Language = "VBScript" ‘显示公司计算结果 Msgbox StringCalc.Eval(“25+45-sqr(10)”) Set StringCalc = Nothing
Option ExplicitPrivate Sub Command1_Click() Dim a As Double a = CDbl(Text1.Text) + CDbl(Text2.Text) MsgBox a End Sub
1. 引用:"Microsoft Script Control 1.0"
2. 代码实现:
Dim StringCalc As New ScriptControl
StringCalc.Language = "VBScript"
‘显示公司计算结果
Msgbox StringCalc.Eval(“25+45-sqr(10)”)
Set StringCalc = Nothing
Dim a As Double
a = CDbl(Text1.Text) + CDbl(Text2.Text)
MsgBox a
End Sub
n=b(0)+b(1)
msgbox n