用字符串型操作符进行运算,开发超级计算器!

引用内容 引用内容

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



文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: VB
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.