Помогите пожалуйстаС клавиатуры вводятся 5 знаков.Подсчитать количество знаков препинания.в

Помогите пожалуйста
С клавиатуры вводятся 5 символов.Подсчитать количество символов препинания.в VBA

Задать свой вопрос
Varvara Bajzulda
Будем считать только точки и запятые, или все знаки препинания?
Диман
Быстрее всего все,как в контрольной написано так здесь и написала
Виктор
. , ; : Еще есть?
Махора Елена
Да еще 2 задания осталось
Агата Дудочкина
)))) я спрашиваю, еще знаки препинания есть, или только эти четыре?
Кира Киричева
да это все,
1 ответ
Sub Z()
Dim s As String
Dim i As Integer
Dim n As Integer
For i = 1 To 5
s = InputBox("Введите строчку")
If s = "." Or s = "," Or s = ";" Or s = ":" Then n = n + 1
Next i
MsgBox ("Знаков препинания: " amp; n)
End Sub
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт