作业帮 > 综合 > 作业

VB 有什么函数 能把 TEXT框里的 自己写入的 算术式子 计算呢 比如 :写入 1+1 然后把这个 算出来

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/29 04:53:29
VB 有什么函数 能把 TEXT框里的 自己写入的 算术式子 计算呢 比如 :写入 1+1 然后把这个 算出来
VB 有什么函数 能把 TEXT框里的 自己写入的 算术式子 计算呢
比如 :写入 1+1 然后把这个 算出来
TEXT 怎么转换呢?呵呵
On Error GoTo Err:
Set sc = CreateObject("ScriptControl")
sc.Language = "VBScript"
Text1 = sc.EVal(Text1)
Set sc = Nothing
Exit Sub
Err:
MsgBox Err.Description
在其他论坛上找到了 一起分享下吧.呵呵
VB 有什么函数 能把 TEXT框里的 自己写入的 算术式子 计算呢 比如 :写入 1+1 然后把这个 算出来
Private Sub Command2_Click()
ScriptControl1.Language = "VBScript"
y1 = ScriptControl1.Eval(Text1)
End Su