Основы программирования на Visual Basic 6.0

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

Имя переменной может состоять из цифр, латинских и русских букв, должно обязательно начинаться с буквы и не должно содержать точку «.». Количество символов должно быть не более 255.

Например, digA =55, strB =“word”, лог2 =true

Типы переменных определяют диапазоны значений, которые могут принимать переменные.

Тип	Возможные значения
Byte	Целые неотрицательные числа от 0 – 255
Integer	Целые числа от -32768 до 32767
Long	Целые числа от -2147483648 до 2147483648
Single	Десятичные числа одинарной точности от -1,4*10^-45 до 3,4*10^38
Double	Десятичные числа двойной точности от -5*10^-324 до 1,7*10^308
Boolean	Логическое значение true или false
String	Строка символов
Date	Дата от 1 января 100 г. до 31 декабря 9999 г.
Currency	Число в денежном формате
Variant	Любые значения

Объявление типа переменной

Для объявления типа переменной используют оператор определения переменной Dim:

Dim [Имя] As [Тип]

Например, Dim A As Byte.

Запись арифметических выражений на языке VB.

Арифметическая запись	Запись на VB	Описание
x+7	x+7	Сложение
x-15	x-15	Вычитание
5x	5*x	Умножение
x:y	x/y	Деление
y^x	y^x	Возведение в степень
	x\y	Целочисленное деление без округления, например, 5\2=2, а не 5/2=2,5
5(x+12y):2	5*(x+12*y)/2	Сложные выражения подчиняются тому же порядку выполнения арифметических операций, как и в математике.

Строковые выражения

Строками являются любые последовательности символов, заключенные в кавычки.

Например,

”привет”,”256”,”2*2”

При сложении таких строк осуществляется операция конкатенации (соединения).

Например, ”Рок”+”кот”=Роккот

”25”+”три”=25три

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

Логическое выражение	Запись на VB	Описание
>	>	Больше
<	<	Меньше
=	=	Равно
≥	>=	Больше или равно
≤	<=	Меньше или равно
&	And	И
V	Or	ИЛИ
Искл. ИЛИ	Xor	Исключающее ИЛИ
→	Imp	Импликация
↔	Eqv	Эквивалентность

Математические функции

Функция	Описание
Z = x Mod y	Остаток от деления x и y
Abs(x)	|x|, модуль числа x
Sqr(x)	√x, квадратный корень числа x
Exp(x)	e^x, экспоненциальная функция, e≈2,7
Round(x,a)	Округление числа x с точностью до a десятичных знаков
Rnd(x)	Датчик случайных чисел в интервале [0…1]
Sin(x)	Синус
Cos(x)	Косинус
Tan(x)	tg(x), тангенс
Atn(x)	Arctg(x), арктангенс
Log(x)	Ln(x), натуральный логарифм

Например,

Функции преобразования типов данных

^Функция	^Описание
Val (строка$)	Преобразование значения строки в десятичное число. Например, Val(2000$)=2000
Str (число)	Возвращает строку, представляющую число. Преобразование десятичного числа в строковую форму. Например, Str(2000) = 2000$ или Str(10) + Str(20) = 10 20 (вывод через пробел)
CStr (число)	Возвращает значение типа String. Например, CStr(10) + CStr(20)=1020
Oct (число)	Преобразование десятичного числа в восьмеричное число в строковой форме. Например, Oct(2000)=3720$
Hex (число)	Преобразование десятичного числа в шестнадцатеричное число в строковой форме. Например, Hex(2000)=H7D0$
Asc(строка$)	Преобразование строки в числовой код по таблице кодировки первого символа. Например, Asc(ж)=230; Asc(жар)=230.
Chr (число)	Преобразование числа в соответствующий ему символ (обратная операция Asc). Например, Chr(100)=d.

Строковые функции

^Функция	^Описание
Left (строка$,d)	Вырезает левую подстроку длиной d. Например, Left (“килобайт”,4) = кило.
Right (строка$, d)	Вырезает правую подстроку длиной d. Например, Right (“килобайт”,4) = байт.
Mid (строка$,p, d)	Вырезает произвольную подстроку длиной d, начиная с позиции p. Например, Mid (“информатика”, 3, 5) = форма.
Len (строка$)	Определяет длину строки. Например, Len (машина) = 6.

Алгоритм создания программы-калькулятора на языке Visual Basic.

1). Создать графический интерфейс. Расположить на форме столько текстовых полей ввода (TextBox), сколько переменных (исходных данных) требуется ввести по условию задачи (на картинке это два поля Text1 и Text2) и столько полей вывода, сколько потребуется для вывода решения задачи (на рисунке одно поле вывода Text3). Добавить командную кнопку, щелкнув на которой будет происходить обработка введенных данных.

2). Этап программирования. Двойной щелчок по командной кнопке ввода кода.

а) объявить тип переменных с помощью оператора Dim:

Dim [переменная 1, переменная 2,…] As [тип переменной].

б) Осуществить ввод исходных данных из текстовых окон Text1, Text2, …:

[Переменная 1] = Val(Text1.Text) (или просто Text1.Text, если в поле будут вводится не только цифры).

[Переменная 2] = Val(Text2.Text)

…

в) Записать математические выражения и уравнения на языке Visual Basic.

[Переменная 3] = [ваше матем. выражение].

Здесь же могут применяться различные алгоритмические структуры (условия и циклы).

г) Осуществить вывод результатов в текстовые поля:

Text3.Text = [Переменная 3].

…

(Обратите внимание: переменные и текстовые поля меняется местами в записи вывода).

3). Протестировать вашу программу на работоспособность, т.е. запустить на выполнение:

Run.

Основные типы алгоритмических структур.

1. Ветвление.

А) Полная команда ветвления:

…

If [условие] Then

[оператор 1]

Else

[оператор 2]

End If

…

Б) Неполная команда ветвления:

…

If [условие] Then

[оператор 1]

End If

…

В) Многовариантная команда ветвления:

…

If [условие 1] Then

[оператор 1]

ElseIf [условие 2] Then

[оператор 2]

ElseIf [условие 3] Then

[оператор 3]

Else

[оператор 4]

End If

…

2. Цикл со счетчиком

For Счетчик = Нач. знач. To Кон. знач. [step шаг]

Тело цикла

Next [Счетчик]

Например, дан фрагмент цикла со счетчиком:

For i=1 To 10

Print «Линия»

Next i

Результат: на форму выведется 10 раз подряд слово «Линия».

3. Цикл с предусловием (Цикл «Пока»).

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

Запись на языке Visual Basic:

Do While [условие]

[Тело цикла]

Loop

4. Одномерные массивы

i = 0 1 2 3 4

5

7

-5

4

2

А

Массив А состоит из 5 элементов. Индекс элемента (i) записывается в круглых скобках после

имени данного массива. Например, при i=1, А(i) = А(1) = 7