Создание простейших программ

       Пример 1. Создать программу, которая работает с глобальными переменными, рассчитывая выражение:

      Результат выдается в диалоговое окно Msgbox.          Технология выполнения       1. Активизируйте приложение Word, создайте (сохраните) новый документ под именем Операции.       2. Выйдите в редактор VBA (Alt+F11).       3. Правой кнопкой мыши выделите Project(Document),где Document – название созданного документа, например Операции,и выберите команду Insert + Module(рис. 2). Если же имеется папка Modules, то добавьте в нее (рис. 6).  

         Рис. 2.Добавление нового модуля в папку Project         4. Дважды щелкните по классу Module1(рис. 3). В результате в правой части редактора VBA активизируется модуль (появится курсор), в котором можно прописывать все создаваемые программы, причем при вводе заготовки создаваемого модуля (слово Sub) и его имени ( list1– от листинг, можно вписать любое имя) появляется окончание данного модуля End Sub.  

       Рис. 3.Создание модуля List1         При объявлении глобальных переменных (согласно условию задачи) необходимо поставить курсор перед словом Sub, нажать Enter и вписать необходимые переменные, обращая внимание на раскрывающийся список (рис. 4).  

       Рис. 4.Создание переменных 4. Напишите следующую программу.

      Dim a As Double       Dim b, c, d As Double       Dim k As String       Const Pi As Double = 3.14         Sub list1()       a = 5       b = 25.6       c = Sin(a ^ 2) + Cos(b) + Pi       d = Sqr(c)       MsgBox (d)       End Sub

      5. Запустите программу на выполнение, предварительно ее откомпилировав (проверив синтаксические ошибки). Для компиляции проекта выполните команду меню: Debug + Compile Project. Если ошибок нет, запустите приложение при помощи кнопки

       Запуск панели инструментов или клавиши F5. Если все действия выполнены верно, то на экране появится диалоговое окно Msgbox с итоговым сообщением (рис. 5).  

       Рис. 5.Итоговый результат расчетов примера 1          Пример 2. Создать программу, которая производит сложение строковых переменных и результат выводит в диалоговое окно msgbox.        Технология выполнения       1. В том же документе Операциивыделите правой кнопкой мыши папку Module sи выполните команду: Insert + Module(рис. 6).  

       Рис. 6.Добавление нового модуля         2. В результате появится новый модуль, где можно создать новую программу (модуль). Пропишите следующий код.

      Dim a, b, c As String       Sub list2()       a = «Привет!»       b = « Пока не сложно?»       c = a + b       MsgBox (c)       End Sub

      В данном примере переменным a и b присваиваются строковые значения (в кавычках!), после чего происходит сложение строк. Результат показан на рис. 7.

       Рис. 7.Результат примера 2         3. Прокомпилируйте программу и запустите ее на выполнение.        Примечание. Если в одном документе находятся несколько модулей, то при запуске программ может появляться диалоговое окно выбора макроса (модуля), в котором необходимо выбрать макрос, выделить его и нажать кнопку «Run» (рис. 8).  

       Рис. 8.Выбор макроса на выполнение