Задание 4 на тему «Оператор цикла с параметром»

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

Решение задания будет следующим:

Option Explicit
Sub задание_4()
Dim s As String, n, i As Byte // объявляем переменные
n = 0 //обнуляем счетчик
For i = 1 To 5 // в цикле

s = InputBox(str(i) + "-й Символ:", «Введите 5 символов», "") // вводим данные
If s = "!" Or s = "?" Or s = "." Or s = "," Or s = ":" Or s = ";" Then n = n + 1 // проверяем является ли символ известным знаком препинания
Next i
MsgBox «Количество знаков припенания= » + str(n)// выводим результат
End Sub

Все очень просто !