Контрольная по программированию на VBA для Excel Задание 4
Задание 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
Все очень просто !