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

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

Label1 - метка;
Command1 - командная кнопка;
Command2 - командная кнопка;
PictureBox1 - окно рисунка.

Перенести на пустую форму эти элементы и уменьшить размеры формы до допустимо возможных, как показано на рис. 4.8.

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

Label1 Caption = "Группа, Ф.И.О. студентов"
Command1 Caption = "График"
Command2 Caption = "Таблица"
form1 Caption = "Практическая работа № 5"

4. Набрать программный код в соответствии с приведенным ниже текстом

Option Explicit
Private Sub Commandl_Click()
Dim x As Single
form1.Cls
Picture1.Visible = True
Picture1.DrawWidth = 1: Picturel.DrawStyle = 0
Picture1.Scale (-12, 2)-(12, -2)
Picture1.Line (-11, 0)-(11, 0)
Picture1.Line (0, 1.5)-(0, -1.5)
for x = -10 To 10 Step 0.2
Picture1.DrawWidth = 4: Picture1.DrawStyle = 2
Picture1.PSet (x, 1.2 * Sin(x) - x ), RGB(0, 0, 256)
Next x
End Sub
Private Sub Command2_Click()
Dim x As Single
form1.Cls
Picture1.Visible = False
Print: Print " ", " x ", " Функция": Print for x = -10 To 10 Step 2.5
Print " ", x, 1.2 * Sin(x) - x
Next x
End Sub

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

6. Результат работы программы показан на рис. 4.9.

Рис. 4.9  Результат работы приложения

7. Для завершения выполнения программы необходимо нажать значок «закрыть» на форме или выполнить команду Run/End.

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

9. Задание. Измените функцию, выберите шаг, измените свойства линии (цвет и толщину) и повторите запуск приложения.