用字符串型操作符进行运算,开发超级计算器!
作者:JiaJia 日期:2008-02-05

Dim StringCalc As New ScriptControl
Private Sub Form_Load()
StringCalc.Language = "VBScript"
Debug.Print StringCalc.Eval("sin(90)")
'控制面板 -> 区域和语言选项 -> 自定义 -> 零起始显示(倒数第四行,原来的.7改为0.7。)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set StringCalc = Nothing
End Sub
评论: 0 | 引用: 0 | 查看次数: -
发表评论