科学计算器功能的实现

来源：百度知道 编辑：UC知道 时间：2024/05/27 01:11:41
用VB做 不要求数据库

Private Sub Command1_Click()
On Error GoTo ErrHandle
Dim sc As Object
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
MsgBox sc.Eval(Text1.Text), 64, "YE"
Set sc = Nothing
Exit Sub
ErrHandle: '错误处理
MsgBox "程序出错 " & vbCrLf & "错误号: " & Err.Number & vbCrLf & "请输入正确算式! ", vbCritical Or vbOKOnly, "出错" 'Err.Description
End Sub

把邮箱留下,我发一个你