Лабораторная работа 4.3. Использование математических операторов для расчета математических формул

Задание:

Написать приложение для расчета

1. площади окружности по известному радиусу ();
2. объема шара по известному радиусу ();
3. объем цилиндра по известному радиусу и высоте ().

используя TextBox для задания переменных значений. Результат выводить в окне сообщений.

Ход работы:

1. Запустите Visual Basic 6.0 (см. Запуск Visual Basic 6.0.).

2. Выберите тип проекта StandardEXE и нажмите кнопку Открыть.

Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)

3. Создайте на форме элементы управления, как показано на рисунке 4.3.

Рисунок 4.4 Элементы управления и их свойства к лабораторной работе 4.3.

4. Напишите код следующий код:

Private Const PI As Double = 3.1415927

Private dblRadius As Double

Private dblHeight As Double

Private Sub cmdF1_Click()

Dim dblResult As Double

'Считаем зачения из формы в переменные

dblRadius = txtRadius.Text

'Расчет

dblResult = PI * dblRadius ^ 2

'Вывод результата

MsgBox "Площадь окружности с радиусом " & dblRadius & " равна " & dblResult

End Sub

Private Sub cmdF2_Click()

Dim dblResult As Double

'Считаем зачения из формы в переменные

dblRadius = txtRadius.Text

dblHeight = txtHeight.Text

'Расчет

dblResult = 4 / 3 * PI * dblRadius ^ 3

'Вывод результата

MsgBox "Объем шара с радиусом " & dblRadius & " равен " & dblResult

End Sub

Private Sub cmdF3_Click()

Dim dblResult As Double

'Считаем зачения из формы в переменные

dblRadius = txtRadius.Text

dblHeight = txtHeight.Text

'Расчет

dblResult = PI * dblRadius ^ 2 * dblHeight

'Вывод результата

MsgBox "Объем цилиндра с радиусом " & dblRadius & " и высотой " & dblHeight & " равен " & dblResult

End Sub

5. Запустите приложение.

Результат работы программы:

По нажатию на кнопки, должны производиться соответствующие надписям на кнопках действия.

Глава 5. Основы программирования.

Дата добавления: 2014-12-23