Рабочие листы
к вашим урокам
Скачать
1 слайд
Экономическая информатика I
Visual Basic for Applications
Алексей Николаевич Попов
2 слайд
Константы
арифметические (числовые) – 5; -12; 2,4E15
текстовые (символьные) – "пример процедуры"
Логические (булевы) – true, false
Даты - #08/30/20012#
* ? 31.08.2012
3 слайд
Переменные
Переменные – это область памяти, где программы сохраняют значения.
Переменные не должны содержать пробелов, но могут содержать знак подчеркивания (_).
Примеры: x, y1, mon, Проц_ставка.
4 слайд
Встроенные функции
5 слайд
Арифметические выражения
6 слайд
Символы операций сравнения
7 слайд
Примеры использования операторов сравнения
8 слайд
Символы логических операций
9 слайд
Логические выражения
10 слайд
Приоритеты операций
11 слайд
Приоритеты операций
12 слайд
Приоритеты операций
13 слайд
Оператор присваивания
14 слайд
Ввод данных в диалоговом режиме
Sub Приветствие()
Dim user
user = InputBox(«Ваше имя? ")
MsgBox "Привет", user
End Sub
15 слайд
Ввод данных в диалоговом режиме
16 слайд
Однострочный оператор IF/Then
If L Then P,
где L - логическое выражение, P - оператор.
Function Частн(x,y)
If y <> 0 Then Частн = x/y
End Function
17 слайд
Многострочный If / Then / End If
If L Then
P1
P2
...
Pn
End If
Здесь L - логическое выражение
Function Корень4(x)
Dim Кор2
If x >= 0 Then
Кор2 = sqr(x) ' Кор2 - промежуточная переменная
Корень4 = sqr(Кор2)
End If
End Function
18 слайд
Оператор If / Then / Else / End If
If L Then
P1
...
Pn
Else
Q1
...
Qm
End If
Здесь L - логическое выражение, P1,..., Pn, Q1,..., Qm - операторы.
19 слайд
Оператор Select Case / Case / Case Else / End Select
Select Case A
Case A1
P1
17
....
Case An
Pn
Case Else
Ps
End Sel
Здесь A – выражение, A1,A2,...,An – подмножества множества значений А.
20 слайд
Function FunInt(X)
Select Case X
Case Is <= -1 ' Is заменяет текущее значение переменной X.
FunInt = 0
Case -1 To 3
FunInt = 0,2
Case 3 To 5
FunInt = 0,7
Case Else ' эквивалентная запись Case Is > 5
FunInt = 1
End Select
End Function
21 слайд
Оператор цикла For / Next
For I = start To end
P1
...
Pn
Next I
Здесь I – переменная (счетчик), start – начальное значение счетчика, end – конечное
значение счетчика, P1, ..., Pn – операторы.
22 слайд
Пример
Function Сумм1(N1,N2)
Dim k
Сумм1 = 0
For k =N1 To N2
Сумм1 = Сумм1 + k
Next k
End Function
23 слайд
Оператор цикла DO While / Loop
Do While L
P1
...
Pn
Loop
Здесь L - логическое выражение, P1, ..., Pn - операторы.
24 слайд
Пример
Function Сумм100(Nstart)
Dim n
Сумм100 = 0 ' начальное значение суммы
n = Nstart
Do While n < =100
Сумм100 = Сумм100 + n
n = n + 1
Loop
End Function
25 слайд
Оператор цикла Do Until / Loop
Do Until L
P1
...
Pn
Loop
Здесь L – логическое выражение, P1, ..., Pn – операторы.
26 слайд
Пример
Sub PassWord()
Dim PW
PW = " " ' начальное значение пароля - пробел
Do Until PW = "Stud123"
PW = InputBox( "Пароль?" )
Loop
End Sub
27 слайд
Оператор выхода Exit
Exit Sub
Exit Function
Exit For
Exit Do
Рабочие листы
к вашим урокам
Скачать
6 625 839 материалов в базе
Настоящий материал опубликован пользователем Искалиева Ания Раильевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
600 ч.
Мини-курс
6 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.