> MsgBox ("Матриця А заповнена тестовими значення (випадковими числами) ")
End If
If Sheet1.OptionButton4.Value = True Then
'Вибір обробки
Call Obrabotka - викликаємо функцію В«обробкаВ».
End If
End Sub
У цій конструкції деякі оператори виконуються тільки за умови, що міститься в конструкції логічне вираз має значення True (істинно):
If логічний_вираз Then Оператор
чи складніше
If Логічний_вираз Then
Группа_операторов
End If
У першому випадку оператор може бути тільки один. У другому скільки завгодно (у тому числі і один). p> Далі ...
Sub Cng_List (par As Boolean)
If par Then 'Активне
Sheet1.ListBox1.ForeColor = & H80000007
Sheet1.ListBox1.Enabled = True
Else 'Неактивний
Sheet1.ListBox1.ForeColor = & H80000013
Sheet1.ListBox1.Enabled = False
End If
End Sub
ListBox1 - елемент управління, префікс lst (При іменуванні елементів управління рекомендується слідувати стандартним угодами іменування користувача інтерфейсу і елементів управління. Це дозволяє спростити читання і налагодження програмного коду. В іменах елементів управління зручно проставляти префікс, однозначно вказує на тип (клас) цього об'єкта.)
В
Sub Init ()
Cng_List (False)
n = 0
For i = 1 To m
For j = 1 To m
A (i, j) = 0
Next j
Next i
Sheet2.Visible = xlSheetHidden
Sheet3.Visible = xlSheetHidden
End Sub
Sub InitS ()
For i = 1 To m + 2
For j = 1 To m
ActiveSheet.Cells (i + 2, j) = ""
Next j
Next i
End Sub
Sub Button3_Click () 'ОК
n = Sheet2.Range ("R2")
Open "C: file1" For Output As # 1
Write # 1, n
For i = 1 To n
For j = 1 To n
If Sheet2.Cells (i + 3, j) = "" Then
A (i, j) = 0
Else
A (i, j) = Sheet2.Cells (i + 3, j)
End I...
