Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
4.1. Доработайте макрос Time1, в котором используйте текстовую функцию Format, которую можно использовать не только в формате даты и времени, но и на все остальные типы данных. Смотрите приложение к этой лабораторной работе.
For I = 1 To 7 Cells(1, I + 2) = Format(Cells(1, I + 2), "mmm d yyyy") Next I |
4.2. Проверьте работу программы.
4.3. Доработайте макрос Time1, в котором используйте текстовую функцию Mid (), аргументами которой являются строка в которой «вырывается» фрагмент, позиция, с которой начинается фрагмент, количество символов, которые нужно отделить.
For I = 1 To 7 Cells(4, I + 2) = Mid(Cells(1, I + 2), 5, 2) Next I |
4.4. Проверьте работу программы, причем, самостоятельно задайте другие параметры, например, отделите год, но отделить места больше на 10 пробелов после него.
III.Стандартные текстовые функции в VB | |
1. Asc – получение кода первого символа строки 2. Chr – получение символа по коду 3. Join – слияние строк 4. Len – вычисляет число символов в строке 5. LTrim – строка с отброшенными пробелами 6.Mid – вырезание фрагмента строки | 7. Replace -замена подстроки в строке 8. Right – вырезание фрагмента из строки с конца 9. Left - вырезание фрагмента из строки с начала 10. StrComp – сравнение двух строк StrReverse – запись строки наоборот |
4.5. Перейдите на новый лист.
4.6. Введите в ячейку А1 произвольный текст.
4.7. Создайте макрос, который будет выводить в ячейке А2 количество слов, набранных в строке ячейки А1. Для этого необходимо будет обращаться к каждой букве, что позволит сделать циклический алгоритм, а также, нужно предусмотреть предел повторения (воспользуемся функцией Len):
For I = 1 To Len(Range("A1")) If Mid(Range("A1"), I, 1) = " " Then С = С + 1 Next I Range("B1") = С+1 |
4.8. Проверьте работу программы. Почему в последней строке прибавляется к С единица?
4.9. Оформите далее этот лист так, чтобы моделировалась таблица для телеграмм. Т.е. необходимо телеграфисту вносить текст телеграммы и называть отправителю сумму, которая высвечивается автоматически (за каждое слово – 8 тенге, а также комиссионные в размере 20 % от стоимости телеграммы).
Дата публикования: 2014-12-25; Прочитано: 179 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!