Создание Web-страницы с помощью HTML.
Работа в MicrosoftWord.
УП №1
Средствами текстового процессора оформите текст из файла Text.docx в виде газетной статьи.
Описание выполнение задания:
- Открываем текстовой редактор MicrosoftWord и набираем в нем заданный текст, или копируем уже имеющий файл с нужным текстом на рабочий стол.
- Сохраняем созданный или скопированный файл на рабочий стол или в свою личную папку под новым именем.
- Настраиваем ориентацию первой страницы на альбомную, второй – на книжную.
- Текст размещаем на первой странице в три колонки. Выравниваем текст – по ширине.
- Автора текста выделяем курсивом.
- Настраиваем заголовок по центру страницы,размер заголовка больше на 2 пт основного текста, начертание полужирное.
- Настраиваем подзаголовок по левому краю, размер на 1 пт больше основного текста, начертание полужирное.
- Вставляем три иллюстрации в тест из папки image. Настраиваем обтекание текстом и стиль изображений. Вставляемавтоподпись под каждым изображением с именем «Иллюстрация № ».
- Выделенный в задании объект (например, перечень преимуществ хосписа, перечисленных Ольгой Ермаковой и отмеченный желтым цветом) оформляем как объект SmartArt. Изменяем цвет и стиль объекта.
- Настраиваем, чтобы первый абзац после заголовка и подзаголовка начинался с буквицы. Изменяем параметры буквицы, заданные по умолчанию (2 строки, шрифт TimesNewRoman 28 пт, полужирный, курсив).
- В верхний колонтитул документа набираем название документа, номер задания и дату выполнения работы.
- Добавляем подложку в виде цветного текста «Зачетное задание».
- На второй странице вставляем список иллюстраций и строку подписи в созданный документ.
- Оформляем шрифт и цвет (произвольные), главное чтобы работа произвела эстетическое впечатление.
Создание Web-страницы с помощью HTML.
УП №2
Средствами текстового редактора оформить текст из файла Text.docx в виде газетной статьи на web-странице. Сохранить его под именем, например, УП-03.01-02.html, где УП-03.01- наименование практики, 02 - номер задания, html - расширение файла web-страницы.
Требования к оформлению:
1. Первая страница, содержит краткий анонс статьи и перечень иллюстраций, с краткими комментариями по содержанию статьи. Первая и вторая иллюстрации работают как карта изображения (1 – круг, 2 - квадрат), третья иллюстрация работает – как гиперссылка. При нажатии на карту изображения или на рисунок гиперссылка переходит на следующую страницу с текстом статьи.
2. Вторая страница, на которую пользователь переходит с первой по гиперссылке содержит текст статьи с иллюстрациями, обязательно наличие таблицы.
3. На второй странице иллюстрации подписать.
4. Шрифт для оформления удобочитаемый, адекватный размер.
5. Задать фон на web-страницах по теме статьи (должен выглядеть как подложка, бледненько).
6. На обеих страницах добавить гиперссылки «Вверх», «Вниз», «Вперед», «Назад».
7. Обе страницы должны иметь эстетический вид.
- Запускаем блокнот.
- Набираем коддля страницы 1:
<html>
<head>
<title></title>
</head>
<body background="14.jpg" link=#C0C0C0 vlink=#FFD700 alink=#F08080>
<h2><palign=center><b>Государственный хоспис для детей</b></p></h2>
<p>Текст: <i>Екатерина Дементьева</i></p>
<p><b>Российская газета - Федеральный выпуск №7437 (271)</b></p>
<hrcolor=#800080>
<p>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p>
<imgsrc="1.png" align=left usemap="#map">
<map name="map"><area shape="square" coords=320, 182, 320, 182 alr="1.png" href="1.html" traget="_sels">
<p>-Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде.
<br>В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.</p>
</map>
<br><imgsrc="2.png" align=left width="350" height="200" usemap=#"computer">
<p>ВПриангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет.</p>
<br><imgsrc="3.png" align=left usemap=#"computer">
<p>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов.</p>
<br><hr color=#800080>
<br><a href="УП-03.01-02_str2.html"><p align=center><b><i>Далее</i></b></p></a>
</body>
</html>
Результат (Рис 1):
Рис. 1
- Набираемкоддлястраницы 2:
<html>
<head>
<title></title>
</head>
<body background="12.jpg" link=#9400D3 vlink=#FFD700 alink=#F08080>
<a href=#2><p align=center><i><b>Вниз</a>
<a href="\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика\УП-03.01-02"><p align=center>Главная</i></b></p></a>
<br><hrcolor=#7B68EE>
<a name=1><p>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p></a>
<table background="13.jpg" border=3 bordercolor=purple cellpadding=5 cellspacing=4 align=center width= 1100 height = 200>
<tr><tdcolspan=2><p align=center><b><i>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</i></b></p></td></tr>
<tr><td><imgsrc="1.png" align=left usemap=#"computer"></td>
<td><p align=justify>То, что детский хоспис необходим, было очевидно давно. К сожалению, врачи не боги и не всегда могут вернуть здоровье детям. И тогда нужно помочь и малышу, и его семье сохранить максимально возможное качество жизни, даже если жизни осталось не так много. Без боли, без страданий, с папой и мамой рядом.
<br>ВПриангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коекдля пациентов от 1 года до 18 лет. До сих пор их принимало только детское паллиативное отделение в Новосибирской районной больнице N 1, рассчитанное на пять мест.</p></td>
</tr>
</table>
<imgsrc="2.png" align=right width="450" height="211" usemap=#"computer">
<p>- Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде, - рассказывает главный врач ОГБУЗ "Иркутский областной хоспис" Ольга Ермакова.
Здесь есть палаты для пребывания детей с родителями, есть палаты, где находятся только дети - хоспис работает в том числе с сиротами и воспитанниками приютов. В здании также располагаются медицинские кабинеты, зал отдыха с игровыми модулями, кабинет психологической разгрузки, здесь стремятся оказывать не только медицинскую, но и психологическую помощь маленьким пациентам и их семьям. Над входом в хоспис висит яркая вывеска с девизом: "Вместе мы можем больше". И это действительно так.
<br>В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.
Сейчас в стационаре на паллиативной помощи находятся 10 ребятишек. Некоторые с родителями. Понятно, что таких детей гораздо больше. Кто-то лежит в больнице, но многих выписывают домой.</p>
<hr color=#7B68EE>
<imgsrc="3.png" align=left usemap=#"computer">
<a name=2><p>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов. Специалисты патронажа ведут мониторинг состояния здоровья детей с неизлечимыми заболеваниями, помогают родителям, дают рекомендации, что делать. За время работы детского хосписа выездная бригада посетила уже семь семей, - отметила Ольга Ермакова.
<br>В новом медучреждении работают семь врачей, 14 медсестер, девять младших медсестер. Как подчеркнул министр здравоохранения Иркутской области Олег Ярошенко, врачи, педагоги и редний медицинский персонал прошли обучение особенностям паллиативной помощи в Москве и Санкт-Петербурге.</p></a>
<br><hr color=#7B68EE>
<a href=#1><p align=center><b><i>Вверх</i></b></p></a>
</body>
</html>
Результат (см. ниже):
Рис. 2
УП №3
Задание 3.
Модифицировать оформление web-страницы задания 2, задав стиль web-страниц с помощью CSS, поместить стиль в этом же файле.
- Запускаем блокнот.
- Набираем код для страницы 1:
<html>
<head>
<title></title>
</head>
<styletype=text/css>
<!--
.h1{font-family:Aria; font-size:20pt; font-weight:bolder; text-align:center;}
.h2{font-size:15pt; text-align:left;text-decoration:underline;}
.p{font-size:14pt; text-indent:15pt;}
-->
</style>
<body background="14.jpg" link=#0000CD vlink=#9400D3 alink=#FFD700>
<divclass="h1"><b>Государственный хоспис для детей</b></div>
<divclass="h2">Текст: <i>Екатерина Дементьева</i></div>
<table border=3 bordercolor=purple cellpadding=5 cellspacing=4 align=center width= 1100 height = 200>
<tr><tdcolspan=2><divclaas="p"><p align=center><b><i>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p></div></td></tr>
<tr><td><imgsrc="1.png" align=left"></div></td>
<td><divclaas="p"> -Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде
В областномминздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.</div></td></tr>
<tr><td><imgsrc="2.png" align=left width="350" height="200" usemap=#"computer"></div></td>
<td><divclass="p">В Приангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет.</div></td></tr>
<tr><td><imgsrc="3.png" align=left usemap=#"computer"></td>
<td><divclass="p">-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов.</div></td></tr>
</table><a href="УП-03.01-03_str2.html"><p align=center><b><i>Далее</i></b></p></a>
</body>
</html>
Результат (Рис 3):
Рис. 3
- Запускаем блокнот.
- Набираем коддля страницы 2:
<html>
<head>
<title></title>
</head>
<styletype=text/css>
<!--
.p{font-size:14pt; text-indent:15pt;}
-->
</style>
<body background="13.jpg" link=#9400D3 vlink=#FFD700 alink=#F08080>
<a href=#2><p align=center><i><b>Вниз</a>
<a href="\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика\УП-03.01-03"><p align=center>Главная</i></b></p></a>
<table background="12.jpg" border=3 bordercolor=purple cellpadding=5 cellspacing=4 align=center width= 1100 height = 200>
<tr><td><a name=1><imgsrc="1.png" align=left"></a></div></td>
<td><divclaas="p">То, что детский хоспис необходим, было очевидно давно. К сожалению, врачи не боги и не всегда могут вернуть здоровье детям. И тогда нужно помочь и малышу, и его семье сохранить максимально возможное качество жизни, даже если жизни осталось не так много. Без боли, без страданий, с папой и мамой рядом.
В Приангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет. До сих пор их принимало только детское паллиативное отделение в Новосибирской районной больнице N 1, рассчитанное на пять мест.</div></td></tr>
<tr><td><imgsrc="2.png" align=left width="350" height="200" usemap=#"computer"></div></td>
<td><divclass="p"> - Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде, - рассказывает главный врач ОГБУЗ "Иркутский областной хоспис" Ольга Ермакова. Здесь есть палаты для пребывания детей с родителями, есть палаты, где находятся только дети - хоспис работает в том числе с сиротами и воспитанниками приютов. В здании также располагаются медицинские кабинеты, зал отдыха с игровыми модулями, кабинет психологической разгрузки, здесь стремятся оказывать не только медицинскую, но и психологическую помощь маленьким пациентам и их семьям. Над входом в хоспис висит яркая вывеска с девизом: "Вместе мы можем больше". И это действительно так.
В областномминздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров. Сейчас в стационаре на паллиативной помощи находятся 10 ребятишек. Некоторые с родителями. Понятно, что таких детей гораздо больше. Кто-то лежит в больнице, но многих выписывают домой.</div></td></tr>
<tr><td><imgsrc="3.png" align=left usemap=#"computer"></td>
<td><divclass="p"><a name=2>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов. Специалисты патронажа ведут мониторинг состояния здоровья детей с неизлечимыми заболеваниями, помогают родителям, дают рекомендации, что делать. За время работы детского хосписа выездная бригада посетила уже семь семей, - отметила Ольга Ермакова.
В новом медучреждении работают семь врачей, 14 медсестер, девять младших медсестер. Как подчеркнул министр здравоохранения Иркутской области Олег Ярошенко, врачи, педагоги и средний медицинский персонал прошли обучение особенностям паллиативной помощи в Москве и Санкт-Петербурге.</a></div></td></tr>
</tabel>
<a href=#1><p align=center><b><i>Вверх</i></b></p></a>
</body>
</html>
Результат (Рис 4):
Рис. 4
Работа в MicrosoftExcel.
УП№4
Задание №5
Задание№1:
На листе 1 Excel создать таблицу, как приведено на рис. 1, шрифт Calibri, размер 11 пт. Заполните данными столбцы 1-5, кроме строкИтого/кг и Итого/руб. Подсчитайте данные в столбцах 6, 7 и строках Итого/кг и Итого/руб.
Постройте объемную гистограмму, отражающую выплату каждому заготовителю. Подпишите все данные гистограммы. Сохраните файл с именем ПР_5_1.
- Запускаем Excel
- Выбираем область главного заголовка, объединяем ее и записываем заголовок сомой таблицы.
- Задаем заголовки для строк и столбцов.
- Задаем цвета таблицы.
- Записываем данные в таблицу и делаем нужные расчеты.
- Выделяем нужную область и по данным в выделенной области строим гистограмму.
- Настраиваем гистограмму (если нужно).
Результат:
Рис. 5
УП №4-1
Выполнить примеры из тетради.
- Запускаем Word.
- В разработчике запускаем VBA.
- Записываем в VBA программный код:
Option Explicit
SubЗамена_слов()
Documents.Open ("\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика-03.01\Зачем нужны макросы.docx")
With ActiveDocument.Content.Find
.ClearFormatting
.Text = "документ"
.Font.ColorIndex = wdRed
End With
.Execute Replace:=wdReplaceAll
End With
Documents("Зачемнужнымакросы.docx").Close (wdPromptToSaveChenges)
EndSub
- Второй:
SubОткрытие_И_Редактирование()
Documents.Open ("\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика-03.01\Вопросы к экзамену по Информатике.docx")
ActiveDocument.Paragraphs(1).Range.Italic = True
Documents.Open ("\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика-03.01\Вопросы к экзамену по Информатике.docx")
With ActiveDocument.Sections(1).Range
.Sentences(1).Bold = True
.Sentences(1).Font.ColorIndex = wdBlue
.Sentences(1).Font.ColorIndex = wdRed
End With
With ActiveDocument.Sections(2).Range
.Sort SortOrder:=wdSortOrderAcending
.Sections(2).Bold = True
End With
Documents("ВопросыкэкзаменупоИнформатике.docx").Close (wdPromptToSaveChenges)
EndSub
УП №5
Задание №1-2
Задание 1.
На листе 1 Excel создать таблицу и отформатировать, как приведено на рис. 1, шрифт Calibri, размер 12 пт. Заполните данными столбцы 1-6, 8, 10, кроме строкиИтого.
1) Произведите расчет Итого отработанных дней как сумму отработанных дней за март, апрель, май;
2) Произведите расчет Среднего дневного заработка по формуле:
Средний дневной заработок = Итого начислено/3/25,25 при условии, что Итого отработанных дней = норма за 3 месяца. В противном случае Средний дневной заработок = Итого начислено/ Итого отработанных дней.
3) Произведите расчет Сумма отпускных по формуле:
Сумма отпускных = Средний дневной заработок ´ Кол-во дней отпуска.
4) Произведите расчет Итого как сумму соответствующих строк.
Сохраните файл задания 1 с именем ПР_6_1.
Задание 2.
Запишите макрос построения круговой диаграммы по образцу (рис. 2). Создайте кнопку для запуска макроса.
- Запускаем Excel
- Выбираем область главного заголовка, объединяем ее и записываем заголовок сомой таблицы.
- Выбираем и задаем область подзаголовка таблицы
- Задаем заголовки для строк и столбцов.
- Задаем цвета таблицы.
- Записываем данные в таблицу и делаем нужные расчеты вписывая формулы.
- Выделяем нужную область и по данным в выделенной области строим диаграмму.
- Настраиваем диаграмму (если нужно)
Результат:
Рис 1
Задание №4
Сохраните файл задания 3 с именем ПР_6_4. Программно задайте фон ячеек - светло серый, шрифт – курсив, размер 14 пт.
Создайте кнопку на листе 1 Excel для запуска макроса.
- Запускаем Excel
- Открываем нужную таблицу (см. выше).
- В разработчике открываем VisualBasic (VBA)
- Там же в разработчике через вставку создаем две кнопки «Изменить» и «Назад» (для изменения таблицы и возврата в ее изначальную форму)
- В VBA записываем программный код для первой кнопки, которая должна изменить цвета, начертание и размер шрифта:
Sub z4()
Range("A3:K15").Interior.Color = RGB(178, 178, 178)
Range("A1:K15").Font.Size = 14
Range("A1:K15").Font.Italic = True
EndSub
- В VBA записываем программный код для второй кнопки, которая должна вернуть все как было:
Sub z4_2()
Range("A3").Interior.Color = RGB(0, 176, 240)
Range("B3").Interior.Color = RGB(197, 217, 241)
Range("C3").Interior.Color = RGB(230, 186, 183)
Range("D3:J3").Interior.Color = RGB(197, 217, 241)
Range("K3").Interior.Color = RGB(252, 213, 180)
Range("A4:K4").Interior.Color = RGB(255, 255, 0)
Range("A5:A15").Interior.Color = RGB(0, 176, 240)
Range("B5:B14").Interior.Color = RGB(196, 215, 155)
Range("C5:C15").Interior.Color = RGB(230, 186, 183)
Range("B15:K15").Interior.Color = RGB(230, 186, 183)
Range("D5:J14").Interior.Color = RGB(196, 215, 155)
Range("K5:K14").Interior.Color = RGB(252, 213, 180)
Range("A1:K15").Font.Size = 12
Range("A1:K15").Font.Italic = False
EndSub
Результаты:
Рис. 7
Рис. 8
УП №6
Задание №1
В лист Excel 1 с клавиатуры записать три фамилии с ячейки В5 по В7 и вывести текст на листExcel 2 с ячейки D9 и продолжить в строку. Создать кнопку запуска макроса.
- Запускаем Excel.
- На листе 1 в ручную (с клавиатуры) набираем текст (фамилии) в ячейки с B5 поB7.
Рис 2
- В разработчике открываем VisualBasic (VBA)
- Там же в разработчике через вставку создаем кнопку (для удобства)
- Записываем в VBA программный код:
OptionExplicit
Sub z1_pr7()
Dim A(8)
Dim i As Integer
Dim j As Integer
For j = 3 To 6
A(j) = Sheets(1).Cells(j + 1, 2)
Sheets(2).Cells(9, j) = A(j)
Sheets(2).Cells(9, j + 1).Font.Color = vbRed
Sheets(2).Cells(9, j + 1).Font.Bold = True
Next j
End Sub
Результат:
Рис 3
Задание №2
Через диалоговое окно записать 7 фамилии и вывести текст на листExcel 1 с ячейки J9 и продолжить в столбец. Создать кнопку запуска макроса.
- Запускаем Excel.
- В разработчике открываем VisualBasic (VBA)
- Там же в разработчике через вставку создаем кнопку (для удобства)
- Записываем в VBA программный код:
Sub pr7_z2()
Dim B(24)
Dim i As Integer
Dim j As Integer
For i = 9 To 15
B(i) = InputBox("Введитефамилию")
Sheets(1).Cells(i, 10) = B(i)
Sheets(1).Cells(i + 1, 10).Font.Color = RGB(255, 255, 0)
Sheets(1).Cells(i + 1, 10).Font.Italic = True
Next i
End Sub
Результат:
Рис 4
Рис5
УП №7
Задание №3
В лист Excel 1 с клавиатуры записать 8 чисел с ячейки В5 в строку и вывести на листExcel 2 с ячейки В5 и продолжить в строку. Создать кнопку запуска макроса.
- Запускаем Excel.
- В разработчике открываем VisualBasic (VBA)
- Там же в разработчике через вставку создаем кнопку (для удобства)
- Записываем в VBA программный код:
Sub pr7_z3()
Dim C(17)
Dim i As Integer
Dim j As Integer
For i = 1 To 12
C(i) = Sheets(2).Cells(5, i + 1)
Sheets(2).Cells(i + 4, 2) = C(i)
Sheets(2).Cells(i + 4, 2).Font.Color = vbYellow
Sheets(2).Cells(i + 4, 2).Font.Italic = True
Next i
End Sub
Результат:
Рис 6
Рис 7
Электронное тестирование
Задание№14.
Использование в программах строковых переменных, использование основных функций для работы со строками.
Задание 2.
1) В тексте: "Вся информация в лифлете носит ознакомительный характер" программой определить и вывести на UserForm: число букв в тексте; число слов в тексте; слово с наибольшей и наименьшей длиной. Создать кнопку для запуска макроса.
Для выполнения задания:
- Запускаем Excel.
- В разработчике открываем VisualBasic (VBA)
- Там же в разработчике через вставку создаем кнопку (для удобства) (Рис 13, Рис 14)
- Записываем в VBA программный код:
Private Sub CommandButton1_Click() – Кнопказапускамакросаформы 1.
ПодсчетСимволов.Show
End Sub
OptionExplicit
DimaAsString – задаемосновную переменную, с которой начинается работа.
PrivateSubCommandButton1_Click() – программирование кнопки вывода информации(Рис 15).
Dimb, i, k, z, kol, kolsim, mina, maxa – переменные для программы.
a = Label2
z = Split(a)
kolsim = UBound(z) + 1
Label7 = "" &kolsim
For i = LBound(z) To UBound(z)
z(i) = Trim(z(i))
kol = kol + Len(z(i))
Next i
Label8 = "" &kol
mina = Len(z(0))
For i = 1 To UBound(z)
If Len(z(i)) < mina Or Len(z(i)) = mina Then
mina = Len(z(i))
b = b &z(i) & "; "
End If
Next i
Label9 = "" & b
maxa = Len(z(0))
For i = 5 To UBound(z)
If Len(z(i)) >maxa Or Len(z(i)) = maxa Then
mina = Len(z(i))
k = k &z(i) & "; "
End If
Next i
Label10 = "" & k
Label11 = "Спасибо за внимание!"
EndSub
PrivateSubCommandButton2_Click() – программированиекнопкиочисткии последующего закрытия.
Label7 = ""
Label8 = ""
Label9 = ""
Label10 = ""
Label11 = ""
ПодсчетСимволов.Hide
EndSub
Рис 14
Рис 15
Рис 16
2) В текстовое поле на UserForm вводится любое предложение. Программой заменить второе и четвертое слово, написав их заглавными буквами, определить и вывести на UserForm: число букв в тексте; число слов в тексте; слово с наибольшей и наименьшей длиной.
Для выполнения задания:
- Запускаем Excel.
- В разработчике открываем VisualBasic (VBA)
- Там же в разработчике через вставку создаем кнопку (для удобства) (Рис 17)
Private Sub CommandButton2_Click() – кнопказапускамакросаформы 2
ИзменениеТекстаИПодсчетСимволов.Show
End Sub
OptionExplicit
DimaAsString - задаемосновную переменную, с которой начинается работа.
PrivateSubCommandButton1_Click()– выводаинформации (Рис 19).
Dim b, i, k, z, kol, kolsim, mina, maxa
a = TextBox1
Label7 = UCase(TextBox1.Text)
z = Split(a)
kolsim = UBound(z) + 1
Label9 = "" &kolsim
For i = LBound(z) To UBound(z)
z(i) = Trim(z(i))
kol = kol + Len(z(i))
Next i
Label8 = "" &kol
mina = Len(z(0))
For i = 1 To UBound(z)
If Len(z(i)) < mina Or Len(z(i)) = mina Then
mina = Len(z(i))
b = b &z(i) & "; "
End If
Next i
Label10 = "" & b
maxa = Len(z(0))
For i = 3 To UBound(z)
If Len(z(i)) >maxa Or Len(z(i)) = maxa Then
mina = Len(z(i))
k = k &z(i) & "; "
End If
Next i
Label11 = "" & k
End Sub
PrivateSubCommandButton2_Click()– программированиекнопкиочистки.
TextBox1 = ""
Label7 = ""
Label8 = ""
Label9 = ""
Label10 = ""
Label11 = ""
End Sub
PrivateSubCommandButton3_Click()– программированиекнопкизакрытия.
TextBox1 = ""
Label7 = ""
Label8 = ""
Label9 = ""
Label10 = ""
Label11 = ""
ИзменениеТекстаИПодсчетСимволов.Hide
EndSub
Результат:
Рис 17
Рис 18
Рис 19
Задание№15.
Работа в MicrosoftWord.
УП №1
Средствами текстового процессора оформите текст из файла Text.docx в виде газетной статьи.
Описание выполнение задания:
- Открываем текстовой редактор MicrosoftWord и набираем в нем заданный текст, или копируем уже имеющий файл с нужным текстом на рабочий стол.
- Сохраняем созданный или скопированный файл на рабочий стол или в свою личную папку под новым именем.
- Настраиваем ориентацию первой страницы на альбомную, второй – на книжную.
- Текст размещаем на первой странице в три колонки. Выравниваем текст – по ширине.
- Автора текста выделяем курсивом.
- Настраиваем заголовок по центру страницы,размер заголовка больше на 2 пт основного текста, начертание полужирное.
- Настраиваем подзаголовок по левому краю, размер на 1 пт больше основного текста, начертание полужирное.
- Вставляем три иллюстрации в тест из папки image. Настраиваем обтекание текстом и стиль изображений. Вставляемавтоподпись под каждым изображением с именем «Иллюстрация № ».
- Выделенный в задании объект (например, перечень преимуществ хосписа, перечисленных Ольгой Ермаковой и отмеченный желтым цветом) оформляем как объект SmartArt. Изменяем цвет и стиль объекта.
- Настраиваем, чтобы первый абзац после заголовка и подзаголовка начинался с буквицы. Изменяем параметры буквицы, заданные по умолчанию (2 строки, шрифт TimesNewRoman 28 пт, полужирный, курсив).
- В верхний колонтитул документа набираем название документа, номер задания и дату выполнения работы.
- Добавляем подложку в виде цветного текста «Зачетное задание».
- На второй странице вставляем список иллюстраций и строку подписи в созданный документ.
- Оформляем шрифт и цвет (произвольные), главное чтобы работа произвела эстетическое впечатление.
Создание Web-страницы с помощью HTML.
УП №2
Средствами текстового редактора оформить текст из файла Text.docx в виде газетной статьи на web-странице. Сохранить его под именем, например, УП-03.01-02.html, где УП-03.01- наименование практики, 02 - номер задания, html - расширение файла web-страницы.
Требования к оформлению:
1. Первая страница, содержит краткий анонс статьи и перечень иллюстраций, с краткими комментариями по содержанию статьи. Первая и вторая иллюстрации работают как карта изображения (1 – круг, 2 - квадрат), третья иллюстрация работает – как гиперссылка. При нажатии на карту изображения или на рисунок гиперссылка переходит на следующую страницу с текстом статьи.
2. Вторая страница, на которую пользователь переходит с первой по гиперссылке содержит текст статьи с иллюстрациями, обязательно наличие таблицы.
3. На второй странице иллюстрации подписать.
4. Шрифт для оформления удобочитаемый, адекватный размер.
5. Задать фон на web-страницах по теме статьи (должен выглядеть как подложка, бледненько).
6. На обеих страницах добавить гиперссылки «Вверх», «Вниз», «Вперед», «Назад».
7. Обе страницы должны иметь эстетический вид.
- Запускаем блокнот.
- Набираем коддля страницы 1:
<html>
<head>
<title></title>
</head>
<body background="14.jpg" link=#C0C0C0 vlink=#FFD700 alink=#F08080>
<h2><palign=center><b>Государственный хоспис для детей</b></p></h2>
<p>Текст: <i>Екатерина Дементьева</i></p>
<p><b>Российская газета - Федеральный выпуск №7437 (271)</b></p>
<hrcolor=#800080>
<p>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p>
<imgsrc="1.png" align=left usemap="#map">
<map name="map"><area shape="square" coords=320, 182, 320, 182 alr="1.png" href="1.html" traget="_sels">
<p>-Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде.
<br>В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.</p>
</map>
<br><imgsrc="2.png" align=left width="350" height="200" usemap=#"computer">
<p>ВПриангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет.</p>
<br><imgsrc="3.png" align=left usemap=#"computer">
<p>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов.</p>
<br><hr color=#800080>
<br><a href="УП-03.01-02_str2.html"><p align=center><b><i>Далее</i></b></p></a>
</body>
</html>
Результат (Рис 1):
Рис. 1
- Набираемкоддлястраницы 2:
<html>
<head>
<title></title>
</head>
<body background="12.jpg" link=#9400D3 vlink=#FFD700 alink=#F08080>
<a href=#2><p align=center><i><b>Вниз</a>
<a href="\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика\УП-03.01-02"><p align=center>Главная</i></b></p></a>
<br><hrcolor=#7B68EE>
<a name=1><p>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p></a>
<table background="13.jpg" border=3 bordercolor=purple cellpadding=5 cellspacing=4 align=center width= 1100 height = 200>
<tr><tdcolspan=2><p align=center><b><i>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</i></b></p></td></tr>
<tr><td><imgsrc="1.png" align=left usemap=#"computer"></td>
<td><p align=justify>То, что детский хоспис необходим, было очевидно давно. К сожалению, врачи не боги и не всегда могут вернуть здоровье детям. И тогда нужно помочь и малышу, и его семье сохранить максимально возможное качество жизни, даже если жизни осталось не так много. Без боли, без страданий, с папой и мамой рядом.
<br>ВПриангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коекдля пациентов от 1 года до 18 лет. До сих пор их принимало только детское паллиативное отделение в Новосибирской районной больнице N 1, рассчитанное на пять мест.</p></td>
</tr>
</table>
<imgsrc="2.png" align=right width="450" height="211" usemap=#"computer">
<p>- Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде, - рассказывает главный врач ОГБУЗ "Иркутский областной хоспис" Ольга Ермакова.
Здесь есть палаты для пребывания детей с родителями, есть палаты, где находятся только дети - хоспис работает в том числе с сиротами и воспитанниками приютов. В здании также располагаются медицинские кабинеты, зал отдыха с игровыми модулями, кабинет психологической разгрузки, здесь стремятся оказывать не только медицинскую, но и психологическую помощь маленьким пациентам и их семьям. Над входом в хоспис висит яркая вывеска с девизом: "Вместе мы можем больше". И это действительно так.
<br>В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.
Сейчас в стационаре на паллиативной помощи находятся 10 ребятишек. Некоторые с родителями. Понятно, что таких детей гораздо больше. Кто-то лежит в больнице, но многих выписывают домой.</p>
<hr color=#7B68EE>
<imgsrc="3.png" align=left usemap=#"computer">
<a name=2><p>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов. Специалисты патронажа ведут мониторинг состояния здоровья детей с неизлечимыми заболеваниями, помогают родителям, дают рекомендации, что делать. За время работы детского хосписа выездная бригада посетила уже семь семей, - отметила Ольга Ермакова.
<br>В новом медучреждении работают семь врачей, 14 медсестер, девять младших медсестер. Как подчеркнул министр здравоохранения Иркутской области Олег Ярошенко, врачи, педагоги и редний медицинский персонал прошли обучение особенностям паллиативной помощи в Москве и Санкт-Петербурге.</p></a>
<br><hr color=#7B68EE>
<a href=#1><p align=center><b><i>Вверх</i></b></p></a>
</body>
</html>
Результат (см. ниже):
Рис. 2