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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.400 из 5

Источник