- •ОСНОВНЫЕ ТИПЫ ПЕРЕМЕННЫХ VISUAL BASIC
- •В Visual Basic для описания переменных используется оператор Dim. Формат оператора имеет следующий
- •ПРИМЕРЫ
- •Стандартные математические функции Visual Basic
- •ПРИМЕР
- •ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА Линейный синтаксис
- •ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА
- •Пример
- •Операторы цикла
- •Операторы цикла
- •Примеры
- •Примеры
- •Примеры
- •Операторы цикла
- •Примеры
- •Примеры
- •Массивы
- •Описание массивов осуществляется с помощью оператора Dim.
- •Основные способы ввода и вывода элементов массива
- •НАЧАЛО
- •СОРТИРОВКА
- •Dim a() As Single, n As Integer
- •СОРТИРОВКА ВЫБОРОМ
- •Dim x() As Single, n As Integer
ОСНОВНЫЕ ТИПЫ ПЕРЕМЕННЫХ VISUAL BASIC
№ |
Тип переменной |
Описание типа |
Количество |
Принимаемые значения |
|||
п.п |
|
|
|
|
|
занимаемой |
|
. |
|
|
|
|
|
памяти |
|
1. |
Integer |
Целое число одинарной точности. |
2 байта |
-32768…32767 |
|||
2. |
Long |
Целое число двойной точности. |
4 байта |
-2 147 483 648… |
|||
|
|
|
|
|
|
|
2 147 483 647 |
3. |
Single |
Десятичное |
число |
с |
плавающей |
4 байта |
±(10-45…3·1038) |
|
|
точкой одинарной точности |
|
|
|||
4. |
Double |
Десятичное |
число |
с |
плавающей |
8 байт |
±(5·10-328…1.8·10308) |
|
|
точкой двойной точности |
|
|
|||
5. |
Currency |
Десятичное число с фиксированной |
8 байт |
±9·1014 |
|||
|
|
точкой |
|
|
|
|
|
6. |
String |
Строка символов |
|
|
1 байт/ 1 символ |
До 65 400 символов |
|
7. |
Byte |
Целое число |
|
|
|
1 байт |
0…255 |
8. |
Boolean |
Логическое значение |
|
|
2 байта |
True или False |
|
9. |
Date |
Дата и время |
|
|
|
8 байт |
1/1/100…12/31/9999 |
10. |
Object |
Экземпляр класса объекта OLE |
4 байта |
|
|||
11. |
Variant |
Любой из |
выше |
перечисленных |
16 байт + |
|
|
|
|
типов |
|
|
|
1 байт/1 символ |
|
В Visual Basic для описания переменных используется оператор Dim. Формат оператора имеет следующий вид:
DIM <имя переменной> AS <тип переменной>
DIM <имя_переменной1> AS <тип_переменной1>,<имя_переменной2> AS <тип_переменной2>
DIM <имя_ переменной1>, <имя_переменной2>, <имя_переменной3> AS <тип_переменной>
Функции преобразования типов.
Функция |
Описание |
CBool() |
Преобразует переменную строкового типа (String) в тип Boolean |
Cbyte() |
Преобразует переменную строкового типа (String) в тип Byte |
Ccur() |
Преобразует переменную строкового типа (String) в тип Currency |
Cdate() |
Преобразует переменную строкового типа (String) в тип Date |
CDbl() |
Преобразует переменную строкового типа (String) в тип Double |
Cint() |
Преобразует переменную строкового типа (String) в тип Integer |
CLng() |
Преобразует переменную строкового типа (String) в тип Long |
CSng() |
Преобразует переменную строкового типа (String) в тип Single |
CStr() |
Преобразует числовую переменную в строковый тип String |
Val() |
Преобразует переменную строкового типа (String) в числовой тип |
ПРИМЕРЫ
Dim x As Single, y As Single, a As Single x = CSng(Text1.Text)
a = CSng (Text2.Text)
Text3.Text = CStr(y)
Стандартные математические функции Visual Basic
ПРИМЕР
F=(X^(3/5)+COS(X)^2-EXP(-7*X+4))/(LOG(ABS(X-7))*X^2-4*SQR(ABS(X)))
ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА Линейный синтаксис
IF <условие> THEN <оператор1> <оператор2> <оператор3>
IF <условие> THEN <оператор1> ELSE <оператор2> <оператор3>
ОПЕРАТОР УСЛОВНОГО ПЕРЕХОДА
Блочный синтаксис
IF <условие> THEN <блок операторов>
END IF
IF <условие> THEN <блок операторов №1>
ELSE
<блок операторов №2>
END IF
IF <условие №1> THEN <блок операторов №1>
[ ELSEIF <условие №2> THEN
<блок операторов №2> ]
[ ELSEIF <условие №3> THEN
<блок операторов №3> ]
[ ELSEIF <условие №4> THEN
<блок операторов №4> ]
[ ELSE
<блок операторов №5> ]
END IF
Пример
Private Sub Command1_Click()
Dim a As Integer, b As Integer, y As Single
a = CInt(InputBox("a="))
b = CInt(InputBox("b="))
If a < b Then
y = a + b
ElseIf a = b Then
y = (a + b) / 2
Else
y = a - b
End If
MsgBox "y=" + CStr(y)
End Sub
Операторы цикла
•Цикл с параметром
For <параметр>=<выражение1> To <выражение2> [Step <шаг>] <операторы>
Next [<параметр>]
Пример
For x = a To b Step h <тело цикла>
Next x
Операторы цикла
•Цикл с предусловием
1)DO WHILE <условие> <тело цикла>
LOOP
2)DO UNTIL <условие> <тело цикла>
LOOP
3)WHILE <условие> <тело цикла>
WEND