Visual Basic. Практика. Ищенко В.А - 59 стр.

                                                59
                                                                         П род ол ж ен ие т а бл . 14
       1               2                3                     4                         5
                                                                          Click() – проверяет ,
                                                                          явл яет ся л и м а т рица
                                                                          д л я ввод а исход н ых
                                                                          зн а чен ий ква д ра т -
                                                                          н ой. Е сл и м а т рица
                                                                          н е ква д ра т н а я, т о
К ом а н д н а я   CommandBut                                             вывод ит ся окн о со-
                                К н опка Зад а т ь   Caption – Зад а т ь
кн опка 1             ton1                                                общен ия с соот вет -
                                                                          ст вен н ым т екст ом .
                                                                          Е сл и м а т рица ква д -
                                                                          ра т н а я, т о переобъ-
                                                                          явл яет ся ра зм ер д и-
                                                                          н а м ического м а сси-
                                                                          ва .
                                                                          Click() – орга н изу ет
                                                                          вл ож ен н ый        цикл
                                                                          д л я ввод а эл ем ен т ов
К ом а н д н а я   CommandBut   К н опка Д оба -     Caption – Д оба - м а т рицы с пом ощь ю
кн опка 2             ton2      вит ь                вит ь                окн а ввод а InputBox
                                                                          и д оба вл яет очеред -
                                                                          н ой эл ем ен т в м а с-
                                                                          сив.
                                                                          Click() – ф орм иру ет
                                                                          од н ом ерн ый м а ссив
К ом а н д н а я   CommandBut   К н опка П рос-                           Sum(M), д оба вл яет
                                                     Caption – П росчет
кн опка 3             ton3      чет                                       эл ем ен т ы сф орм и-
                                                                          рова н н ого м а ссива к
                                                                          списку н а ф орм е.
                                                                          Click() – за верша ет
                                                                          выпол н ен ие прил о-
К ом а н д н а я   CommandBut
                                К н опка Выход       Caption – Выход      ж ен ия и выгру ж а ет
кн опка 4             ton4
                                                                          из па м ят и т еку щу ю
                                                                          ф орм у .
К ом а н д н а я   CommandBut   К н опка О чис-                           Click() – очища ет
                                                     Caption – О чисит ь
кн опка 5             ton5      т ит ь                                    список в ф орм е.
                                                                          Change() – присва и-
                                                                          ва ет зн а чен ие свой-
                                                                          ст ва Text перем ен -
                                                                          н ой M в ф орм а т е
                                                                          цел ого        числ ового
                                                                          зн а чен ия с пом о-
                                                                          щь ю ф у н кции Cint.
Т екст овое                                          Text – пу ст о
                    TextBox1         Text1                                С обыт ие KeyPress()
пол е 1
                                                                          – проверяет, явл яет -
                                                                          ся л и введ ен н ый
                                                                          сим вол в пол е Text1
                                                                          л юбым д ру гим сим -
                                                                          вол ом (т .е. н ед опу с-
                                                                          т им ым ), кром е циф р
                                                                          от 0 д о 9.