Подсчитать количество символов - 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