Дана строка, изображающая арифметическое выражение. Вывести значение - VB

Узнай цену своей работы

Формулировка задачи:

Помогите, пожалуйста решить. Дана строка, изображающая арифметическое выражение вида «<циф- ра>±<цифра>±…±<цифра>», где на месте знака операции «±» находится символ «+» или «–» (например, «4+7–2–8»). Вывести значение данного выражения (целое число).

Решение задачи: «Дана строка, изображающая арифметическое выражение. Вывести значение»

textual
Листинг программы
Function z(c$)
Dim b$, a$, i%, S%
b = Mid(c, 1, 1)
If b <> "+" And Val(b) > 0 Then c = "+" & c
a = "": S = 0: b = ""
For i = Len(c) To 1 Step -1
    b = Mid(c, i, 1)
    If InStr(1, "+-", b) = 0 Then
        a = b & a
    Else
        If b = "+" Then
           S = S + Val(a)
        Else
           S = S - Val(a)
        End If
    a = ""
    End If
Next i
z = S
End Function

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы