Билет1.

1. Приклад блок-схеми алгоритму лінійного та розгалуженого обчислювального процесу.

2.Розробка меню

Обращение к меню происходит через объекты CommandBars и ActiveMenuBar. Ниже приведены примеры обращения к свойству Index меню с именем “text” и к головному активному меню приложения:

Ind = Application.CommandBars(“Text”).index

Ind = Application.CommandBars.ActiveMenuBar.index

Создание пустого меню

Меню можно создать методом add объекта CommandBars.

Ниже приведены два примера создание головного и контекстного меню:

Application.CommandBars.Add Name:="Имя головного меню", _

MenuBar:=True, temporary:=True

Application.CommandBars.Add "Имя контекстного меню", msoBarPopup

Примечание:

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

Вывод меню

Головное меню пользователя можно вывести через свойство Visible, а контекстное меню через метод ShowPopup. Если пользователь создал головное меню и вывел его, то оно заменяет стандартное меню приложения и существует пока приложение не закрыли, или пока это меню не удалили.

Пример:

Application.CommandBars("Имя контекстного меню").ShowPopup

Application.CommandBars("Имя главного меню").Visible = True

В данном примере показано как вывести контекстное и головное меню приложения.

Удаление меню

Меню пользователя можно удалить через свойство Delete. Через свойство Reset можно очистить меню пользователя или меню приложения от добавленных пунктов.

Пример:

Application.CommandBars("Имя меню").Delete

3. Графические элементы управления

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

форму;

элемент PictureBox;

элемент ImageBox.

Основное различие между этими элементами состоит в том, что элемент ImageBox спроектирован для отображения рисунков, а не для их создания или управления ими. В остальных двух элементах предусмотрены методы рисования, позволяющие во время работы приложения создавать графические изображения.

Элемент ImageBox

Если значение свойства Stretch установлено равным True, то размер изображения изменяется так, чтобы оно заполнило всю поверхность элемента ImageBox. При различном соотношении размеров элемента и изображения последнее искажается. Если же значение свойства Stretch установить равным False, то элемент ImageBox ведет себя подбно элементу PictureBox, у которого значение свойства AutoSize установлено в True.

Элемент PictureBox

Если значение свойства AutoSize элемента установлено равным True, размеры элемента изменяются в соответствии с размерами вставленного в него изображения. Если же значение свойства AutoSize – False, отображается только часть изображения, которая помещается в элемент.

4.Виведення імен запитів з БД

Кроме таблиц БД может содержать определения запросов. Запросы, кото-рые обычно используются в БД, сохраняются в ней и вызываются по именам. Ко всем запросам в БД можно обращаться через объект QueryDefs. Объект Que-ryDefs - это семейство объектов QueryDef, каждый из которых соответствует сохраненному запросу. Из программы можно обращаться к следующим свойст-вам семейства QueryDefs: •Count Возвращает число запросов, сохраненных в БД. •Name. Возвращает имя запроса. •SQL. Возвращает SQL-оператор запроса. Число запросов, сохраненных в БД, можно получить с помощью следую-щего выражения: DB.QueryDefs.Count Чтобы обратиться ко всем запросам, сохраненным в БД, объявите объ-ектную переменную QueryDef: Dim qry As QueryDef а затем просмотрите элементы семейства QueryDefs с помощью цикла For Each... Next: For Each qry In DB.QueryDefs Debug.Print qry.Name Next

5.Cls Dim n As Integer, i As Integer, j As Integer INPUT n Dim a(n) As Integer Randomize Timer For i = 0 To n - 1 a(i) = Int(Rnd * 20) Print a(i); Next i Print For i = 0 To n - 2 For j = i + 1 To n - 1 If a(i) = a(j) Then Print "Indeksy: "; i; j Print "Element: "; a(i) End If Next j Next i

6. Написати фрагмент програми. Таблиця з числовим полем. Знайти середнє арифметичне значення по цьому полю. Dim sum As Single Dim i As Integer sum = 0 i = 0 rs.MoveFirst Do Until rs.EOF sum = sum + rs.Fields(1).Value i = i + 1 rs.MoveNext Loop MsgBox sum / i