4. Текстовые функции

   1. Доработайте макрос Time1, в котором используйте текстовую функцию Format, которую можно использовать не только в формате даты и времени, но и на все остальные типы данных. Смотрите приложение к этой лабораторной работе.

      For I = 1 To 7 Cells(1, I + 2) = Format(Cells(1, I + 2), "mmm d yyyy") Next I

   2. Проверьте работу программы.

   3. Доработайте макрос Time1, в котором используйте текстовую функцию Mid ( ), аргументами которой являются строка в которой «вырывается» фрагмент, позиция, с которой начинается фрагмент, количество символов, которые нужно отделить.

      For I = 1 To 7 Cells(4, I + 2) = Mid(Cells(1, I + 2), 5, 2) Next I

   4. Проверьте работу программы, причем, самостоятельно задайте другие параметры, например, отделите год, но отделить места больше на 10 пробелов после него.

   5. Стандартные текстовые функции в VB
      Asc – получение кода первого символа строки Chr – получение символа по коду Join – слияние строк Len – вычисляет число символов в строке LTrim – строка с отброшенными пробелами Mid – вырезание фрагмента строки	Replace -замена подстроки в строке Right – вырезание фрагмента из строки с конца Left - вырезание фрагмента из строки с начала StrComp – сравнение двух строк StrReverse – запись строки наоборот

      Перейдите на новый лист.

   6. Введите в ячейку А1 произвольный текст.

   7. Создайте макрос, который будет выводить в ячейке А2 количество слов, набранных в строке ячейки А1. Для этого необходимо будет обращаться к каждой букве, что позволит сделать циклический алгоритм, а также, нужно предусмотреть предел повторения (воспользуемся функцией Len):

      For I = 1 To Len(Range("A1")) If Mid(Range("A1"), I, 1) = " " Then С = С + 1 Next I Range("B1") = С+1

   8. Проверьте работу программы. Почему в последней строке прибавляется к С единица?

   9. Оформите далее этот лист так, чтобы моделировалась таблица для телеграмм. Т.е. необходимо телеграфисту вносить текст телеграммы и называть отправителю сумму, которая высвечивается автоматически (за каждое слово – 8 тенге, а также комиссионные в размере 20 % от стоимости телеграммы).

2. Самостоятельная работа.

   1. Использование математических функций.

Создать модель расчетов синуса, косинуса и их квадратов для указанных значений угла (Х), указанного в радианах.