Массив: подсчет символов в строке - VB
Формулировка задачи:
Нужно в 6 Visul Basic с помощью массива сделать следующее: ввести текст длиной до 254 символов в виде строки символов.Подсчитать сколько в строке символов, совпадающих с символом цифры,введеной с клавиатуры. Использовать функции для работы с данными символьного типа.результатом должно быть сообщение о найденном значении или об отсутствии значения и это же сделать с массивами.
помогите плиз!!!
например: "мама ела кашу"
ввод с клавы, поиск буквы "а"
вывод: буква "а" встречается 4 раза,то бишь а = 4
Решение задачи: «Массив: подсчет символов в строке»
textual
Листинг программы
Private Sub Command1_Click() Dim stroka As Variant ,k As Byte, i As Integer, char As String stroka = InputBox("введите текс") char = InputBox("введите символ") k = 0 Dim a(254) For i = 1 To 254 a(i) = Mid(stroka, i, 1) If a(i) = Char Then k = k + 1 Next i Print "текст веденный с клавиатуры = "; stroka Print "символ веденный с клавиатуры = "; char If k = 0 Then Print "Net takix"; Else Print "всего сиволов веденных с клавиатуры = "; k End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д