Переменные задаются именами, которые определяют области памяти, в которых хранятся их значения. Значениями переменных могут быть данные различных типов. - презентация

1 Переменные задаются именами, которые определяют области памяти, в которых хранятся их значения. Значениями переменных могут быть данные различных типов. Типы переменных: byte single integer целые double вещественные long boolean логические string строковые variant любые Имя переменной уникально. Оно должно начинаться с буквы и не должно включать точку, не превышать 255 символов.

2 A + B сложение A - B вычитание A * B умножение A / B деление A \ B целочисленное деление A на B A ^ B возведение в степень

3 Строками являются любые последовательности, заключенные в кавычки. Операция конкатенации А = форма В = ин + A + тика Для объявления переменной можно пользоваться Dim имя переменной [as тип переменной] Например: Dim Число as integer, Строка as string Const имя константы [as тип] = значение константы Оператор присваивания [Let] имя переменной = выражение Например: A = 3 B = 4 C = A^2 + B^2 A = форма В = ин + A + тика A = 5>3 B = 2>3 C = A and B

4 Создать программу, которая выполняет деление двух целых чисел, а для хранения результата используются различные типы числовых переменных, то есть результаты будут вычисляться с различной точностью. Задача Sub Command1_click() Dim a, b as integer, c as byte, d as single, e as double a = 2 b = 3 c = a/b d = a/b e = a/b Form1.Print c, d, e End sub

5

6 Математические функции: SIN(a) COS(a) TAN(a) ATN(a) SQR(a) LOG(a) EXP(a) ABS(a) Sub Command1_click() Dim a, b, c as single a = 3 b = 4 c = SQR(a^2 + b^2) Form1.Print Гипотенуза равна; c End sub

7 Строковые функции В строковых функциях строками являются либо аргументы, либо возвращаемые функциями значения. Функция определения длины строки Len (строка) A = len («информатика») А = 11 Функция вырезания подстроки Left (строка, длина) А = left («информатика», 2) А = «ин» Right (строка, длина) B = right («информатика», 2) B = «ка» Mid (строка, позиция, длина) С = mid («информатика», 3, 5) С = «форма»

8 Дана строковая константа литературовед. Получить из неё и распечатать на форме слово радуга, разрешается добавить один недостающий символ. Задача Sub Command1_Сlick() Dim a, b as string a = «литературовед» b = mid (a, 5,2) + right (a, 1) + mid (a, 8, 1) + «г» + mid (a, 6, 1) Form1.Print b End Sub

9 Функция InputBox (Окно ввода) Для ввода данных в программу через текстовое поле на диалоговой панели используется функция InputBox. Функции ввода и вывода В качестве аргументов этой функции выступают три строки и значением функции является также строка. ! InputBox (Приглашение, Заголовок, [ по умолчанию])

10 Sub Command1_Сlick() Dim a as string a = inputbox («Введите текст», «Функция Окно ввода») Form1.Print а End Sub

11 Функция MsgBox (Панель сообщений) В простейшем случае функция MsgBox может работать в режиме оператора и использоваться для вывода сообщений не на форме, а на специальной панели сообщений. MsgBox Сообщение [, ЧисКод1 + ЧисКод2] [, Заголовок] Cтрока Сообщение выводится на панели сообщений, аргумент ЧисКод1 + Чискод2 определяет внешний вид панели, а строка Заголовок печатается в строке заголовка панели.

12 Внешний вид панели можно менять, используя различные значения ЧисКод1 и ЧисКод2. ЧисКод1 определяет внешний вид пиктограмм, ЧисКод2 набор кнопок, размещаемых на панели. ЧисКод1ЧисКод2ПиктограммаНабор кнопок OK ОК, Отмена Стоп, Повтор, Пропустить Да, Нет, Отмена Да, Нет Повтор, Отмена MsgBox "Вы хотите зарегистрироваться?",, "Вопрос" !

13 MsgBox (Сообщение [, ЧисКод1 + ЧисКод2] [, Заголовок]) В случае записи аргументов в скобках, функция MsgBox получает определенное значение, которое может быть присвоено какой-либо переменной. Переменная = Sub Command1_Click() Dim a аs вyte a = MsgBox("Вы хотите зарегистрироваться?", 36, "Вопрос") Form1.Print a End Sub Значение функции Нажатая кнопка ОК Отмена Стоп Повтор Пропустить Да Нет

14 Функции преобразования типов данных Функция Val преобразовывает строковое значение в число. Например: Val(«2000») 2000 Sub Command1_Click() Dim a, b As String, a1, b1, c As Single a = InputBox("Первый катет", "Катет А") b = InputBox("Второй катет", "Катет B") a1 = Val(a) b1 = Val(b) c = Sqr(a1 ^ 2 + b1 ^ 2) Form1.Print "Гипотенуза = "; c End Sub

15 Функции преобразования типов данных Функция Str преобразовывает число в строку. Например: Str(2000) «2000» Sub Command1_Click() Dim a As String a = InputBox("Формула закона Ома?", "Контроль знаний") If a = "U/R" Then Form1.Print "Правильно!" Else Form1.Print "Неправильно!" End If End Sub

16 Оператор условного перехода Однострочная форма Многострочная форма if условие _ then серия1 _ [ else серия2 ] if условие then серия1 [ else серия2 ] end if

17 Цикл со счетчиком for счетчик = начзнач to конзнач [step шаг ] тело цикла next [счетчик] Циклы с условием do while условие тело цикла loop do until условие тело цикла loop

18 Задача Ввести с клавиатуры координаты двух точек A и B. Определить какая из них ближе к началу координат результат вывести на панели сообщений. A(x1, y1) B(x2, y2) 0 Y X