Пример лизинга программы
Private Sub CommandButton1_Click( )
' Расчет
10 i = 0
20 a = Range("C7").Value
30 b = Range("C8").Value
40 x = Range("C9").Value
y = x*(b+a^2)
100 If Range("A" & 12 + i).Value = "" Then
110 Range("A" & 12 + i).Value = a
120 Range("B" & 12 + i).Value = b
130 Range("C" & 12 + i).Value = x
140 Range("D" & 12 + i).Value = y
150 Else: i = i + 1: GoTo 100
160 End If
End Sub
_____________________________________________________
Private Sub CommandButton2_Click( )
' Обновление параметров
10 i = 0
20 Range("C7").Value = ""
30 Range("C8").Value = ""
40 Range("C9").Value = ""
110 Range("A12:D15").Value = ""
End Sub
Приложение Д
Пример оформления блок-схемы алгоритма решения задачи
ПРИЛОЖЕНИЕ Е
Образец титульного листа
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
«Ивановский государственный политехнический университет»
(ИВГПУ)
Кафедра высшей и прикладной математики, статистики и информационных технологий
Дисциплина «Информатика»
Контрольная работа на тему «Информатика интеллектуальных процессов электронного офиса»
Выполнила: Белова Анастасия Васильевна
(фамилия, имя, отчество полностью)
Специальность: 061500
Шифр: 025417
Вариант задания: 7
Номера заданий: 1.2 (табл. А3, В4), 2.4, 3.7.
Подпись студента:
Проверил: канд. техн. наук., доц. Комлев А.Ю.
Оценка:
Подпись преподавателя:
Дата:
ИВАНОВО 200*
Информатика интеллектуальных процессов электронного офиса
Методические указания и задания к контрольной работе по дисциплине «Информатика» для студентов очной и заочной форм обучения
Составитель: Александр Юрьевич Комлев
Научный редактор Н.А. Коробов
Редактор И.Н. Худякова
Корректор Е.В. Минаева
Компьютерная верстка А.Ю. Комлев
Лицензия ИД №06309 от 19.11.2001. Подписано в печать .
Формат 1/16 60х84. Бумага писчая. Плоская печать.
Усл. печ. л. 1,39. Уч.-изд. л. 1,33. Тираж 100 экз. Заказ №
Редакционно-издательский отдел
Ивановского государственного политехнического университета
Отдел оперативной полиграфии
153000 Г. Иваново, пр. Ф. Энгельса, 21.