VBA_КОНТРОЛЬНАЯ ОБЬЯСНЕНИЕ. Контрольная работа по дисциплине Информатика, раздел Программирование на vba
 Скачать 301 Kb.
|
|
Содержание задания. Заполнить два двумерных массива случайными числами, создать третий массив, элементы которого являются произведением двух предыдущих. Пояснения к заданию. Процедура имеет имя Zadanie4 и расположена на Лист2 файла КР VBA var16.xlsm. При ее вызове два массива заполняются случайными числами. Каждый элемент формируемого 3-го массива является произведением соответствующих элементов первых двух массивов. Блок-схема процедуры представлена на рисунке 4.1.     + -  -  +   + -  -  +      Рис.4.1. Блок-схема процедуры Zadanie4 4.2. Программный код процедуры Zadanie4 ' Процедура заполнения случайными числами 2-х матриц ' и расчет 3-й матрицы как произведения первых 2-х Option Explicit Public Sub Zadanie4() Const n = 4 ' устанавливается размер квадратной матрицы Dim r As Integer, с As Integer ' r-номер строки, с- номер столбца Dim i As Integer, j As Integer 'i,j –счетчики строк и столбцов Dim A(1 To n, 1 To n) As Single '1-й массив Dim B(1 To n, 1 To n) As Single '2- й массив Dim D(1 To n, 1 To n) As Single '3- й массив Randomize 'включение генератора случайных чисел 'заполнение массивов À, В и D с использованием двух циклов по i и по j For i = 1 To n For j = 1 To n A(i, j) = Rnd ' Rnd – получение случайной величины B(i, j) = Rnd D(i, j) = A(i, j) * B(i, j) ' массив D как произведение А и В Next j Next i ' заполнение ячеек листа r = 2 ' указание 1-й строчки 1-го массива (А) на листе с = 2 ' указание 1-го столбца 1-го массива (А) на листе For i = 1 To n For j = 1 To n Cells(i+r, j+с).Value = A(i, j) 'заполнение ячеек листа массивом A Cells(i+r + 5, j+с).Value = B(i, j) 'заполнение ячеек листа массивом B 'r + 5 означает, что массив В на 5 строк ниже 1-й строчки массива А Cells(i+r + 10, j+с).Value = D(i, j) 'заполнение ячеек листа массивом D 'r + 10 означает, что массив D на 10 строк ниже 1-й строчки массива А Next j Next i End Sub 4.3. Решение контрольного варианта На рисунке 4.2. представлен фрагмент листа Excel с тремя массивами. Первый и второй массивы заполнены случайными величинами, а третий – произведение первых двух.  Рис. 4.2. Массивы полученные при выполнении процедуры Zadanie4 5. ПОЛЬЗОВАТЕЛЬСКА ФУНКЦИЯ 5.1. Сведения о задании |