Билет 25

1. Змінна — це така частина програми, що має ім'я і значення. Ім'я змінної унікальне і незмінне, а значення може мінятися в процесі виконання алгоритму.

Змінні потрібні насамперед для того, щоб за допомогою невеликого числа інструкцій можна було передбачити велике (іноді величезне!) число кроків виконавця.

Крім того, хотілося б, щоб одна програма могла вирішувати задачу для різних значень вихідних величин. Ці значення могли б задаватися користувачем у відповідь на питання комп'ютера і привласнюватися змінним

2. Комбобокс-это поле со списком , позволяющее пользователю выбрать значение из списка, а также ввести новое значение в текстовое поле. Комбо бокс отлич. от листбокса тем, что он позволяет пользователю задавать новые пункты, которых нету в списке. Елементы управления:DropDownCombo-поле с раскрывающимся списком, позволяет выбрать готовый елемент или или ввести новый елемент в текстовое поле.Simple Combo-обычный список(список не расскрывается) , позволяет выбрать готовый елемент или или ввести новый елемент в текстовое поле.DropDownList-расскрывающийся список,пользователь может выбрать только то,что предлагает список .

3. Чтобы установить цвета объекта из программного кода, нужно присвоить значение ForeColor и BackColor

Form1.ForeColor = vbYellow (желтый цвет)

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

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

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

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")

Для обращения к отдельным таблицам эффективно использовать цикл For Each...Next. В частности отображение имен таблиц БД можно выполнить с помощью кода:

For Each

5. Cls Dim i As Integer, j As Integer, n As Integer, m As Integer INPUT "Kolichestvo strok:", n INPUT "Kolichestvo stolbtsov:", m Dim a(n, m) As Double Randomize Timer For i = 0 To n - 1 For j = 0 To m - 1 a(i, j) = Int(Rnd * 10) Print a(i, j); Next j Print Next i Print For i = 0 To n - 1 For j = 0 To m - 1 Print a(i, j) * a(0, j); Next j Print Next i

6. dim i as integer,j as integer a as integer a = rs.recordcount if a \ 2 = a / 2 then for i = 1 to a / 2 - 1 rs.movenext next for j = 0 to 1 msgbox rs.fields(1) next else for i = 1 to a \ 2 rs.movenext next msgbox rs.fields(1) end if