Введение в программирование на VBA - eDrive

34
MsgBox "День рождения " & Day (деньРождения) & Space (2) _
& Month (деньРождения) & Space (2) & Year (деньРождения)
End Sub
Sub Время ()
MsgBox "Сейчас " & Time
перерыв = #5:12:00#
' часы, минуты, секунды
MsgBox "Обед в " & Hour (перерыв) & " часов " & Minute (перерыв) _
& " минут " & Second (перерыв) & " секунд"
End Sub
Sub ДлинаОкружности ()
Const pi = 3.14159
радиус = 2.5
MsgBox 2 * pi * радиус
End Sub
Sub ПлощадьКруга ()
Const pi = 3.14159
радиус = InputBox ("Введите радиус")
площадь = pi * радиус ^ 2
MsgBox площадь
End Sub
Sub Кнопки ()
ответ = MsgBox ("Нажмите одну из кнопок", vbYesNo + vbQuestion, _
"Да или Нет")
MsgBox "Вы нажали кнопку с кодом " & ответ
End Sub
Sub Возраст ()
родился = InputBox ("Введите год рождения")
MsgBox "Ваш возраст " & Year (Now) – Val (родился)
End Sub
Sub ВызывающаяПроцедура ()
введено = 5: ещеВведено = 10
‘ Личные переменные
Call ВызываемаяПроцедура (введено, ещеВведено)
ВызываемаяПроцедура потом:=7, сначала:=3
End Sub
Sub ВызываемаяПроцедура (сначала, потом)
перенос = Chr (13)
MsgBox Prompt := "Сначала ввели " & сначала & перенос & "Затем " _
& потом & перенос & «Всего: » & сначала + потом
End Sub
Sub ЛичныеПеременные ()
MsgBox "Я не знаю значений переменных" & введено & ещеВведено
End Sub
Sub ПятьВызовов ()
Call Вызов