2. Создать в Excel базу данных и отфильтровать их по заданному критерию

данные-фильтр-автофильтр

3. Заполнить в памяти ЭВМ таблицу вида K = 00000\55555\55555\00000

Private Sub Command1_Click()

Dim K() As Integer, i As Integer, j As Integer, M As Integer, N As Integer

M = InputBox("Vvedite kol-vo strok ?")

N = InputBox("Vvedite kol-vo stolbcov ?")

ReDim K(M, N)

For i = 1 To M

For j = 1 To N

If i = 1 Or i = M Then K(i, j) = 0 Else K(i, j) = 5

Next

Next

For i = 1 To M

For j = 1 To N

Print K(i, j);

Next

Print

Next

End Sub

Билет 5

1.Понятие о программировании. Алгоритм, программа. Последовательность разработки информациооной технологии.

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

1.Постановка задачи. Словесное описание. Формализация состава выходных данных и входных данных.

2.Математическая модель устанавливает связь м/у входными и выходными данными.По характеру математических зависимостей можо определить.в какой области математики следует искать численный метод решения.

3.Составление схемы алгоритма.

4.Разработка проекта начинается с создания основной формы для приложения. Для этого форму помещают в удобное место и подбирают ее размеры, затем рисуют на ней нужные элементы управления, кот. выбираются на панели элементов(Toolbox)и выводятся на форму. В правой части панели инструментов указывается точное положение и размер нового элемента управления:-надписи (Label).Щелкнем левой клавишей мыши на эл-те управления «Надпись»,перенесем его на форму, зададим св-во Caption равное «Введите» ;-текстовые окна:Для ввода значений. Щелкнем на эл-те управления «Текст», перенесем на форму, очистим св-во Text.Св-ву Name этого поля автоматически присваивается имя Text1; -Кнопка для запуска программы с именем Command1. Щелкнем на эл-те управления «Кнопка»,перенесем его на форму. После разработки формы необходимо перейти к записи программного кода.

5.Сохранение проекта.

1)Из меню file выбрать команду Save Project As или щелкнуть по соответств. пиктограмме. В поле имя файла диалогового окна Save File As ввести имя формы и щелкнуть кнопкой «Сохранить»

2)После сохранения всех форм проекта отображается диалоговое окно Save Project As,в кот. задается имя проекта.

6.Выполнение проекта.

Чтобы выполнить проект, необх. выбрать 1 из 3х способов:- из меню file вызвать команду Syart;-нажать клавишу(F5);-щелкнуть по пиктограмме()на панели инструментов.

7.Отладка программы. Осуществляется с помощью команд меню Debug.Для пошагового выполнения программы используют команды Step Into(F5) и Step Over (Shift+F8).

3. Определить значение и индексы мин эл-та нечёт столбцов матрицы р размерности м*I

Private Sub Command1_Click()

Dim P() As Single, m As Integer, l As Integer, i As Integer, j As Integer, min As Single, a As Integer, b As Integer

m = InputBox("Введите кол-во строк")

l = InputBox("Введите кол-во столбцов")

ReDim P(m, l)

Print "Исходная матрица:"

For i = 1 To m

For j = 1 To l

P(i, j) = InputBox("Введите элементы матрицы")

Print P(i, j);

Next

Print

Next

min = P(1, 1)

a = 1

b = 1

For i = 1 To m

For j = 1 To l

If j Mod 2 = 1 Then

If min > P(i, j) Then

min = P(i, j)

a = i

b = j

End If

End If

Next

Next

Print "min = " & min

Print " index = " & a & ", " & b

End Sub

Билет 6