Visual Basic для новичков. Шаг за шагом. Самоучитель/справочник. Евгений Матвеев
Чтение книги онлайн.

Читать онлайн книгу Visual Basic для новичков. Шаг за шагом. Самоучитель/справочник - Евгений Матвеев страница 28

СКАЧАТЬ тело процедуры, между Private Sub и End Sub, а вместо этого впишите туда строку:

      Конец ознакомительного фрагмента.

      Текст предоставлен ООО «ЛитРес».

      Прочитайте эту книгу целиком, купив полную легальную версию на ЛитРес.

      Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.

/9j/4AAQSkZJRgABAQABLAEsAAD/4gxYSUNDX1BST0ZJTEUAAQEAAAxITGlubwIQAABtbnRyUkdCIFhZWiAHzgACAAkABgAxAABhY3NwTVNGVAAAAABJRUMgc1JHQgAAAAAAAAAAAAAAAAAA9tYAAQAAAADTLUhQICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABFjcHJ0AAABUAAAADNkZXNjAAABhAAAAGx3dHB0AAAB8AAAABRia3B0AAACBAAAABRyWFlaAAACGAAAABRnWFlaAAACLAAAABRiWFlaAAACQAAAABRkbW5kAAACVAAAAHBkbWRkAAACxAAAAIh2dWVkAAADTAAAAIZ2aWV3AAAD1AAAACRsdW1pAAAD+AAAABRtZWFzAAAEDAAAACR0ZWNoAAAEMAAAAAxyVFJDAAAEPAAACAxnVFJDAAAEPAAACAxiVFJDAAAEPAAACAx0ZXh0AAAAAENvcHlyaWdodCAoYykgMTk5OCBIZXdsZXR0LVBhY2thcmQgQ29tcGFueQAAZGVzYwAAAAAAAAASc1JHQiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAABJzUkdCIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWFlaIAAAAAAAAPNRAAEAAAABFsxYWVogAAAAAAAAAAAAAAAAAAAAAFhZWiAAAAAAAABvogAAOPUAAAOQWFlaIAAAAAAAAGKZAAC3hQAAGNpYWVogAAAAAAAAJKAAAA+EAAC2z2Rlc2MAAAAAAAAAFklFQyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAAFklFQyBodHRwOi8vd3d3LmllYy5jaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZXNjAAAAAAAAAC5JRUMgNjE5NjYtMi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAAAAAAAAAAAC5JRUMgNjE5NjYtMi4xIERlZmF1bHQgUkdCIGNvbG91ciBzcGFjZSAtIHNSR0IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZGVzYwAAAAAAAAAsUmVmZXJlbmNlIFZpZXdpbmcgQ29uZGl0aW9uIGluIElFQzYxOTY2LTIuMQAAAAAAAAAAAAAALFJlZmVyZW5jZSBWaWV3aW5nIENvbmRpdGlvbiBpbiBJRUM2MTk2Ni0yLjEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHZpZXcAAAAAABOk/gAUXy4AEM8UAAPtzAAEEwsAA1yeAAAAAVhZWiAAAAAAAEwJVgBQAAAAVx/nbWVhcwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAo8AAAACc2lnIAAAAABDUlQgY3VydgAAAAAAAAQAAAAABQAKAA8AFAAZAB4AIwAoAC0AMgA3ADsAQABFAEoATwBUAFkAXgBjAGgAbQByAHcAfACBAIYAiwCQAJUAmgCfAKQAqQCuALIAtwC8AMEAxgDLANAA1QDbAOAA5QDrAPAA9gD7AQEBBwENARMBGQEfASUBKwEyATgBPgFFAUwBUgFZAWABZwFuAXUBfAGDAYsBkgGaAaEBqQGxAbkBwQHJAdEB2QHhAekB8gH6AgMCDAIUAh0CJgIvAjgCQQJLAlQCXQJnAnECegKEAo4CmAKiAqwCtgLBAssC1QLgAusC9QMAAwsDFgMhAy0DOANDA08DWgNmA3IDfgOKA5YDogOuA7oDxwPTA+AD7AP5BAYEEwQgBC0EOwRIBFUEYwRxBH4EjASaBKgEtgTEBNME4QTwBP4FDQUcBSsFOgVJBVgFZwV3BYYFlgWmBbUFxQXVBeUF9gYGBhYGJwY3BkgGWQZqBnsGjAadBq8GwAbRBuMG9QcHBxkHKwc9B08HYQd0B4YHmQesB78H0gflB/gICwgfCDIIRghaCG4IggiWCKoIvgjSCOcI+wkQCSUJOglPCWQJeQmPCaQJugnPCeUJ+woRCicKPQpUCmoKgQqYCq4KxQrcCvMLCwsiCzkLUQtpC4ALmAuwC8gL4Qv5DBIMKgxDDFwMdQyODKcMwAzZDPMNDQ0mDUANWg10DY4NqQ3DDd4N+A4TDi4OSQ5kDn8Omw62DtIO7g8JDyUPQQ9eD3oPlg+zD88P7BAJECYQQxBhEH4QmxC5ENcQ9RETETERTxFtEYwRqhHJEegSBxImEkUSZBKEEqMSwxLjEwMTIxNDE2MTgxOkE8UT5RQGFCcUSRRqFIsUrRTOFPAVEhU0FVYVeBWbFb0V4BYDFiYWSRZsFo8WshbWFvoXHRdBF2UXiReuF9IX9xgbGEAYZRiKGK8Y1Rj6GSAZRRlrGZEZtxndGgQaKhpRGncanhrFGuwbFBs7G2MbihuyG9ocAhwqHFIcexyjHMwc9R0eHUcdcB2ZHcMd7B4WHkAeah6UHr4e6R8THz4faR+UH78f6iAVIEEgbCCYIMQg8CEcIUghdSGhIc4h+yInIlUigiKvIt0jCiM4I2YjlCPCI/AkHyRNJHwkqyTaJQklOCVoJZclxyX3JicmVyaHJrcm6CcYJ0kneierJ9woDSg/KHEooijUKQYpOClrKZ0p0CoCKjUqaCqbKs8rAis2K2krnSvRLAUsOSxuLKIs1y0MLUEtdi2rLeEuFi5MLoIuty7uLyQvWi+RL8cv/jA1MGwwpDDbMRIxSjGCMbox8jIqMmMymzLUMw0zRjN/M7gz8TQrNGU0njTYNRM1TTWHNcI1/TY3NnI2rjbpNyQ3YDecN9c4FDhQOIw4yDkFOUI5fzm8Ofk6Njp0OrI67zstO2s7qjvoPCc8ZTykPOM9Ij1hPaE94D4gPmA+oD7gPyE/YT+iP+JAI0BkQKZA50EpQWpBrEHuQjBCckK1QvdDOkN9Q8BEA0RHRIpEzkUSRVVFmkXeRiJGZ0arRvBHNUd7R8BIBUhLSJFI10kdSWNJqUnwSjdKfUrESwxLU0uaS+JMKkxyTLpNAk1KTZNN3E4lTm5Ot08AT0lPk0/dUCdQcVC7UQZRUFGbUeZSMVJ8UsdTE1NfU6pT9lRCVI9U21UoVXVVwlYPVlxWqVb3V0RXklfgWC9YfVjLWRpZaVm4WgdaVlqmWvVbRVuVW+VcNVyGXNZdJ114XcleGl5sXr1fD19hX7NgBWBXYKpg/GFPYaJh9WJJYpxi8GNDY5dj62RAZJRk6WU9ZZJl52Y9ZpJm6Gc9Z5Nn6Wg/aJZo7GlDaZpp8WpIap9q92tPa6dr/2xXbK9tCG1gbbluEm5rbsRvHm94b9FwK3CGcOBxOnGVcfByS3KmcwFzXXO4dBR0cHTMdSh1hXXhdj52m3b4d1Z3s3gReG54zHkqeYl553pGeqV7BHtje8J8IXyBfOF9QX2hfgF+Yn7CfyN/hH/lgEeAqIEKgWuBzYIwgpKC9INXg7qEHYSAhOOFR4Wrhg6GcobXhzuHn4gEiGmIzokziZmJ/opkisqLMIuWi/yMY4zKjTGNmI3/jmaOzo82j56QBpBukNaRP5GokhGSepLjk02TtpQglIqU9JVflcmWNJaflwqXdZfgmEyYuJkkmZCZ/JpomtWbQpuvnByciZz3nWSd0p5Anq6fHZ+Ln/qgaaDYoUehtqImopajBqN2o+akVqTHpTilqaYapoum/adup+CoUqjEqTepqaocqo+rAqt1q+msXKzQrUStuK4trqGvFq+LsACwdbDqsWCx1rJLssKzOLOutCW0nLUTtYq2AbZ5tvC3aLfguFm40blKucK6O7q1uy67p7whvJu9Fb2Pvgq+hL7/v3q/9cBwwOzBZ8Hjwl/C28NYw9TEUcTOxUvFyMZGxsPHQce/yD3IvMk6ybnKOMq3yzbLtsw1zLXNNc21zjbOts83z7jQOdC60TzRvtI/0sHTRNPG1EnUy9VO1dHWVdbY11zX4Nhk2OjZbNnx2nba+9uA3AXcit0Q3ZbeHN6i3ynfr+A24L3hROHM4lPi2+Nj4+vkc+T85YTmDeaW5x/nqegy6LzpRunQ6lvq5etw6/vshu0R7ZzuKO6070DvzPBY8OXxcvH/8ozzGfOn9DT0wvVQ9d72bfb794r4Gfio+Tj5x/pX+uf7d/wH/Jj9Kf26/kv+3P9t////2wBDAAMCAgICAgMCAgIDAwMDBAYEBAQEBAgGBgUGCQgKCgkICQkKDA8MCgsOCwkJDRENDg8QEBEQCgwSExIQEw8QEBD/wAALCADtAk8BAREA/8QAHQABAAIDAQEBAQAAAAAAAAAAAAUGAwQHCAIBCf/EAEcQAAAGAQMDAQUHAwIEBAILAAECAwQFBgAHERIIEyFXFBUiMZYXGEGV0tPVIzJRFmEkQnGBM1JikUOhNFWCkpSio7O1wfD/2gAIAQEAAD8A/qnjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGMYxjGfg77Dttv+G+cjWh+rYVji31F0iKkJh4AelyYmAu/gBEJQAEdvx2DPj3N1d+o+j/0VJ/yuPc3V36j6P8A0VJ/yuPc3V36j6P/AEVJ/wArj3N1d+o+j/0VJ/yuPc3V36j6P/RUn/K49zdXfqPo/wDRUn/K49zdXfqPo/8ARUn/ACuPc3V36j6P/RUn/K49zdXfqPo/9FSf8rj3N1d+o+j/ANFSf8rj3N1d+o+j/wBFSf8AK49zdXfqPo/9FSf8rj3N1d+o+j/0VJ/yuPc3V36j6P8A0VJ/yuPc3V36j6P/AEVJ/wArj3N1d+o+j/0VJ/yuPc3V36j6P/RUn/K49zdXfqPo/wDRUn/K49zdXfqPo/8ARUn/ACuPc3V36j6P/RUn/K49zdXfqPo/9FSf8rj3N1d+o+j/ANFSf8rj3N1d+o+j/wBFSf8AK49zdXfqPo/9FSf8rj3N1d+o+j/0VJ/yuPc3V36j6P8A0VJ/yuPc3V36j6P/AEVJ/wArj3N1d+o+j/0VJ/yuPc3V36j6P/RUn/K49zdXfqPo/wDRUn/K49zdXfqPo/8ARUn/ACuPc3V36j6P/RUn/K49zdXfqPo/9FSf8rj3N1d+o+j/ANFSf8rj3N1d+o+j/wBFSf8AK49zdXfqPo/9FSf8rj3N1d+o+j/0VJ/yuPc3V36j6P8A0VJ/yuPc3V36j6P/AEVJ/wArj3N1d+o+j/0VJ/yuPc3V36j6P/RUn/K49zdXfqPo/wDRUn/K49zdXfqPo/8ARUn/ACuPc3V36j6P/RUn/K49zdXfqPo/9FSf8rj3N1d+o+j/ANFSf8rj3N1d+o+j/wBFSf8AK49zdXfqPo/9FSf8rj3N1d+o+j/0VJ/yuPc3V36j6P8A0VJ/yuPc3V36j6P/AEVJ/wArj3N1d+o+j/0VJ/yuPc3V36j6P/RUn/K49zdXfqPo/wDRUn/K49zdXfqPo/8ARUn/ACuPc3V36j6P/RUn/K49zdXfqPo/9FSf8rj3N1d+o+j/ANFSf8rj3N1d+o+j/wBFSf8AK49zdXfqPo/9FSf8rj3N1d+o+j/0VJ/yuPc3V36j6P8A0VJ/yuPc3V36j6P/AEVJ/wArj3N1d+o+j/0VJ/yuPc3V36j6P/RUn/K49zdXfqPo/wDRUn/K5+khurkDB3NRtIRL+IBS5MB//lc67y/2yk3rWKm6eSLeLnzvTuFkfaTlatxV7CO4h3FPPgNwNsAbiPEdg8ZdEV0nCJF0TgdNUoHIYB8GKIbgIZ9cv9scv9s+sZpysvEwTFSTm5RpHs0fKjh2uVFIn/UxhAA/98xRNigJ+N98wU5HyTAdxB00ckWR8fP4yCJfH/XNesXKo3VmpI0+zxU21RUFJRaPdpuCEOH/ACmEgjsP+w5M4xjGQhrvTSWcKUe1xBbAZMFgizPEwdiQQ35AlvyENvO+3yybxjK5ZNSNPac8bR1rvEDDvHhyJt2z2QSRWWMYdigQhjAYwiIgAbBljxjGMrc9qTp5V5VrBWO8wMZJvlCItWTqQSTcLHOIAQpEzG5GEREADYPxyyYxjGMYxjGMYxjGMYxjGMYxjGMYxmB69ZxrNeQkHSTZq2TMsssqcCkTIUNzGMYfAAAAIiI5o1u1Vm4xhZqpWGNmWBjCQHLB0RdITB8y8iCIbh/jJXGMYxjGMYxjPjPK+vIEcaoyiQjy2YNEjB/gOJx2/wDzb/8AfPQOl70ZDTervDG5GUiGvIf/AFAkUB/+YZZ8B88+8Z52VhYTVfqytFc1JZtZSModdinVdg35AUbKLPDLi4fiib4VDlFIiJTCA8NjbbCbOa2e1E0s1tv6mgUbEx7CSQrNTedhAoRTazPX50wXOkTYgqpNDlFQobCIikUw+cr+ok7qtpHqTqkrV7caemVIKpV9o9ZxTVq5Wln0koUiZ0yAVA6xG4qCURAuxFCAYdgAc6FYuo+5Ddb82cMrPUG8PDQtciItdgyevVbHKLLCiqRNNYyZh7ZUtinVKUA3EwAHzo0xrJrZSWOrNbjJi3LSURE1xjFpTziNeyCM9JvDolBIzb+kAGS4H7Rx+Ef8FHLahrBqlfy1AzC3uaz9p9uc1lJoRFEziuMo1Jyd0U5jFMUZBY7cSiI8iEAwcANx5G6hoHY7Ie76pUOWt7+ywdQm2UfESkmZIzoVVWRFnLU6iZSgoKRzBsO3IOYgO+2dqVUBJM6pgEQIUTDsG4+M8RXKd1Q1U02031gWtkck5uN+hTQVdSiUebBsEhuAkdB/XFcrZJQyoibhxFUvAA85O3LUnVizyhbrTdTZaIh5vVCOo9ZjWjZodq7YoqgSQdHFREyh+YovOIlOAACZRyGDWnV6c1HZV4tytbWUdarGrHBhHsTVwIpA511Ek1xTMqqt7In8Y8wEqgnAePHbPacm7NHxrt+VIVBbIKLAQPmYSlEdv++2eHdO5G3USC0i1mlX0JPy2q0id1NRYwjdR2KCjNw7Oum8EBcCdEEyAICbtgAgQpC7Blpr+oWp6dX0V1lfapSL2V1SsDMHtb2b+6kYlykqsqRIgJ9wgtkCFMKonERMQ3LwbYMMbqtqtMTtE1HLqDNpw95s03Isq6m2aey/6Wj2q6iZtxRFbuLdpA/Luf8AxwAA+WaVC1V6gZqNo2rx4+8KknhGZnWL1SIJBe5TN1FhKzSIqLruJB2eJhATmHlzAN9g3dHL91F3R3pnf3LW5crg8I+nGr9WIJAEh10TqADNNNUXXNIBQEDCAmN8XMA32D1fc5pet0+dsTVAV1ouNdPU0gDcTmSSMcC7f7iXbPGtEVsWjETo/qROTdfnHmpAKSFjbGhW4uASGNWfLPivthcHMkJCgYTmEmxwKUpAAoZa6D1Zzlf0IjH2r0FZI23ytPlbRGyL9s29kk+yiZ0BEjIKG48UjpAAKEIIgH+cyVqY1V1FJNwVo1ykaMpp1VoErySbkaJg6m3rIHKrp33UxKKBBMmQEi8AMPPcd9toHUK/60OW+rVqh9VpFkak2CAqtbaMWqBGjyXORmRyZYpyGMdI6rvYUwMGwAPxbgG2fUvUTVWiWbUOhwGrEiu4cL02HjZGSSbm93TMq9UKv2SlIUASBsQpwTNy23+fnPq6an6qabagXH СКАЧАТЬ