Последовательность выполнения работы

Запустите редактор Visual Basic 6.
Откройте (если нет) окно Проекта, окно Свойств, окно Программы (или Кода) и окно Отладки.
Ознакомьтесь с командной строкой. Ознакомьтесь с панелью инструментов.
Создайте проект для расчета арифметического выражения y = sinx²+cos²x для x=2 .
В появившемся окне Формы добавте элементы управления. С панели Элементов управления (если ее нет , то включите с помощью ) перетащите на форму следующие элементы: два элемента Надпись (Label), два элемента Поле (TextBox), два элемента Кнопка (CommandButton).

Измените названия элементов. Окно Свойств  Caption новое имя

Назначте кнопкам процедуры-события. Кнопке Вычислить процедуру-событие запуска программы расчета, для этого дважды щелкнуть на элементе и ввести текст программы

Private Sub Command1_Click()

x% = Text1.Text

y! = Sin(x% ^ 2)+Cos(x%) ^ 2

Text2.Text = y! ' Можно и так Label1.Caption = y

End Sub

Кнопке Выход - Оканчание работы с формой.

Private Sub Command2_Click()

End

End Sub

Сохраните проект. Предварительно создайте папку с названием группы, в ней папку с вашей фамилией , а в ней файл с именем Lab1-1.
Измените код для кнопки Вычислить следующим образом:

Private Sub Command1_Click()

Dim x As Integer, y As Single :Rem Описание типов данных

x = Text1.Text

y = Sin(x ^ 2) + Cos(x) ^ 2

Text2.Text = y

Debug.Print y ' Вывод в окно Отладки

End Sub

Запустите на выполнение, дополнительно вывод результата появляется в окне Отладки.
Измените код для кнопки Вычислить следующим образом, чтобы данные вводились и выводились в диалоговых окнах:

Private Sub Command1_Click()

Dim x As Integer, y As Single

x=Val(InputBox("Введите значение x", "Окно ввода данных"))

x = Text1.Text

y = Sin(x ^ 2)+Cos(x) ^ 2

Text2.Text = y

Debug.Print y

MsgBox "Проверка", vbInformation, "Окно сообщения"

MsgBox "x=" & x & Chr(13) & "y=" & y, , "Окно вывода"