Документ взят из кэша поисковой машины. Адрес оригинального документа : http://hist.msu.ru/Departments/Inf/Stud/les2.doc Дата изменения: Tue Apr 7 05:38:23 2009 Дата индексирования: Tue Oct 2 01:52:32 2012 Кодировка: koi8-r

Занятие 2 (24 февраля).
Часть 1 (теоретическая). Основные понятия и определения.

Языки и системы программирования:
. определение,
. уровни,
. поколения,
. другие классификации

Уровни языков программирования:
. низкий,
. высокий,
. сверхвысокий.

Поколения языков программирования.

Непроцедурные языки:
. языки функционального программирования,
. языки логического программирования,
. языки символьной обработки,
. языки запросов,
. языки визуального программирования,
. языки Web-программирования.

Объектно-ориентированное программирование:
. основные концепции;
. объекты;
. свойства, методы и события


Часть 2 (методическая).
. Операторы присваивания
. Условные операторы.
. Процедуры и функции.


Часть 3 (практикум).
. Блок-схемы. Построение алгоритмов с ветвлениями.
. Ввод и вывод информации:
. знакомство с функциями MsgBox и InputBox,
. знакомство со структурами If.Then и Select Case.
. Создание стартовой формы для теста.

Private Sub UserForm_Click()
a = InputBox("Введите свою фамилию", "Регистрация")
Select Case a
Case "Иванов" 'Если a = "Иванов", выводится сообщение, что это имя уже
зарегистрировано
MsgBox "Имя занято", 16, "Ошибка"
Case "Петров" 'Если a = "Петров", выводится сообщение, что это имя уже
зарегистрировано
MsgBox "Имя занято", 16, "Ошибка"
Case "Сидоров" 'Если a = "Сидоров", выводится сообщение, что это имя уже
зарегистрировано
MsgBox "Имя занято", 16, "Ошибка"
Case "" 'Если ничего не введено, выводится напоминание
MsgBox "Для регистрации надо ввести фамилию", 48, "Ошибка"
Case Else 'Если a - новое имя, выводится предложение подтвердить ввод
MsgBox "Подтвердите правильность ввода", 32, "Новый пользователь"
End Select
End Sub
Private Sub Cancel_Click()
MsgBox (Chr(34) & "Отмена" & Chr(34) & Chr(13) & Chr(10) & "Прощай")
Unload Me
End Sub

Private Sub Help_Click()
MsgBox ("Справка")
End Sub

Private Sub OK_Click()
MsgBox ("OK")
End Sub

Private Sub Подтвердить_Click()
a = kuku.Text
Label1.Caption = MsgBox("введено значение " & a, a)
Label1.Caption = "возвращено значение " & Label1.Caption
End Sub