Билет2.

1.Точності підвищення розрахунків

числовые константы представлены с одинарной точностью. Для констант одинарной точности хранятся 7 десятичных цифр, 2 машинных слова (4 байта). Диапазон вещественных констант: 10^-38 до 10³⁸. Для записи чисел в экспоненциальной форме используется знак Е. Пример. –1.01Е-09, 0.677.

Для записи вещественных констант с двойной точностью в экспоненциальной форме используется буква D (например, 5.6D+4). Вещественные числа с двойной точностью подобны вещественным числам с одинарной точностью, но имеют 16 значащих цифр.

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

2.Елементи управління файлами

На панели элементов управления имеются три элемента, позволяющие получать доступ к файловой системе компьютера: DriveListBox (Диски), DirListBox (Каталоги), FileListBox (Файлы). (рис. 9.1). Они являются базовыми блоками, применяемыми при построении диалоговых окон, отображающих файловую систему компьютера. Чтобы найти любую папку или файл на любом жестком диске, в том числе и сетевом, можно перемещаться по файловой системе, используя эти элементы. Элементы не связаны друг с другом и могут применяться отдельно, но практикуется это редко.

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

DirListBox. Отображает папки текущего диска. Основное свойство элемента - Path – имя папки, вложенные папки (подпапки) которой отображаются элементом.

FileListBox. Отображает файлы текущей папки. Основное свойство элемента также называют Path – это путь к папке, в которой находятся отображаемые файлы.

3.Ф-ції установки RGB

Цветовые константы – не просто отвлеченные числа. Каждая из них обозначает интенсивность красной, зеленой и синей составляющих, из которых и состоит выбранный цвет. Если вы хотите создать собственный цвет и знаете, какая у него интенсивность основных цветов, числовое значение цвета легко определить с помощью функции RGB. Каждый основной цвет может иметь интенсивность от 0 до 255. Например, следующий код определяет значение, соответствующее серому цвету (половину красного, синего и зеленого):

Form1.BackColor = RGB(127, 127, 127)

Form1.BackColor = RGB(255, 0, 0) (красный цвет)

4.виведення імен індексів з БД

Большинство таблиц в БД имеют индексные файлы. Для доступа к индек-сам таблицы предназначено свойство Indexes объекта TableDefs. Свойство In-dexes - это семейство объектов, каждый из которых соответствует одному ин-дексу таблицы. Чтобы самым простым способом реализовать обращение к каж-дому индексу в таблице необходимо объявить объект Index: Dim idx As Index Затем просмотреть каждый элемент семейства Indexes с помощью цикла For Each...Next: For Each idx In tbl.Indexes Debug.Print idx.Name Next Следующий вложенный цикл отображает имена всех таблиц в БД и имена ин-дексов по каждой таблице: For Each tbl In DB.TableDefs Debug.Print tbl.Name For Each idx In tbl.Indexes Debug.Print idx.Name Next idx Next tbl С помощью свойства Unique можно определить является ли индекс уни-кальным.

5. Cls Dim n As Integer, i As Integer, b As Integer Dim arifm As Double, sum As Integer, k 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 sum = 0 For i = 0 To n - 1 sum = sum + a(i) Next i arifm = sum / n Print "Indeksy:"; For i = 0 To n - 1 If a(i) < arifm Then k = k + 1 Print i; End If If a(i) = arifm Then b = 1 Next i Print Print "Kolichestvo:"; k If b = 1 Then Print "Suschestvuet" Else Print "Ne suschestvuet" End If

6. Написати фрагмент програми. Таблиця з числовим полем. Знайти максимальне і мінімальне значення по цьому полю. Dim max As Single Dim min As Single min = rs.Fields(0).Value max = min  rs.MoveFirst Do Until rs.EOF If rs.Fields(0).Value > max Then max = rs.Fields(0).Value If rs.Fields(0).Value < min Then min = rs.Fields(0).Value rs.MoveNext Loop MsgBox "min = " & min & Chr(13) & "max = " & max