Переменные в Visual Basic

Например:

Dim a As Long
Dim b As Byte
Dim c As Long
Dim numOfLetters As Long
Dim myString As String
Dim isLoaded As Boolean

Если не указывать As Имя_Типа, то переменная будет объявлена как Variant.

Переменная может быть использована сразу после объявления.

важно заметить следующую особенность

Логично было бы объявить 3 переменные типа Long следующим образом:

Dim a, b, c As Long

В результате такого объявления VB объявит 3 переменные, первая и вторая будут иметь тип Variant, и только третья - Long!

Запомните это!

Dim myLongParam&
Dim myString$

Также можно использовать суффиксы для явного указания типа константам

Call MyProc (myParam1, myParam2, 5&)

При вызове процедуры MyProc, последний параметр имеет тип Long.
Если бы мы не указали значок &, то он (параметр) имел бы тип Byte.

Dim a As Long , Dim b As Byte , Dim c As Long
Dim myString As String
Dim isLoaded As Boolean
a = 1234567
b = 234
c = 133
myString = "Visual Basic рулит”
isLoaded = True

Казалось бы, что если запустить такой код на выполнение, то в переменной c будет находиться значение 400 (200 + 200).

Visual Basic на строке c = a + b сгенерирует ошибку Overflow

Дело в том, что в выражении справа от знака равно складываются 2 переменные типа Byte, и Visual Basic решает, что после вычисления этого выражения, должен остаться тот же тип - Byte.

Dim a As Byte
Dim b As Byte
Dim c As Long
a = 200
b = 200
c = CLng(a) + CLng(b) 'Всё в порядке

Такие переменные будет "видны" в любом месте кода формы, т.е. в любой процедуре (или функции) формы.
Переменные в данном месте могут быть объявлены с помощью зарезервированных слов Private и Public.

Первые 2 определения абсолютно эквивалентны.

Переменные объявленные таким образом будут видны в любом месте кода формы (но только той формы, где они объявлены).
В других формах обратиться к таким переменным будет нельзя.

Третья переменная будет видна всему приложению в любом месте.

Чтобы добраться к такой переменной из кода другой формы, необходимо перед именем переменной указать ещё и имя формы, где эта переменная объявлена

Form1.myGlobalVar1 = 234

При выходе из процедуры - переменная удаляется.
При очередном вызове этой процедуры - переменная заново инициализируется.

Дополнительно к словам Private, Public и Dim, в процедурах и функциях можно использовать зарезервированное слово Static.

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

Static myStat As String ' Private Static переменная

Как только объектная переменная формы будет установлена в Nothing (или после выполнения оператора Unload), все переменные уровня этой формы удаляются.

Переменные уровня модуля "живы", пока "живёт" ваше приложение.

Т.е. "живы" всегда.

Const PI = 3.1415

Для констант с плавающей точкой тип по умолчанию - Double

Для констант - целых чисел тип по умолчанию – Integer

Для того чтобы явно задать тип константы, необходимо после имени задать тип

Const PI As Long = 3 ' PI = 3, PI имеет тип Long

Например:

массив myArray будет содержать 11 элементов, потому что нижняя граница массива начинается с нуля

Чтобы задать определённую размерность можно использовать зарезервированное слово To:

Dim myArray (5 To 10) As Long

Массивы можно делать многомерными:

Dim chessTable (1 To 8, 1 To 8) As String

Dim myArray (10) As Long

Опеределяется такой массив следующим образом:
Dim ИмяМассива() [As [New] ИмяТипа]

Например:

Dim myArray () As Byte

Для начала нужно указать размерность массива

для этого в VB есть оператор ReDim.

Например:

ReDim myArray (4)

Если в дальнейшем возникнет необходимость снова изменить размерность массива, можно ещё раз использовать ReDim.

В результате, переменной myLong присвоится 0 вместо 234!

Оператор ReDim заново инициализирует все элементы массива к значению по умолчанию.

Чтобы сохранить массив в переменной типа Variant необходимо просто присвоить его этой переменной

Dim myVariantArray ' переменная Variant по умолчанию
myVarianrArray = chessTable

Обратите внимание, никакие индексы указывать не нужно!

LBound

возвращает нижнюю границу массива

UBound

возвращает верхнюю границу массива

Private Type Student ' вместо Private могло быть и Public
    FIO As String
    Age As Byte
    HasGramot As Boolean
End Type

Dim перед именем переменной указывать не нужно!

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

Dim newStud As Student

newStud.FIO = "Василий Петрович Пупкин»
newStud.Age = 19
newStud.HasGramot = False

Всё как в Pascal.

Для этого есть зарезервированное слово With.

With newStud
    .FIO = "Бабай Бабаевич Бабаев”
    .Age = 20
    .HasGramot = True
End With

Перед использованием перечисления в программе его необходимо определить с помощью зарезервированного слова Enum.

Enum Ocenka
    Neud = 3
    Horosho = 4
    Otlichno = 5
End Enum