Реферат: Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов

' Sheet3.Range("M2") = Str(n) + "*" + Str(n)

Sheet3.Range("R2") = n

Call InitS – вызов функции InitS

For i = 1 To n

For j = 1 To n

Input #2, A(i, j)

Sheet3.Cells(i + 3, j) = A(i, j)

Next j

Next i

Close #2 - Закрывает файл, открытый оператором Open под номером 2.

MsgBox ("Матрица А прочитана из файла ")

End If

If Sheet1.OptionButton3.Value = True Then

'Заполнение тестового значения

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

For i = 1 To n

For j = 1 To n

A(i, j) = 20 * Rnd() - 10 - Возвращает Single значение, содержащее случайное число от 0 до 1.

Next j

Next i

Sheet3.Cells(3, 2) = " Матрица заполнена случайными тестовыми значениями "

For i = 1 To n

For j = 1 To n

Sheet3.Cells(i + 3, j) = A(i, j)

Next j

Next i

MsgBox ("Матрица А заполнена тестовыми значения (случайными числами)")

End If

If Sheet1.OptionButton4.Value = True Then