VB编程高手进~~~~~~~~~~~~~

添加两个控件：command1,和text1，其中command1的代码如下
Private Sub Command1_Click()
Dim St As String, Sta As String, Stb As String, i%, a#, b#
St = Trim(Text1.Text)
a = Val(St)
Sta = a
i = Len(Sta)
Stb = Mid(St, i + 1, 1)
b = Val(Mid(St, i + 2))
Select Case Stb
Case "+":
St = Str(a + b)
Case "-":
St = Str(a - b)
Case "*":
St = Str(a * b)
Case "/":
St = Str(a / b)
End Select
Text1.Text = St

End Sub

如果不只是个为数的计算,就没有方法实现.

Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Comma