Практическая работа в Visual Basic

Практическая работа № 1
«Программирование в среде Visual Basic»
Запустите редактор Visual Basic 6.
Откройте (если нет) окно Проекта, окно Свойств, окно Программы (или Кода) и окно Отладки.
Ознакомьтесь с командной строкой. Ознакомьтесь с панелью инструментов.
Создайте проект для расчета арифметического выражения y = sinx2+cos2x для x=2 .
В появившемся окне Формы добавьте элементы управления. С панели Элементов управления (если ее нет , то включите с помощью ) перетащите на форму следующие элементы: два элемента Надпись (Label), два элемента Поле (TextBox), два элемента Кнопка (CommandButton).
Измените названия элементов. Окно Свойств  Caption новое имя
Элемент Свойство Значение
Form1 Caption Решение уравнения
Label1 Caption X
Label2 Caption Y
Text1 Text Пусто
Text2 Text Пусто
Command1 Caption Вычислить
Command2 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
8. Запустите форму на выполнение. Запуск (Run)
9. Сохраните проект. Предварительно создайте папку с названием группы, в ней папку с вашей фамилией, а в ней файл с именем Lab1-1.
10. Измените код для кнопки Вычислить следующим образом:
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
11. Запустите на выполнение, дополнительно вывод результата появляется в окне Отладки.
12. Измените код для кнопки Вычислить следующим образом, чтобы данные вводились и выводились в диалоговых окнах:
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, , "Окно вывода"
End Sub
13.Запустить на выполнение. 14. Сохраните проект. Завершите работу.