Составить программу для вычисления функции с использованием команд меню.

1. Запустите Visual Basic с помощью меню Window/Пуск/Программы. Если программа уже работает, то открыть новый проект Project.

2. Для создания приложения можно использовать следующие объекты управления:
   
   

   Label1	- метка;
   Label2	- метка;
   Label3	- метка;
   Label4	- метка;
   Label5	- метка;
   Text1	- текстовое окно
   Text2	- текстовое окно
   Text3	- текстовое окно
   List1	- список;

Необходимые объекты перенести на форму (в соответствии с рис. 4.17) и изметь размеры формы до допустимо возможных.




Рис.4.16. Заполнение параметров Редактора меню


В работе использованы следующие свойства Properties



Label1	Caption = 'Функция'
Label2	Caption = 'Вычисляемая функция'
Label3	Caption = 'Левая граница'
Label4	Caption = 'Правая граница'
Label5	Caption = 'Шаг'
Text1	Text = 0
Text2	Text = 4
Text3	Text = 0.5
form1	Caption = 'Создание меню'
List1	List = ' '




3. В соответствии с используемыми командами меню необходимо активизировать событие Click для следующих команд меню:

   func→ Вычислить функцию;
   ism_int→ Изменить интервал;
   cls_List→ Очистить окно вывода;
   end→ Выход.




4. Полный текст программного кода, который составляется пользователем:

   Private Sub func_Click()
   Rem Вычисление функции
   Dim x0, xk, x, a, b, a1, b1, h As Single
   Dim i, n As Integer
      x0 = Text1.Text
      xk = Text2.Text
      h = Text3.Text
      n = Int((xk - x0) / h)
      List1.AddItem "      a      b       "
   for i = 1 To n
      a = x + 4.4: b = a * x + 1.23
      a1 = format(a, "###.##")
      b1 = format(b, "####.##")
      List1.AddItem " " & CStr(a1) & " " & CStr(b1)
      x = x + h
   Next
   End Sub
      Private Sub ism_int_Click()
      Rem Изменить интервал - очистить текстовые окна ввода
      Text1.Text = Clear
      Text2.Text = Clear
      Text3.Text = Clear
      End Sub
   Private Sub cls_List_Click()
   Rem Очистить список
   List1.Clear
   End Sub
   Private Sub end_Click()
   Rem Закрыть приложение - Выход
   End
   End Sub
   



5. Запустите программу на выполнение: из меню Run/Start или клавишей F5. После запуска программы на экране появится форма в соответствии с рис. 4.17. Запуская команды меню, исследуйте работу отдельных процедур.

6. Для завершения выполнения программы выполняется команда «Выход», или выполнить команду Run/End.

7. Сохранить файл программы и файл формы с соответствующими расширениями.