Контрольная по программированию на 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

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

177
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.