Question

关于VB的问题，很急，大家帮帮忙啊！

在text1里输入一个运算符号，怎样才能让他起到符号的作用，使label1和label2中的两个数运算，在label3中输出
做算24点用的

Answer 1

24点还有括号吧，下面这个能解决。

Public Function myCalc(ByVal expression As String) As String
Dim calc As Object
Set calc = CreateObject("MSScriptControl.ScriptControl")
calc.Language = "VBScript"
On Error GoTo calcerr
myCalc = calc.Eval(expression)
Exit Function
calcerr:
myCalc = Err.Description
End Function

Private Sub Command1_Click()
msgbox mycalc(text1)
End Sub

可以在text1中填写(2+3)*5-1测试下
当然，最好还是自己写后缀表达式转换：http://blog.163.com/csbqf@126/blog/static/61224371200991721221765/

Answer 2

Private Sub Command1_Click()
Select Case Text1
Case Is = "+"
Label3.Caption = Val(Label1.Caption) + Val(Label2.Caption)
Case Is = "-"
Label3.Caption = Val(Label1.Caption) - Val(Label2.Caption)
Case Is = "*"
Label3.Caption = Val(Label1.Caption) * Val(Label2.Caption)
Case Is = "/"
Label3.Caption = Val(Label1.Caption) / Val(Label2.Caption)
End Select
End Sub