nst m = 15
Dim i, j, k As Integer
Public Obr As Byte
Dim n, A (m, m), L (m) As Double
Public inp, NameF, Path As String
Dim Bukva As Variant
Dim det, s, x As Double
Public оголошує глобальну змінну. Оголошена таким способом мінлива стає доступною з усіх модулів і форм проекту. Якщо змінна оголошена у розділі глобальних оголошень, то доступ до неї здійснюється просто за її імені. Якщо ж вона оголошена в коді форми, то доступ до неї з інших форм і модулів здійснюється так: ІмяФорми. ІмяПеременной. br/>
Sub ButtonCancel_Click ()
Sheet1.OptionButton1.Select
Cng_List (False)
End Sub
Sub оголошує процедуру з ім'ям name і параметрами arglist.
Public Sub Obrabotka ()
Obr = Sheet1.ListBox1.ListIndex + 1
n = Sheet2.Range ("R2")
If Obr> 0 Then
Select Case Obr
Case 1 'Середнє значення по рядках
Call rab1 ( n)
Case 2 'середнє значення за стовпцями
Call rab2 (n)
Case 3 'min по рядках
Call rab3 (n)
Case 4 'min по стовпцями
Call rab4 (n)
Case 5 'max по рядках
Call rab5 (n)
Case 6 'max по стовпцями
Call rab6 (n)
End Select
End If
End Sub
В
Тут ми, відповідно, оголошуємо глобальну процедуру виду обробки. У даному випадку це підрахунок середніх, максимальних, і мінімальних елементів матриці по стовпцях і рядках
Call - Викликає процедуру або функцію. Оператор Call може бути опущений. p> Далі ...
Sub ButtonOK_Click ()
If Sheet1.OptionButton1.Value = True Then
'Введення матриці з клавіатури у файл
Met1:
inp = InputBox "Введіть розмірність матриці А", "Введення розмірності "," testfile " - виводить вікно із запитом на введення значення. Параметри такі ж, як і у функції MsgBox. <В
n = Val (inp) - Перетворює рядок в число
If (n> 0) And (n <= 15) And (n - Int (n) = 0) Then
