Инструкция для пользователя
Private Sub cmdGrader_Click()CorrectAnswers%
Dim strGrade As String
‘Информация о числе правильных ответов берется из поля
CorrectAnswers% = CInt (txtNumberRight. Text)Case CorrectAnswers%10 strGrade = «A»9 strGrade = «A-»8 strGrade = «B»7 strGrade = «B-»6 strGrade = «C»5 strGrade = «C-»4 strGrade = «D»3 strGrade = «D-»Else strGrade = «F»Select lblGrade. Caption = strGradeSub
Тип данных |
Размер |
Byte (байт) |
1 байт |
Boolean (булевский) |
2 байта |
Integer (целое) |
2 байта |
Long (длинное целое) |
4 байта |
Single (одинарной точности) |
4 байта |
Double (двойной точности) |
8 байт |
Currency (денежный) |
8 байт |
Decimal (десятичный) |
14 байт |
Date (дата) |
8 байт |
Object (объект) |
4, байт |
String (строковый переменной длины) |
10 байт+1 байт на символ |
String (строковый фиксированной длины) |
Длина строки |
Variant (универсальный числовой) |
16 байт |
Variant (универсальный текстовый) |
22 байта+1 байт на символ |
Префиксы для имен переменных
Тип данных |
Короткий |
Длинный |
Array (массив) |
a |
ary |
Boolean (булевский) |
f |
bin |
Byte (байт) |
b |
bit |
Currency (денежный) |
c |
cur |
Data/Time (дата / время) |
dt |
dtm dat |
Double (двойной) |
d |
dbl |
Integer (целое) |
i |
int |
Long (длинное целое) |
l |
lng |
Object (объект) |
o |
obj |
Single (одинарной точности) |
sng | |
String (строковый) |
s |
str |
Variant (унивесальный) |
v |
var |