Лист для замечаний
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1 Работа с окнами сообщений и ввода данных
Задание:
Текст программы:
S = Inputbox ( "Напишите строку текста:", _
"Окно ввода. Кужбалов Артём, Ершков Дмитрий", , 20000, 12000)
Kod = msgBox (S, vbAbortRetryIgnore +32, _
"Окно ввода. Кужбалов Артём, Ершков Дмитрий")
msgbox "код нажатой кнопки 2 окна = " & kod, , _
"Окно ввода. Кужбалов Артём, Ершков Дмитрий"
Примеры работы программы:
Рисунок 1.1 – Пример использования функции Inputbox
Рисунок 1.2 – Окно функции msgbox с показом текста, написанного в окне inputbox
Рисунок 1.3 – Коды нажатых кнопок
2 Типы данных. Константы. Переменные
Задание:
Текст программы:
Const Institut = "САФУ" 'учебное заведение
Const Specialnost = "Строительство" 'Специальность
Const Kurs = 1 'Курс
Const Group = 1 'Группа
x= Institut & ", " & Specialnost & ", " & Kurs
y= "Я учусь в " & Institut & " " & "на специальности " & " " & Specialnost & ", " & "курс " & Kurs & " " & "группа " & Group
msgbox Institut & vbLf & Specialnost & vbLf & Kurs & vbLf & Group & vbLf & x & vbLf & y, 4096 , "Кужбалов Артём и Ершков Дмитрий"
Пример работы программы:
Рисунок 2.1 – Модальное окно Msgbox
3 Массивы
Задание:
Текст программы:
A = Array (2, 4, 8, 16, 32)
msgbox "Первый элемент массива: " & A(0) & vblf & "Второй элемент массива: " & A(1) _
& vblf & "Третий элемент массива: " & A(2) & vblf & "Четвертый элемент массива: " & A(3) _
& vblf & "Пятый элемент массива: " & A(4) , , _
"Кужбалов Артём и Ершков Дмитрий"
Пример работы программы:
Рисунок 3.1 – Модальное окно Msgbox
4 Условные операторы if и case
Задание для строчного и блочного синтаксиса:
Текст программы для строчного синтаксиса:
FIO = "Кужбалов Артём и Ершков Дмитрий"
X = Inputbox ("Задайте время (формат чч:мм:сс)", "Строчный IF. " & FIO)
X = Cdate(X)
If X > #0:00:00# and X <= #6:00:00# Then Y = "ночь" else _
If X > #6:01:00# and X <= #12:00:00# Then Y = "утро" else _
If X > #12:01:00# and X <= #18:00:00# Then Y = "день" else _
If X > #18:01:00# and X <= #23:59:59# Then Y = "вечер"
Msgbox "Время = " & X & ": " & Y , , FIO
Пример работы программы строчного синтаксиса:
Рисунок 4.1 – Строчный синтаксис
Рисунок 4.2 – Результат выполнения программы
Рисунок 4.4 – Результат выполнения программы
Рисунок 4.5 – Результат выполнения программы
Рисунок 4.6 – Результат выполнения программы
Текст программы для блочного синтаксиса:
FIO = "Кужбалов Артём и Ершков Дмитрий"
X = Inputbox ("Задайте время (формат чч:мм:сс)", "Блочный IF. " & FIO)
X = Cdate(X)
If X > #0:00:00# and X <= #6:00:00# Then
Y = "ночь"
ElseIf X > #6:01:00# and X <= #12:00:00# Then
Y = "утро"
ElseIf X > #12:01:00# and X <= #18:00:00# Then
Y = "день"
ElseIf X > #18:01:00# and X <= #23:59:59# Then
Y = "вечер"
End if
Msgbox "Время = " & X & ": " & Y , , FIO
Пример работы программы блочного синтаксиса:
Рисунок 4.7 – Блочный синтаксис
Рисунок 4.8 – Результат выполнения программы
Рисунок 4.9 – Результат выполнения программы
Рисунок 4.10 – Результат выполнения программы
Рисунок 4.11 – Результат выполнения программы
Задание для программы с использованием оператора выбора Case:
Текст программы с использованием оператора выбора Case:
FIO = "Кужбалов Артём и Ершков Дмитрий"
X = InputBox("Напишите номер месяца", _
"Пример Case. " & FIO)
X = Eval(X)
Select Case X
Case 12, 1, 2 Y = "Зима"
Case 3, 4, 5 Y = "Весна"
Case 6, 7, 8 Y = "Лето"
Case 9, 10, 11 Y = "Осень"
Case Else Y = "Такого месяца не существует"
End Select
MsgBox "Месяц = "& X & _
": " & Y, 4096, FIO
Пример работы программы с использованием оператора выбора Case:
Рисунок 4.12 – Использование оператора выбора Case
Рисунок 4.13 – Результат выполнения программы
Рисунок 4.14 – Результат выполнения программы
Рисунок 4.15 – Результат выполнения программы
Рисунок 4.16 – Результат выполнения программы
Рисунок 4.17 – Результат выполнения программы