Экономическая информатика I Visual Basic for Applications Алексей

Скачать презентацию Экономическая информатика I Visual Basic for Applications Алексей Скачать презентацию Экономическая информатика I Visual Basic for Applications Алексей

informatika_-_lekciya_4._vba_13-14_uch._god.pptx

  • Размер: 499.6 Кб
  • Автор:
  • Количество слайдов: 27

Описание презентации Экономическая информатика I Visual Basic for Applications Алексей по слайдам

Экономическая информатика I Visual Basic for Applications Алексей Николаевич Попов Экономическая информатика I Visual Basic for Applications Алексей Николаевич Попов

Константы • арифметические (числовые) – 5; -12; 2, 4 E 15 • текстовые (символьные)Константы • арифметические (числовые) – 5; -12; 2, 4 E 15 • текстовые (символьные) – «пример процедуры» • Логические (булевы) – true, false • Даты — #08/30/20012# * ? 31. 08.

Переменные • Переменные – это область памяти, где программы сохраняют значения.  • ПеременныеПеременные • Переменные – это область памяти, где программы сохраняют значения. • Переменные не должны содержать пробелов, но могут содержать знак подчеркивания (_). • Примеры: x, y 1, mon, Проц_ставка.

Встроенные функции Встроенные функции

Арифметические выражения Арифметические выражения

Символы операций сравнения Символы операций сравнения

Примеры использования операторов сравнения Примеры использования операторов сравнения

Символы логических операций Символы логических операций

Логические выражения Логические выражения

Приоритеты операций Приоритеты операций

Приоритеты операций Приоритеты операций

Приоритеты операций Приоритеты операций

Оператор присваивания Оператор присваивания

Ввод данных в диалоговом режиме Sub Приветствие() Dim user = Input. Box( «Ваше имя?Ввод данных в диалоговом режиме Sub Приветствие() Dim user = Input. Box( «Ваше имя? «) Msg. Box «Привет», user End Sub

Ввод данных в диалоговом режиме Ввод данных в диалоговом режиме

Однострочный оператор IF/Then If L Then P, где L - логическое выражение, P -Однострочный оператор IF/Then If L Then P, где L — логическое выражение, P — оператор. Function Частн(x, y) If y 0 Then Частн = x/y End Function

Многострочный If / Then / End If If L Then P 1 P 2.Многострочный If / Then / End If If L Then P 1 P 2. . . Pn End If Здесь L — логическое выражение Function Корень4(x) Dim Кор2 If x >= 0 Then Кор2 = sqr(x) ‘ Кор2 — промежуточная переменная Корень4 = sqr(Кор2) End If End Function

Оператор If / Then / Else / End If If L Then P 1.Оператор If / Then / Else / End If If L Then P 1. . . Pn Else Q 1. . . Qm End If Здесь L — логическое выражение, P 1, . . . , Pn, Q 1, . . . , Qm — операторы.

Оператор Select Case / Case Else / End Select Case A 1 P 1Оператор Select Case / Case Else / End Select Case A 1 P 1 17. . Case An Pn Case Else Ps End Sel Здесь A – выражение, A 1, A 2, . . . , An – подмножества значений А.

Function Fun. Int(X) Select Case X Case Is = -1 ' Is заменяет текущееFunction Fun. Int(X) Select Case X Case Is 5 Fun. Int = 1 End Select End Function

Оператор цикла For / Next For I = start To end P 1. .Оператор цикла For / Next For I = start To end P 1. . . Pn Next I Здесь I – переменная (счетчик), start – начальное значение счетчика, end – конечное значение счетчика, P 1, . . . , Pn – операторы.

Пример Function Сумм 1(N 1, N 2) Dim k Сумм 1 = 0 ForПример Function Сумм 1(N 1, N 2) Dim k Сумм 1 = 0 For k =N 1 To N 2 Сумм 1 = Сумм 1 + k Next k End Function

Оператор цикла DO While / Loop Do While L P 1. . . PnОператор цикла DO While / Loop Do While L P 1. . . Pn Loop Здесь L — логическое выражение, P 1, . . . , Pn — операторы.

Пример Function Сумм 100(Nstart) Dim n Сумм 100 = 0 ' начальное значение суммыПример Function Сумм 100(Nstart) Dim n Сумм 100 = 0 ‘ начальное значение суммы n = Nstart Do While n < =100 Сумм 100 = Сумм 100 + n n = n + 1 Loop End Function

Оператор цикла Do Until / Loop Do Until L P 1. . . PnОператор цикла Do Until / Loop Do Until L P 1. . . Pn Loop Здесь L – логическое выражение, P 1, . . . , Pn – операторы.

Пример Sub Pass. Word() Dim PW PW =   ' начальное значение пароляПример Sub Pass. Word() Dim PW PW = » » ‘ начальное значение пароля — пробел Do Until PW = «Stud 123» PW = Input. Box ( «Пароль? » ) Loop End Sub

Оператор выхода Exit • Exit Sub • Exit Function • Exit For • ExitОператор выхода Exit • Exit Sub • Exit Function • Exit For • Exit Do