Дана строка. Определить, сколько раз в строке встречается заданный символ, и указать места расположения (позиции) этого символа в строке.
Схема алгоритма показана на рисунке 5, а экранная форма программы с примером решения задачи показана на рисунке 6.
Для ввода значений переменных n и x, а также вывода результатов используются текстовые поля (объект TextBox).
Рисунок 5. Схема алгоритма
Private Sub Command1_Click()
Str1 = Text1
Char = Text2
k = 0
s = ""
For i = 1 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
Private Sub Command2_Click()
End
End Sub
Рисунок 6. Экранная форма программы с примером решения задачи
Пользователь, раз уж ты добрался до этой строки, ты нашёл тут что-то интересное или полезное для себя. Надеюсь, ты просматривал сайт в браузере Firefox, который один правильно отражает формулы, встречающиеся на страницах. Если тебе понравился контент, помоги сайту материально. Отключи, пожалуйста, блокираторы рекламы и нажми на пару баннеров вверху страницы. Это тебе ничего не будет стоить, увидишь ты только то, что уже искал или ищешь, а сайту ты поможешь оставаться на плаву.