Подсчитать количество символов - VB
Формулировка задачи:
Подскажите, пожалуйста, как делается:
Сделать задание, используя цикл Do..While. С клавиатуры вводиться последовательность символов при помощи диалогового окна ввода. Конец ввода символов - нажать на кнопке Cancel диалогового окна.: Подсчитать количество символов " * "
Решение задачи: «Подсчитать количество символов»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim S As String, n As Integer
- Do
- S = InputBox("Введите значение")
- If S = "*" Then n = n + 1
- Loop Until StrPtr(S) = 0
- MsgBox "Количество символов ""*"" " & n
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
