Page 113 - 4450

У цій процедурі елемент матриці створюється за
допомогою генератора випадкових чисел. Для введення
реальної конкретної матриці досить замінити оператор
z(i,j)=int((f2-f1+1)*Rnd)+f1 на
z(i,j)=Val(InputBox(“Введіть елемент матриці”).
У меню Разработать вибрати команду Добавить
модуль.
В вікні Add Module вибрати Новый і натиснути кнопку
Открыть.
З’явиться вікно Проект1 – Модуль2 (Код). Надрукуємо
ім’я процедури Sub Sum (k,z!(),s!) і натиснемо Enter.
З’явиться End Sub (кінець процедури).
Після заголовка процедури набрати текст (тіло
процедури).
Sub Sum(i, j, n, S)
S = 0
For k = 1 To n
S = S + a(i, k) * b(k, j)
Next k
End Sub
12. Запустити команду на виконання, натиснувши
кнопку Начать на панелі інструментів Стандартная.
13.У вікні Форма1 клацнути по командній кнопці Пуск.
Ввести початкові дані m, n, L, f1, f2.
Результат виконання процедури буде показаний у вікні
форми (рис.18.2).

111