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

Создайте приложение «Прогулка котенка», в котором при нажатии на кнопку «Беги!» котенок перемещается по поверхности формы, а при нажатии на кнопку «Расти!» он начинает увеличиваться в размерах, при нажатии на кнопку «Выход» форма закрывается. Создайте кнопку на листе для вывода формы.

При создании экранной формы объекту Image1 присвойте следующие свойства:

Свойство	Значение
BorderStyle	0
PictureAlignmtnt	0
Picture	Указать путь к рисунку. Можно взять в галерее пакета MicrosoftOffice
Visible	True
PictureSizeMode	3

Практическое задание № 11

Напишите программу Вычисление суммы чисел, находящихся в диапазоне ячеек A1:A10 и выведите результат вычисления с поясняющими надписями в ячейкиC2:D2.

1. Откройте новую книгу. Сохраните. Лист1 переименуйте в «Пример1».

2. Диапазон ячеек A1:A10 заполните целыми числами.

3. Войдите в редактор VBA. На экране появится окно проекта. В окне проекта вставьте модуль.

4. В модуле вставьте новую процедуру с именем Primer1.

5. Наберите текст программы.

Public Sub Primer1 ()

Dim I As Byte, Sum as Integer

Sum= 0 ‘Вычисление суммы

WithSheets(“Пример1”)

For I=1 to 10

Sum = Sum + .Cells (I,1)

Next I

‘ вывод результата

.Cells(2,3) = “Сумма = “:.Cells (2,4) = Sum

End With

EndSub

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

Усложним практическое задание 11. Предположим, что мы не знаем, сколько чисел находится в столбце A. Введите в столбецAеще любое количество значений. Для определения непустых ячеек в диапазоне объекта есть свойство —Count. Так будет записываться команда для определения заполненных ячеек в столбцеAна листе «Пример1».

NS = Application.CountA(Sheets(“Пимер1”).Range(“A:A”))

В результате выполнения в переменную NSбудет записан номер последней заполненной строки в столбцеA. Предусмотрите вывод этой переменнойNSв отдельную ячейку листа для проверки правильности работы. Кроме того рассчитайте среднее арифметическое значение этих чисел.

Литература

1. Волков. В. Понятный самоучитель работы в Excel. СПб.: Питер, 2003.

2. Стоцкий. Ю. Самоучитель Office 2000. СПб.: Питер, 2002.

3. Электронные таблицы Excel для квалифицированных пользователей: Прак. пособ. / Пер. с нем. М.: ЭКОНОМ, 1996.

4. Решение математических задач средствами Excel: Практикум / В.Я. Гельман. СПб.: Питер, 2003.

5. Панфилова Т.И. Примеры и задания. (Практикум по информатике). М.: Интеллект-Центр, 2004.

Ответственный за выпуск зав. каф. С. Д. Захаров

Редактор Г. В. Долгих

Компьютерная верстка С. Ф. Обрядова

Лицензия ИД № 01500 от 10.04.2000 г.

Подписано в печать 13.01.05.

Формат 60х84/16. Гарнитура Times New Roman.

Тираж 50. Объем 1,16 усл. печ. л.

Тюменский государственный институт

мировой экономики, управления и права

625051, Г. Тюмень, ул. 30 лет Победы, 102

Отпечатано в лаборатории множительной техники Тюменского государственного института

мировой экономики, управления и права

20