vb的简单的四则运算怎么做

2025-03-24 21:37:03
推荐回答(2个)
回答1:

vb写的四则运算如下:
Private Sub Command1_Click()
On Error GoTo err

Dim s As Object
Dim Bds As String '表达式

Set s = CreateObject("MSScriptControl.ScriptControl")
s.Language = "VBScript"
Bds = Text1

Text2 = s.Eval(Bds)
Exit Sub

err:
Text2 = err.Description

End Sub

回答2:

你是根据四则运算的公式,直接给出结果,是吧?