محاسبه عبارت

سلام دوستان...من میخوام یک برنامه با ویژوال بیسیک بنویسم که عبارتی مثل 118+8 را که بدیم نتیجه را به ما بده....لطفا هرکی بلده کدش رو بنویسه...ممنونم

سلام
میدونم که الآن خیلی دریره اما کدش رو اینطور من نوشتم امیدوارم که کمکتون کرده باشم

کد:

---

Private Function Math(strPhrase As String) As Double
    Dim strNum As String, strChar As String, strChr As String
    Dim i As Integer, intNum As Integer
    For i = 1 To Len(strPhrase)
        strChr = Mid(strPhrase, i, 1)
        If strChr >= "0" And strChr <= "9" Then
            strNum = strNum & strChr
        Else
            If i = Len(strPhrase) Then Exit For
            strChar = strChr
            intNum = Val(strNum)
            strNum = ""
        End If
    Next i
    Select Case strChar
        Case "+"
            Math = intNum + Val(strNum)
        Case "-"
            Math = intNum - Val(strNum)
        Case "*"
            Math = intNum * Val(strNum)
        Case "/"
            Math = intNum / Val(strNum)
        End Select
End Function
Private Sub Command1_Click()
    Print Text1.Text & " = " & Math(Text1.Text)
    Text1.Text = ""
End Sub

---

یه کامند روی فرم قرار بدید و یه تکست باکس اما اسمش رو تغیر ندید
امیدوارم که این مطلب خوب و مفید بوده باشه اگه سوالی هست من در خدمتم:n01: