Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Задание:
Написать приложение для расчета
используя 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. Запустите приложение.
Результат работы программы:
По нажатию на кнопки, должны производиться соответствующие надписям на кнопках действия.
Дата публикования: 2014-12-28; Прочитано: 173 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!