В строке заменить все двоеточия точкой с запятой, подсчитать количество замен - VB
Формулировка задачи:
Помогите решить задачу, не получается)))))))
Задание вот такое.
В строке заменить все двоеточия точкой с запятой.Подсчитать количество замен.
Вот код программы но его нужно исправить по этому заданию.
Листинг программы
- Private Sub Command1_Click()
- Str1 = Text1
- Char = Text2
- k = 0
- i = 2
- s = ""
- For i = i To Len(Str1)
- If Mid(Str1, i, 1) = Char Then
- k = k + 1
- s = s + Str(i)
- End If
- Next
- Text3 = s
- Text4 = k
- End Sub
Решение задачи: «В строке заменить все двоеточия точкой с запятой, подсчитать количество замен»
textual
Листинг программы
- Function Task(Stri as String) As integer
- Task=len(Stri)-len(Replace$(Stri,":",""))
- Stri=Replace$(Stri,":",";")
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
