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

Практическая работа № 1

«Программирование в среде Visual Basic»

1. Запустите редактор Visual Basic 6.

2. Откройте (если нет) окно Проекта, окно Свойств, окно Программы (или Кода) и окно Отладки.

3. Ознакомьтесь с командной строкой. Ознакомьтесь с панелью инструментов.

4. Создайте проект для расчета арифметического выражения y = sinx²+cos²x для x=2 .

5. В появившемся окне Формы добавьте элементы управления. С панели Элементов управления (если ее нет , то включите с помощью [pic] ) перетащите на форму следующие элементы: два элемента Надпись (Label), два элемента Поле (TextBox), два элемента Кнопка (CommandButton).

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

   Элемент

   Свойство

   Значение

   Form1

   Caption

   Решение уравнения

   Label1

   Caption

   X

   Label2

   Caption

   Y

   Text1

   Text

   Пусто

   Text2

   Text

   Пусто

   Command1

   Caption

   Вычислить

   Command2

   Caption

   Выход

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

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. Сохраните проект. Завершите работу.