Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive Введение в программирование на VBA - eDrive
46 Function СтавкаНалога (сумма) If сумма 12 Then Exit Do Loop While процент = 12 MsgBox "Минимальная ставка налога удерживается " & _ месяц - 1 & " месяцев" End Sub Sub НеОтменаПока () Do Beep ответ = MsgBox ("Повторить ", vbYesNoCancel) Loop Until ответ = vbNo End Sub Sub ПокаБуквы () алфавит = “” While Len (алфавит)
47 Тип данных, обозначение Название, величина Long & Длинный целый Вещественный Single ! Double # Размер (байт) Currency @ Валюта 8 4 4 Значения от –2147483648 до 2147483647 от –3,402823E38 до 1,401298E45 8 от –1,79E308 до 1,79E308 от 0 до 922337203685477.58 Длинный вещественный Decimal Масштабируемый целый 14 от –10E28 до 10E28 Date Дата, время 8 от 1/1/100 до 31/12/9999. Object Объект 4 Ссылка на объект String $ Строка 1 байт на символ от 0 до 2 млрд. Type Задается Сумма значений членов Variant Произвольный символ 16 + 1 байт на Подтипы типа данных Variant vbEmpty 0 Отсутствует инициализация vbNull 1 Отсутствующие данные vbInteger 2 Целый vbLong 3 Длинный целый vbSingle 4 Вещественный vbDouble 5 Длинный вещественный vbCurrency 6 Валюта vbDate 7 Дата vbString 8 Строка vbObject 9 Объект OLE Automation vbError 10 Ошибка vbBoolean 11 Логический vbVariant 12 Массив произвольного типа vbDataObject 13 Не объект OLE Automation vbDecimal 14 Масштабируемый целый vbByte 17 Байт vbArray 8192 Массив Любое число, символ При программировании следует задавать типы данных, которые расходуют минимум памяти, но достаточны для хранения всех требуемых значений данных. Если переменная или константа не объявлена или объявлена без указания типа, Visual Basic рассматривает ее как тип Variant. Variant
- Page 1 and 2: В. М. Водовозов Введ
- Page 3 and 4: Оглавление ИНФОРМА
- Page 5 and 6: 5 Единение знака и з
- Page 7 and 8: 7 клавиатурой и пр.,
- Page 9 and 10: 9 необходимый миним
- Page 11 and 12: 11 регламентируя пр
- Page 13 and 14: 13 правым щелчком по
- Page 15 and 16: 15 Удалить окна диал
- Page 17 and 18: 17 Для документиров
- Page 19 and 20: 19 Макрокоманда Имя
- Page 21 and 22: 21 языка Basic, утвержд
- Page 23 and 24: 23 • модули классов,
- Page 25 and 26: 25 конфигурацию кот
- Page 27 and 28: 27 Оператор Определ
- Page 29 and 30: 29 Функция Определе
- Page 31 and 32: 31 вызова ей передаю
- Page 33 and 34: 33 Переменные и авто
- Page 35 and 36: 35 Call Вызов Call Вызов
- Page 37 and 38: 37 Для ввода информа
- Page 39 and 40: 39 • условные опера
- Page 41 and 42: 41 после Then лексемы,
- Page 43 and 44: 43 Традиционный опе
- Page 45: 45 Выражение […] Loop Un
- Page 49 and 50: 49 MsgBox "НОД= " & a End Sub С
- Page 51 and 52: 51 Next MsgBox массив End Sub
- Page 53 and 54: 53 .процессор = "Pentium"
- Page 55 and 56: 55 Sub СвойстваФормы (
- Page 57 and 58: 57 объектов. Перетас
- Page 59 and 60: 59 .Enabled = False End With UserFo
- Page 61 and 62: 61 MsgBox "Введите четы
- Page 63 and 64: 63 Sub CommandButton1_Click () Comb
46<br />
Function Ста<strong>в</strong>каНалога (сумма)<br />
If сумма 12 Then Exit Do<br />
Loop While процент = 12<br />
MsgBox "Минималь<strong>на</strong>я ста<strong>в</strong>ка <strong>на</strong>лога удержи<strong>в</strong>ается " & _<br />
месяц - 1 & " месяце<strong>в</strong>"<br />
End Sub<br />
Sub НеОтме<strong>на</strong>Пока ()<br />
Do<br />
Beep<br />
от<strong>в</strong>ет = MsgBox ("По<strong>в</strong>торить ", vbYesNoCancel)<br />
Loop Until от<strong>в</strong>ет = vbNo<br />
End Sub<br />
Sub ПокаБук<strong>в</strong>ы ()<br />
алфа<strong>в</strong>ит = “”<br />
While Len (алфа<strong>в</strong>ит)