Билет 3

1.Цикл блок-схема

2.Массив элементов управления представляет собой группу элементов управления одного типа, имеющих одно и то же имя и различные индексы.

Элемент управления в массиве должен удовлетворять следующим критериям:

Все элементы массива должны быть одного типа (например, текстовое поле или надпись).

Все элементы должны иметь одно и то же значения свойства Name.

Все элементы идентифицируются уникальным значением свойства Index.

Создание массива элементов управления

Массивы элементов управления создаются во время разработки программы. Хотя элементы управления могут добавляться в эти массивы и во время выполнения, тем не менее первый элемент должен быть создан еще на этапе разработки.

Массивы элементов управления можно создается в основном двумя способами:

В среде разработки добавить в форму элемент управления, а затем воспользоваться командами Копировать (Сору) и Вставить (Paste) для его дублирования.

Добавить в форму несколько индивидуальных элементов управления и назначить им с помощью свойства Name одно и то же имя

.3.Система координат подобна карте города. Каждый квадратик на карте имеет собственный уникальный адрес: комбинацию номеров столбца и строки. Номер столбца - это координата по вертикали, У. Номер строки - координата по горизонтали, X. Любую точку формы можно идентифицировать заданием координат X и У. координат контейнера значения этих свойств также изменяются, отражая положение элемента в новой системе координат.

Точку с наименьшими значениями координат называют началом системы координат. В Visual Basic она расположена в левом верхнем углу элемента или формы. Значения координаты X возрастают вправо, a Y - вниз. Каждая координата - это число в какой-либо системе измерения, но не всегда.

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

4. Для обращения к отдельным таблицам БД можно использовать семейство таблиц DB.TableDefs. При этом необходимо объявить переменную TableDef:

Dim tbl As TableDef

а затем обратиться к конкретной таблице в БД, указав номер в TableDefs, который равен 0 для первой таблицы, 1 - для второй и т.д. Для вывода имени первой таблицы необходимо создать объект TableDef и вывести его свойство Name

Set tbl = DB.TableDefs(0)

Debug.Print tbl.Name

Вместо номера можно использовать имя таблицы:

DB.TableDefs ("Titles")

5. Cls Dim n As Integer, i As Integer, k As Integer Dim min As Double, imin As Integer, p As Integer INPUT n Dim a(n) As Integer Randomize Timer For i = 0 To n - 1 a(i) = Int(Rnd * 20 - 10) Print a(i); Next i Print For i = 0 To n - 1 If a(i) > 0 Then min = a(i) imin = i k = k + 1 Exit For End If Next i For i = 0 To n - 1 If a(i) > 0 Then p = p + 1 If p = 5 Then Print "5-j:"; a(i) If p = 15 Then Print "15-j:"; a(i) End If If a(i) > 0 And a(i) < min Then min = a(i) imin = i End If Next i If k <> 0 Then Print "min="; min; "imin="; imin + 1

6.  Написати фрагмент програми. Таблиця з числовим полем. Є записи з однаковими значеннями. Знайти кількість записів з різними значеннями.  Dim kol As Integer Set rs = db.OpenRecordset("Select id from tablica Group BY id", dbOpenDynaset) Set Data1.Recordset = rs rs.MoveLast rs.MoveFirst kol = rs.RecordCount() MsgBox kol