3. Найти знач-я и индексы наиб. Эл-та чётных строк мат-цы r размерности I*m

Private Sub Command1_Click()

Dim R() As Single, m As Integer, i As Integer, a As Integer, b As Integer, max As Single, c As Integer, d As Integer

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

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

ReDim R(i, m)

For a = 1 To i

For b = 1 To m

R(a, b) = InputBox("Введите элементы матрицы")

Print R(a, b);

Next

Print

Next

max = R(2, 1)

c = 2

d = 1

For a = 2 To i

For b = 1 To m

If a Mod 2 = 0 Then

If max < R(a, b) Then

max = R(a, b)

c = a

d = b

End If

End If

Next

Next

Print "max = " & max

Print " index = " & c & ", " & d

End Sub

7билет

1/Способы создания таблиц в Access

ACCESS. Заполнение таблиц данными.

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

Новая таблица не имеет записей, а содержит только наименования столбцов (полей). Для заполнения таблицы данными курсор устанавливается в требуемую ячейку указателем мыши.

После заполнения таблицы данными сохранять их не надо–Аccess все введенные данные сохраняет автоматически. Однако если при работе с таблицей происходит изменение ее структуры (например, менялась ширина столбцов), то Access попросит подтвердить эти изменения. Для увеличения или уменьшения ширины столбцов в таблице (в режиме ввода данных) необходимо указатель мыши установить в строку заголовка столбцов, на границу между столбцами, и перетащить мышь вправо или влево.

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

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

2. Заполнение ячеек одним содержимым и знач-ми рядов данных в Excel

Правка-заполнить-вниз. Или перетаскиваем вниз

3.Заполнить в памяти ЭВМ мат-цу вида 1111\0123\1111\0123

Private Sub Command1_Click()

Dim E() As Integer, k As Integer, i As Integer, j As Integer

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

ReDim E(k, k)

For i = 1 To k

For j = 1 To k

If i Mod 2 = 0 Then E(i, j) = j - 1 Else E(i, j) = 1

Print E(i, j);

Next

Print

Next

End Sub

8 билет

1.Способы выборки данных в Acess

2. Ввод формул в Excel. Ссылки. Типы адресации.

Сервис-параметры-вид-формулы(ставим галочку)-ок

3. Вычислить произведение положительных эл-ов матрицы Z размерности m*n

Private Sub Command1_Click()

Dim Z() As Integer, m As Integer, n As Integer, i As Integer, j As Integer, p As Integer

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

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

ReDim Z(m, n)

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

For i = 1 To m

For j = 1 To n

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

Print Z(i, j);

Next

Print

Next

p = 1

For i = 1 To m

For j = 1 To n

If Z(i, j) > 0 Then p = p * Z(i, j)

Next

Next

Print "Произведение = " & p

End Sub

9билет

1.Использование ф-ций в Excel

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

Фильтр-автофильтр

3. Определить произведение отрицательных эл-ов вектора Н размерности j

Private Sub Command1_Click()

Dim H() As Single, J As Integer, i As Integer, p As Single

J = InputBox("Введите размерность вектора H")

ReDim H(J)

For i = 1 To J

H(i) = InputBox("Введите значения вектора")

Next

p = 1

For i = 1 To J

If H(i) < 0 Then p = p * H(i)

Next

Print "Произведение = " & p

End Sub

10БИЛЕТ

1.Сис-ма презентаций пруер поинт

2. Условное форматирование в Excel

Формат-условное форматирование

3.

11Билет

1. Безопасность информации в вычислительных системах Предмет защиты

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

Предмет защиты

Информационная безопасность дает гарантию того что достигаются следующие цели

- конфиденциальность — состояние информации, при котором доступ к ней осуществляют только субъекты, имеющие на него право;

- целостность— избежание несанкционированной модификации информации;

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

- учет всех процессов, связанных с информацией

3. Private Sub Command1_Click()

Dim F() As Single, j As Integer, m As Integer, i As Integer, L As Integer

m = InputBox("m=")

j = InputBox("j=")

ReDim F(1 To m, 1 To j)

For i = 1 To m

For L = 1 To j

F(i, L) = InputBox("F(" & i & " , " & L & ")=")

Print F(i, L);

Next

Print

Next

Min = F(1, 1)

For i = 1 To m Step 2

For L = 1 To j

If F(i, L) <= Min Then

Min = F(i, L)

d = i

z = L

End If

Next

Print

Next

Print "min=" & Min & "d=" & d & "z=" & z

End Sub