Page 111 - 4450
P. 111

  змінною;
                                    масивом;
                                    константою;
                                    арифметичним виразом.
                                  Exit Sub – достроковий вихід з процедури.
                                   Звернення  до  процедури  –  функції  здійснюється  за
                            допомогою оператора Call
                                  Синтаксис:
                                  Call ім'я(а1,а2, ...,аn),
                                  де а1, а2,...,аn – фактичні аргументи.

                                   Щоб передати в процедуру масив, достатньо після імені
                            його вказати пусті дужки Х().

                                  Приклад. Задані матриці A nm та B mn (n>m)/
                                  Нехай  елементи  матриць  знаходяться  на  проміжку
                            [f1,f2],  де  f1=-20;  f2=20.  Обчислити  матрицю  С=A*B.
                            Формування  матриці  та  знаходження  суми  елементів
                            матриці оформити у вигляді процедури (підпрограми).
                                  1. Відкрити новий проект.
                                  2. Створити командну кнопку в формі.
                                  3. Дати нову назву цій кнопці Пуск.
                                  4.  Обов’язково  встановити  для  властивості  форми
                            Autoredraw значення Да(True).
                                  5.  Двічі  клацнути  по  кнопці  Пуск  у  формі.  У  вікні
                            Форма1(Код)  (Code)  з’явиться  заголовок  процедури  та  його
                            кінець:
                                  Private Sub Комманда1_Click()

                                  End Sub
                                  Після  заголовку  процедури  набрати  текст  (тіло
                            програми)
                                  Option Base 1
                                  Dim a!(), b!(), с!(), S!
                                  Private Sub Комманда1_Click()
                                  Dim n%, m%, i%, j%, k%, f1!, f2!, p!
                                  m = InputBox("m=")
                                  n = InputBox("n=")
                                  l = InputBox("L=")


                                                           109
   106   107   108   109   110   111   112   113   114   115   116