Dim stroka As String*10

Строго говоря, Visual Basic не требует объявлять большинство переменных перед их применением. Переменные называются неявно объявленные, если они сразу используются в программе, а не объявляются сначала с помощью инструкции Dim. При этом неявно объявленным переменным присваивается тип Variant, значение 0 в контексте математических операций и значение "пустая строка" в контексте строковых операций.

Visual Basic позволяет установить требование на явное объявление переменных в модуле. Для этого в разделе описания модуля надо задать инструкцию Option Explicit. Чтобы Visual Basic автоматически добавлял инструкцию Option Explicit в каждый вновь создаваемый проект, требуется:

– на стандартной панели инструментов Visual Basic открыть меню Tools, выбрать команду Options ираскрыть вкладку Editor;

– установить флажок Require Variable Declaration;

– нажать кнопку ОК.

Начало программы будет иметь вид:

Option Explicit

Текст программы

В этом случае, если переменная не будет объявлена, Visual Basic генерирует ошибку при компиляции, идентифицируя неправильную пере-менную: Variable not defined.

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

Оператор вычисляет значение выражения, стоящего справа от знака равенства, и присваивает его значение переменной, расположенной слева от знака равенства, и имеет вид:

имя переменной=выражение

Выражение – комбинация ключевых слов, функций, переменных и констант, разделенных знаками операций и круглыми скобками. Операции выполняются слева направо, порядок выполнения определяется приоритетом операций и скобками.

При записи арифметических выражений используются следующие символы арифметических операций.

Операции	Знак	Использование	Приоритет
Возведение в степень	^	a ^ b
Отрицание	–	–b
Умножение	*	a * b
Деление	/	a / b
Целочисленное деление	\	a \ b
Остаток от деления на целое	Mod	a Mod b
Сложение	+	a + b
Вычитание	–	a – b

7.5. Встроенные функции Visual Basic

В Visual Basic имеется большой набор встроенных функций, использование которых существенно облегчает процесс программирования. Обращение к встроенной функции записывается следующим образом:

имя функции(аргумент)

Имя функции определяет имя подпрограммы, вычисляющей значение функции. После выполнения подпрограммы имени функции присваивается вычисленное значение.

В библиотеке Visual Basic хранятся следующие встроенные функции.

7.5.1. Арифметические функции

Результат	Обозначение	Функция
Абсолютное значение	| x |	Abs(x)
Целая часть числа (без округления)	[x]	Int (x)
Квадратный корень		Sqr (x)
Натуральный логарифм	ln x	Log (x)
Экспонента	е х	Exp (x)
Знак числа (-1 – для отрицательных, 0 – для 0, 1 – для положительных)	sign x	Sgn (x)

Примечание.Логарифм по заданному основанию можно получить путем деления натурального логарифма числа на натуральный логарифм заданного основания.

Lg₁₀ х = Log(х)/ Log(10)

7.5.2. Тригонометрические функции

Результат	Обозначение	Функция
Синус угла	sin x	Sin (x)
Косинус угла	cos x	Cos (x)
Тангенс угла	tg x	Tan (x)
Арктангенс угла	arctg x	Atn (x)

Все остальные функции могут быть получены из этих четырех. Полный список тригонометрических функций можно найти в справочной библиотеке Visual Basic. Тригонометрические функции работают в радианной мере. Преобразование градусной меры в радианную и обратно выполняется следующим образом:

Значение угла в радианах=Значение угла в градусах*pi/180

Значение угла в градусах = Значение угла в радианах *180/pi

В стандартном Visual Basic для определения константы p в секции General необходимо поместить код:

Constant Pi As Double = 3.14159

Рассмотрим примеры записи математических выражений на языке Visual Basic;

1.

Gamma = Log(a/b)/Log(10)*Sqr(Sin(x)+Cos(x^2)) /Abs(a^b)*1E-5

2.

B = Exp(a+b)*Atn(a)^2^(1/3)*(1+gam/2)/(3*Tan(l/2))*1.5E6

3. R = 0,00000015×j

R =15e–8*fi

7.5.3. Функции работы со строками

Конкатенация (соединение)предназначена для соединения двух строк путем подстановки второй строки к концу первой. В Visual Basic можно использовать две операции для конкатенации строк: + и &. Поскольку + является также и арифметической операцией, то предпочтение отдается операции &.

Примечание. Перед знаком & и после него всегда ставится пробел, иначевыдается сообщение об ошибке: Expected: end of statement.

Функции Left, Right, Mid возвращают заданное число символов строковой переменной соответственно с левого, правого краев и из середины строки.

Left (строка, длина)

Right (строка, длина)

Mid (строка, начало [,длина])

Например, пусть Phone = "3941540 ", тогда

Code = Left(Phone,3) [Результат Code = 394]

Code = Mid(Phone,4,3) [Результат Code = 154]

Функция Len (строка) возвращает число символов в строковой пере-менной.

Number = Len(Phone) [Результат Number = 7]

Функция InStr (строка, подстрока)определяет позицию вхождения подстроки в строку. Возвращает нулевое значение, если заданный символ или подстрока не найдены, иначе – положение символа или позицию начала подстроки.

Number = InStr(Phone,"41") [Результат Number = 3]

Функция Val (значение) – преобразует строку в число.

Функция Str (значение) – преобразует число в строку.

Функция Rtrim (строка) – возвращает копию строки без пробелов в конце.

Функция Ltrim (строка) – возвращает копию строки без пробелов в начале.

Функция Trim (строка) – возвращает копию строки без пробелов в начале и конце.

Например:

Phone = " Функция "

Code = Trim(Phone) [Результат Code ="Функция"]

8. Организация ввода данных

Ввод данных можно осуществить с помощью функции InputBox() или текстового поля.

8.1. Функция InputBox()

С помощью этой функции ввод данных производится в стандартное диалоговое окно.

Сокращенный синтаксис функции выглядит так:

a= InputBox(сообщение [,заголовок] [,умолчание] [,x pos, y pos]),

где а – имя переменной, которой требуется присвоить введенное значение;

сообщение – это текст, отображаемый в диалоговом окне (текст должен быть заключен в двойные кавычки и не превышать 1024 символов);

заголовок – это текст, который размещается в заголовке окна;

умолчание – значение величины, которая будет по умолчанию находиться в текстовом поле диалогового окна;

x pos, y pos – координаты верхнего левого угла окна; если их не указывать, окно располагается в центре экрана.

Вместо необязательных параметров (указанных в квадратных скобках) ставится запятая при наличии следующих за ними параметров.

Рассмотрим фрагмент кода ввода значения площади S.

Dim S As Double

S = InputBox("Введите значение площади")

В текстовое поле введено значение 67. Когда пользователь нажимает кнопку ОК, содержимое поля присваивается переменной S. Если пользователь нажал кнопку CANCEL, возвращается строка нулевой длины.

Если видоизменить вызов функции следующим образом:

S = InputBox("Введите значение площади", "Задание № 1"),

то получим окно вида:

8.2. Ввод данных с помощью текстового поля

Для организации ввода значения S с помощью текстового поля необходимо выполнить следующие действия:

– на форме разместить текстовое поле для ввода значения площади (элемент управления "Текстовое поле", по умолчанию свойство Name этого элемента имеет значение Text1);

– в программе записать оператор

s=Val(Text1.Text) или S=Text1

9. Организация вывода данных

Вывод данных можно выполнить различными способами, например:

– c помощью оператора MsgBox;

– с помощью функции MsgBox();

– с помощью оператора Print;

– с помощью текстового поля.

9.1. Оператор MsgBox

Оператор MsgBox выводит данные в стандартное диалоговое окно, которое может иметь текст сообщения, заголовок и атрибут.

Синтаксис оператора вывода сообщений в стандартное диалоговое окно следующий:

MsgBox сообщение,[атрибут],[заголовок],

где сообщение – это текст, отображаемый в диалоговом окне (текст должен быть заключен в двойные кавычки и не превышать 1024 симво-лов);

заголовок – это текст, который размещается в заголовке окна;

атрибут – значения этого параметра определяют, какие кнопки должны отобразиться в окне.

Константа	Значение параметра атрибут	Описание
VbOKOnly		Отображается только кнопка ОК
VbOKCancel		Отображается кнопка ОК и Cancel
VbYesNoCancel		Отображается кнопка Yes, No, Cancel
VbYesNo		Отображается кнопка Yes, No
VbQuestion		Отображается вопросительный знак
VbDefaultButton1		По умолчанию активна первая кнопка
VbDefaultButton2		По умолчанию активна вторая кнопка

Для достижения желаемого результата значения констант можно складывать. Например, если в окне сообщения должны присутствовать кнопки Да и Нет, и при этом кнопка Нет назначена по умолчанию, надо воспользоваться любым из приведенных ниже параметров:

def=VbYesNo+VbDefaultButton2

def=4+ 256

Затем значение переменной def используется при вызове функции или в операторе Msgbox.

В своей простейшей форме оператор MsgBox выводит стандартное окно сообщений, которое закрывается, когда пользователь щелкает по кнопке ОК.

MsgBox "s= " & s MsgBox "s= " & s,, "Ответ"

Примечание. Вместо необязательных параметров (указанных в квадратных скобках) ставится запятая при наличии следующих за ними параметров.

9.2. Функция MsgBox()

Функция MsgBox() выводит данные в стандартное диалоговое окно,

которое может иметь текст сообщения, заголовок и набор кнопок.

Синтаксис функции вывода сообщений в стандартное диалоговое окно:

имя переменной=MsgBox(сообщение,атрибут,заголовок)

Отличие от оператора MsgBox состоит в том, что функция возвра-щает значение, позволяющее определить, какую кнопку нажал пользо-ватель.

Константа	Значение параметра атрибут	Кнопка
VbOk		Ok
VbCancel		Cancel
VbYes		Yes
VbNo		No

Например, многие приложения запрашивают подтверждение перед началом печати. Код рассмотренного в первой части методических указаний примера может выглядеть так:

Option Explicit

Private Sub Command1_Click()

Dim def As Double

Dim b As Single, s As Single, h As Single

def=4+256

b=InputBox("Введите значение b =")

s=InputBox("Введите значение s =","Cтруктура СЛЕДОВАНИЕ")

h=(–b+Sqr(b*b+8*s))/2

If MsgBox("Ответ печатать?",def,"Задание № 1")=vbYes Then

MsgBox "Значение площади равно " & s

End If

End Sub

Функция Format позволяет изменить формат представления данных, сделать его удобным для пользователя.Синтаксис функции следующий:

Format(параметр,"прототип")

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

– 0 – резервирует позицию цифрового разряда, отображает цифру, если у числа, представленного параметром, есть цифра в этой позиции;

– # – аналогичен первому параметру, но не отображаются незначащие нули;

–. (точка) – разделитель целой и дробной частей числа.

Например, использование функции Format(1.2^2, "##.###") дает результат 1.44, а использование функции Format(1.2^2, "00.000") дает результат 01.440.

9.3. Метод PRINT

Метод Print позволяет результаты вычислений выводить на форму.

Если в методе Print выводимые значения разделяются точкой сзапятой, то они печатаются один за другим через пробел, а если запятой, то каждое новое значение печатается в начале следующей зоны печати (в Visual Basic зоны начинаются через каждые 14 символов). Изменить ширину зоны позволяет функция Tab (число).

Функция Spc (число)позволяет вывести на форму заданное число пробелов.

Вывод данных на форму начинается с левого верхнего угла формы. Для изменения позиции точки вывода используются свойства CurrentX и CurrentY, аналогичные свойствам Top и Left, при помощи которых задается расстояние от верхнего левого края формы. Свойство формы ScaleMode, о котором упоминалось в первой части методических указаний, позволяет выбрать нужные единицы измерения (см, мм, пиксель). Примеры использования метода Print.

CurrentX = 1000 ’Отступ на 1000 пикселей от верхнего левого края формы вправо

CurrentY = 1000 ’Отступ на 1000 пикселей от верхнего левого края формы вниз

Print x, f ’Вывод в строку с табуляцией

Print x; f ’Вывод в строку через количество пикселей,

заданных по умолчанию

Print x ’Вывод в столбец

Print Tab(5); format(x,"0.00"); Tab(15); f

’Вывод в строку с использованием значений табуляции

9.4. Вывод данных с помощью текстового поля

Например, для организации вывода значения переменной h с помощью текстового поля необходимо выполнить следующие действия:

– на форме разместить текстовое поле для вывода в него значения h (элемент управления "Текстовое поле"; пусть свойство Name этого элемента будет Text3);

– в программе записать оператор: Text3.Тext=Str(h) или Text3=h,

где Str () – функция, преобразующая числовое значение в строковое.

Тогда при выполнении программы в текстовое поле, имеющее имя Text3, выведется значение переменной h.

10. Структурное программирование

Любой сколь угодно сложный алгоритм можно построить на основании трех структур: Следование, развилка, Цикл.

10.1. Структура Следование

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

10.2. Структура Развилка

Эта структура используется для выбора одного из нескольких возможных путей развития вычислительного процесса в зависимости от выполнения некоторого условия. Существует несколько разновидностей структуры Развилка.

10.2.1. Классическая структура Развилка

Алгоритм этой структуры выглядит так:

Структура Развилка реализуется с помощью условного оператора, имеющего вид: