p>
Sheet2.Visible = xlSheetVisible
Sheet2.Activate
Sheet2.Range ("L2") = Str (n) + "*" + Str (n)
Sheet2.Range ("R2") = n
InitS
Sheet2.Range ("H3") = "Введіть елементи матриці , починаючи з активної i> осередку A4 "
Else
If inp <> "" Then
MsgBox "Помилка введення розмірності "- - Виводить на екран вікно повідомлення (Message Box) яке буде чекати кліка на одній з кнопок. Повертає число Integer, за яким можна визначити яку кнопку натиснув користувач.
В
GoTo Met1- оператор для переходу на певну мітку
End If
End If
End If
If Sheet1.OptionButton2.Value = True Then
'Введення матриці з файлу
Open "C: file1" For Input As # 2 - відкриває файл для читання, запису або для довільного доступу.
Input # 2, n
Sheet3.Visible = xlSheetVisible
Sheet3.Activate
'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