Дана строка. Определите общее количество символов + и - в ней - VB

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

Дана строка. Определите общее количество символов + и - в нем. А так же сколько таких символов, после которых следует цифра ноль.


textual

Код к задаче: «Дана строка. Определите общее количество символов + и - в ней - VB»

Private Sub Command1_Click()
Dim S As String
Dim AllPM As Long, PM0 As Long, i As Long
  S = "0a+0+b4-c-060++0d80+e0"
  For i = 1 To Len(S)
    If Mid(S, i, 1) Like "[+-]" Then
      AllPM = AllPM + 1
      If Mid(S, i + 1, 1) = "0" Then PM0 = PM0 + 1
    End If
  Next
  Print "Всего + и - ="; AllPM
  Print "Перед 0 ="; PM0
End Sub
Эта работа вам не подошла?

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


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

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

Источник