Page 114 - 4450
P. 114

Рисунок 18.2 – Результат знаходження добутку матриць

                                  15.  Для  закінчення  розрахунків  необхідно  клацнути  по
                            кнопці Конец на панелі інструментів.
                                  16.  Зберегти  проект,  клацнувши  Сохранить  (Save
                            Project).
                                  Приклад.     Створити       додаток     для    обчислення
                            ймовірності  події  за  алгоритмом,  блок-схема  якого
                            відображена на рис. 1.10.
                                  1. Відкриваємо новий проект.
                                  2. На формі встановимо 5 елементів TextBox.
                                  3. Відкриваючи вікна їх властивостей, видалимо з вікон
                            текст  по  замовчуванню  (Текст1,  Текст2,…).  Поруч  з
                            текстовими  вікнами  розмістимо  елементи  Label  з  написами
                            про  призначення  тестових  вікон.  Подвійним  клацанням  на
                            вікні елемента Текст4 відкриємо вікно коду з рядками.
                                  Private Sub Текст4_Exchange()

                                  End Sub
                                  4.  Замінимо  подію  Exchange  на  LostFocus  і  введемо
                            наступний код головної процедури
                                  Private Sub Текст4_LostFocus()
                                  Dim u!, v!, R1!, R2!, R3!, p!, no%, n%, m%, k%, D!


                                                           112
   109   110   111   112   113   114   115   116   117   118   119