博客展示了使用VBScript代码，借助ScriptControl对象计算表达式的值。代码中创建ScriptControl对象，设置语言为VBScript，通过Eval方法计算表达式结果并弹窗显示，同时提到ScriptControl对象需引用MicroSoft Script Control 1.0。
Option Explicit
Dim mssc As New ScriptControl
Private Sub Form_Load()
mssc.Language = "vbscript"
MsgBox mssc.Eval("Sqr(3^2+4^2)")
End Sub
ScriptControl对象 需要引用 MicroSoft Script Control 1.0
Dim mssc As New ScriptControl
Private Sub Form_Load()
mssc.Language = "vbscript"
MsgBox mssc.Eval("Sqr(3^2+4^2)")
End Sub
ScriptControl对象 需要引用 MicroSoft Script Control 1.0
扫一扫
5818
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
