Операторы для реализации основных алгоритмических конструкций
Линейные алгоритмы. Оператор присваивания.
Синтаксис этого оператора выглядит так: Result=5 Такая запись означает, что в ячейку памяти с идентификатором Result будет положено число 5, Знак «=» - это присвоение. Читается так: переменной Result присвоить значение 5.
В результате выполнения фрагмента такой фрагмент программы:
X=1: X=X+5
Значение переменной X будет равно 6.
Справа от знака равенства могут быть арифметические, логические и строковые выражения. Других выражений не бывает. Любое выражение может содержать в себе переменные, константы и функции, объединённые знаками соответствующих операций и скобками ().
Таблица 33 - Основные операции и функции
|
Операции |
Функции | ||||||
|
Операция |
Описание операции |
Функция |
Возвращаемое значение | ||||
|
Математические операции |
Математические функции | ||||||
|
A^B |
Возведение A в степень B |
Sin(A) |
Синус числа A | ||||
|
-A |
Перемена знака A |
Cos(A) |
Косинус числа A | ||||
|
A*B |
Умножение A на B |
Tan(A) |
Тангенс числа A | ||||
|
A/B |
Деление A на B |
Atan(A) |
Арктангенс числа A | ||||
|
A\B |
Целочисленное деление A на B |
Int(A) |
Наибольшее число, не превышающее число A | ||||
|
A Mod B |
Деление по модулю A на B |
Round(A,n) |
Числа A округлённое до n знаков после запятой | ||||
|
A+B |
Сложение A с B |
Exp(A) |
Показательная функция числа A | ||||
|
A-B |
Вычитание B из A |
Log(A) |
Натуральный логарифм числа A | ||||
|
Операции сравнения |
CInt(A) |
Целое число, ближайшее к A | |||||
|
> |
больше |
>= |
Больше или равно |
Sqr(A) |
Квадратный корень из числа A | ||
|
< |
меньше |
<= |
меньше или равно |
Abs(A) |
Абсолютное значение числа A | ||
|
= |
равно |
<> |
не равено |
Rnd(A) |
Случайное число | ||
|
Логические операции | |||||||
|
AND |
и – логическое умножение | ||||||
|
OR |
или - логическое сложение | ||||||
|
NOT |
не - логическое отрицание | ||||||
|
Текстовая операция & и текстовые функции | |||||||
|
& или + |
сцепление строк или конкатенация | ||||||
|
Len(S) |
определение длины строки S | ||||||
|
InStr(S,T) |
поиск подстроки T в строке S | ||||||
|
Left(S,K) |
выделение подстроки слева длиной K | ||||||
|
Right(S,K) |
выделение подстроки справа длиной K | ||||||
|
Val(S) |
преобразование строки S в число | ||||||
|
Str(A) |
преобразование числа А в строку сим волов | ||||||
|
Mid(S,P,[K]) |
выделение подстроки с позиции P длиной K | ||||||
|
Format(выражение;"шаблон") |
Отформатировать строку по шаблону* | ||||||
*В шаблоне могут использоваться обыкновенные и специальные символы (Таблица 34, Таблица 35). Если специальный символ нужно использовать как обыкновенный, то он заключается в двое двойных кавычек, например (””Y””)
Таблица 34 - Специальные символы для описания шаблона командыFormat
|
Тип данных |
Символ |
Назначение символа |
|
Дата
|
/ |
Разделитель компонентов даты. |
|
d |
Номер дня месяца, состоящий из 1 или 2 цифр (1-31). | |
|
y |
Номер дня в году (1-366). | |
|
dddd |
Полное название дня недели (понедельник-воскресенье). | |
|
w |
Номер дня недели (1-7). | |
|
ww |
Номер недели в году (1-53). | |
|
m |
Номер месяца, состоящий из 1 или 2 цифр (1-12). | |
|
mmmm |
Полное название месяца (Январь-Декабрь). | |
|
yyyy |
Полный номер года (0100-9999). | |
|
Время |
: |
(двоеточие) Разделитель компонентов времени. |
|
h |
Число часов, состоящее из 1 или 2 цифр (0-23). | |
|
n |
Число минут, состоящее из 1 или 2 цифр (0-59). | |
|
s |
Число секунд, состоящее из 1 или 2 цифр (0-59). | |
|
Тип данных |
Символ |
Назначение символа |
|
Тексты |
! |
Количество символов в строке вычисляется слева, а не справа |
|
< |
Преобразует все символы к верхнему регистру | |
|
> |
Преобразует все символы к нижнему регистру | |
|
& |
Любой символ или ничего | |
|
@ |
Любой символ или пробел | |
|
числа |
0 |
Цифра или ноль |
|
# |
Цифра или пробел | |
|
. |
Разделитель целой и дробной части |
Таблица 35 – Примеры использования функцииFormat(выражение;"шаблон")
|
Вид выражения |
Исходное значение выражения |
Шаблон для форматирования |
Результат | |
|
текстовое |
мария |
> |
МАРИЯ | |
|
1234567 |
&&&-&&&&& |
12-34567 | ||
|
1234567 |
!&&&-&&&&& |
123-4567 | ||
|
Числовое |
123,56 |
#.000 |
123,560 | |
|
55,123 |
#.##"руб" |
55,12руб | ||
|
даты |
1/5/2001 |
d ”-“ mmmm“-“yyyy |
1-мая-2001 | |
|
21/11/2008 |
m”-“ mmmm“-“yyyy“г. “ dddd |
21-ноября-2008г. пятница | ||
|
время |
12:30:01 |
h:n:s |
12:30:1 | |
|
12:30:21 |
h часов n минут |
12 часов 30 минут | ||
Таблица 36- Функции для работы с датами и временем
|
Выделить из даты d1: |
год |
месяц |
№ дня | ||||||||
|
Year(d1) |
Month(d1) |
Day(d1) | |||||||||
|
Date |
Текущая дата |
Time |
Текущее время | ||||||||
|
DateDiff(“единица”;d1; d2) |
Вычислить разность дат (d2-d1) в заданных единицах | ||||||||||
|
Значение единицы |
год |
месяц |
день |
час |
минута |
секунда | |||||
|
единица |
YYYY |
m |
d |
h |
n |
s | |||||
Задача.
Создать проект программы для нахождения
площади треугольника по формуле Герона.
здесь
полупериметр, а
ba,
bc и
ас стороны
треугольника
П
Рисунок 52
-Интерфейс проекта «формула Герона»
Второй этап. ЗапустимVBи создадим пользовательский интерфейс. Нам надо разместить на форме 4 объекта классаТекстовое поле, 4 объектов классаМеткаи 1 объект классаКомандная кнопка(Рисунок 52). Для их создания надо использоватьОкно инструментовToolbox(слева от формы), если его нет на экране, то открыть, используя меню:View→Toolbox. Теперь надо для каждого объекта указать свойства. Для этого на экране должна быть выставленоокно свойств- Properties. Если его нет на экране, то открыть, используя меню:View→Properties.Начнём со свойств объекта Форма. Прежде всего, изменим свойствоCaptionформы, для этого надо щелкнуть по форме вне объектов и, перейдя вокно свойств, свойству Captionформы дать название –формула Герона. Изменённые свойства остальных объектов (Таблица 37) приведены ниже. СвойствуCaptionпервой метки -Label1 присвоим значение – Введите длину радиуса.
Таблица 37 - Изменённые свойства объектов проекта «формула Герона»
|
№ |
Объект |
Свойство(Properties) |
Новое значение |
|
1 |
UserForm1(форма) |
Caption (Заголовок) |
формула Герона |
|
2 |
CommandButton1 (Кнопка) |
Caption (Заголовок) |
Расчёт |
|
Caption (Имя) |
Com1 | ||
|
3 |
Textbox1 |
Name |
ТBA |
|
4 |
Textbox2 |
Name |
ТBC |
|
5 |
Textbox3 |
Name |
ТAC |
|
6 |
Textbox4 |
Name |
tss |
|
7 |
Label1 |
Caption |
ba |
|
8 |
Label2 |
Caption |
bc |
|
9 |
Label3 |
Caption |
ac |
|
10 |
Label4 |
Caption |
Площадь треугольника |
|
11 |
Imagel1(рисунок) |
Picture |
Bitmap(вставлен рисунок треугольника) |
Третий этап. Программирование – Это главный этап создания проекта программы (Windows - приложения) в среде Visual Basic. На этом этапе мы должны создать программный код обработки события – щелчок мышью по командной кнопке, т. е. составить перечень операторов, выполнение которых приведет к решению поставленной задачи. Этот перечень операторов называется процедурой. После щелчка по командной кнопке, раскроется окно процедуры:
Private Sub Com1_Click()
…
End Sub
В этой заготовке Com1_Click() – название нашей процедуры (это название мы создали сами), Private Sub и End Sub – ключевые (служебные) слова Visual Basic, Private – частный, локальный, Sub – процедура, End – конец. Между строками этой заготовки наберем с помощью клавиатуры строки с операторами нашей программы:
Private Sub Com1_Click()
Dim ba, bc, ac, ss, pr As Single
bc = Val(TBC.Text)
ac = Val(TAC.Text)
ba = Val(TBA.Text)
pr = (bc + ba + ac)
ss = Sqr((pr - bc) * (pr - ac) * (pr - ba))
tss.Text = Format(ss, "#.## cm^2")
End Sub
После того, как текст программы набран между строками заготовки, и система программирования не выдала никаких сообщений о синтаксических ошибках можно запустить программу на выполнение, ввести исходные данные и щелкнуть мышью по командной кнопке, после чего сработает процедура Com1_Click() и в поле tss появится результат. Запуск программы на исполнение можно произвести несколькими способами:
«нажатием» кнопки
-
Run
Sub/User
Form
на панели инструментов Standart;Run Macro меню Run;
клавишей F5.
Завершение исполнения программы также можно произвести несколькими способами:
«нажатием» кнопки
-Reset
на панели инструментов Standart;командой Reset; меню Run
закрытием окна формы.
Аварийное завершение исполнения программы – одновременное нажатие Ctrl + Break .