Операционная система wimdows

Указание типа данных в  инструкции описания не является обязательным. Если тип данных не указан, по умолчанию  переменная получит тип Variant.

Данные этого типа интерпретируются в Visual Basic в зависимости от операции, в которой они используются, т.е. их тип может меняться. При этом производится преобразование одного типа данных в другой. Использование типа данных Variant вместо любого типа данных обеспечивает большую гибкость при обработке. Однако это порождает некоторые трудности и может приводить к возникновению ошибок.

Допускается описание нескольких переменных в одной инструкции. Если требуется явно описать тип данных, то необходимо включить описание типа данных для каждой переменной. В  следующей инструкции переменные X, Y и Z описываются с типом данных Integer:

Dim X As Integer, Y As Integer, Z As Integer

В следующей инструкции переменные X и Y описываются с типом данных Variant; а переменная Z с типом данных Integer:

Dim X, Y, Z As Integer

Для того чтобы запретить  неявное описание переменных в Visual Basic, следует поместить в раздел описания модуля инструкцию Option Explicit. Эта инструкция требует явного описания всех переменных, используемых в модуле. Если в модуль включена инструкция Option Explicit, то Visual Basic генерирует ошибку при компиляции, если обнаруживается имя переменной, которая не была описана ранее.

 

 

Операторы управления выполнением программы

Оператор присваивания

Присваивание значений переменным осуществляется с помощью оператора  присваивания. В этом операторе слева  стоит имя переменной, а справа присваиваемое значение или выражение. Например:

Х=200*0.8/70 
Y="Петров Семен Иванович" 
Z=X/80+30 
Y=Forms![СТУДЕНТ]![ФИО]

Оператор ветвления

Оператор ветвления предназначен для изменения порядка выполнения программы по некоторому условию. Синтаксис  оператора:

If <условие1> Then 
<Блок 1> 
[ ElseIf <условие2> Then 
<Блок 2> 
· · ·] 
[Else 
<Блок N>] 
End If

Оператор работает следующим  образом: если (If) выполняется <условие 1>, то (Then) будет выполнена последовательность операторов <Блок 1>, иначе, если (ElseIf) выполняется <условие 2>, то будет выполнен <Блок 2> и т.д., иначе (Else) - <Блок N> .

Допустима форма записи оператора  ветвления в одну строку:

If <условие1> Then <Оператор 1>: <Оператор 2>: . . . : <Оператор N>

В этом случае не указывается  конец оператора (End If) как в первом варианте.

Оператор цикла For . . . Next

Синтаксис:

For <i>=<i0> To <iN> [Step <ih>] 
<Блок> 
Next [<i>]

Значения <i>, <i0>, <iN>, <ih> соответственно означают:

• <i> - параметр цикла;
• <i0>, <iN> - начальное и конечное значения параметра цикла;
• <ih> - шаг изменения параметра цикла.

Обычно перечисленные  величины являются целыми числовыми. Если шаг не указан, то он по умолчанию  принимается равным 1.

Для досрочного выхода из цикла  используется команда Exit For.

Цикл Do с предусловием

Синтаксис:

Do [While/Until] <условие> 
<Блок> 
Loop

Если выбрано служебное  слово While, то цикл продолжается, пока выполняется условие; если Until - то прекращается, когда условие выполняется.

Цикл Do с постусловием

Синтаксис:

Do 
<Блок> 
Loop [{While/Until}] <условие>

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

В обоих циклах Do для досрочного выхода из цикла используется команда Exit Do.

 

 

 

Операторы ввода-вывода

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

В Visual Basic возможны несколько способов ввода данных в программу. Одним из самых простых является использование функции InputBox, имеющей следующий синтаксис:

InputBox("<Текст подсказки>")

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. Задачи.

 

а) Переведите числа. 101001110011;1101111_{2®8, 10,16}

101001110011(2) – (8)

101	001	110	011
5	1	6	3

 

101001110011(2) – 5163(8)

 

1101111(2) – (8)

001	101	111
1	5	7

 

1101111(2) – 157(8)

 

101001110011(2) – (10)

101001110011- 1*2¹¹+1*2⁹+1*2⁶+1*2⁵+1*2⁴+1*2¹+1*2⁰ = 2048+512+64+32+16+2+1=2675

101001110011(2) – 2675(10)

 

1101111(2) – (10)

1101111 – 1*2⁶+1*2⁵+1*2³+1*2²+1*2¹+1*2⁰ = 64+32+8+4+2+1=111

1101111(2) – 111(10)

 

 

 

 

101001110011(2) – (16)

1010	0111	0011
А	7	3

 

101001110011(2) – А73(16)

 

1101111(2) – (16)

0110	1111
6	F

 

1101111(2) – 6F(16)

 

б) Создать программу VBA, реализующую  алгоритм суммирования 5 любых чисел.

 

Sub sseu()

Dim i As Integer

i = 2

s = 0

Do While Cells(i, 1) <> ""

s = s + Cells(i, 1) 

i = i + 1

Loop

Range("B1") = " Сумма чисел равна"

Range("C1") = s

End Sub

 

в) Заполните 7 строк электронной  таблицы  MS Excel, имеющей следующие поля:

Наименование  товара

Кол-во заказанного  товара

Дата покупки

Кол-во проданного товара

Создать программу VBA, рассчитывающую разницу между количеством заказанного  и проданного товаров.

 

Sub Пример()

Dim i As Integer

i = 2

Do While Cells(i, 1) <> ""

Cells(i, 5) = Cells(i, 2) - Cells(i, 4) 

i = i + 1

Loop

Range("E1") = "Разница"

End Sub