Private Sub Command1_Click()
Dim r As String
Calculate "1/17+1", r
MsgBox r
End Sub
Sub Calculate(ByVal x As String, ByRef result As String)
Dim r As Long
r = Shell("Calc.EXE", vbMinimizedFocus) ' 运行计算器。
AppActivate r
SendKeys x & "=", True
SendKeys "{home}+{end}"
SendKeys "^c"
SendKeys "%{F4}", True
result = Clipboard.GetText
Clipboard.Clear
End Sub