Строки и символы - VB
Формулировка задачи:
Здравствуйте! Помогите, пожалуйста, с такой задачей:
Дана строка.
1) узнать наибольшее количество букв "а" которые идут подряд;
2) сумму позиций буквы "а".
Решение задачи: «Строки и символы»
textual
Листинг программы
Option Explicit Private Sub Комманда1_Click() Dim S As String Dim T, P S = Текст1.Text T = "а" While InStr(1, S, T) > 0 T = T & "а" Wend Текст1.SetFocus Текст1.SelStart = InStr(1, S, Left(T, Len(T) - 1)) - 1 Текст1.SelLength = Len(T) - 1 MsgBox "Чаще всего а идут подряд " & Len(T) - 1 & " раз" P = 1 T = 0 While InStr(P, S, "а") > 0 T = T + InStr(P, S, "а") P = InStr(P, S, "а") + 1 Wend MsgBox "Сумму позиций буквы а =" & T End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д