Практическая часть. Задание 1. Разработать программу, вычисляющую объем куба

Задание 1. Разработать программу, вычисляющую объем куба.

Постановка задачи.

Разработать приложение, которое позволяет по введенной пользователем длине стороны вычислить объем куба. Приложение должно обеспечивать:

· ввод данных пользователя – одно число, обозначающее длину стороны куба;

· вычислять объем куба в зависимости от введенного числа;

· вывод результата – объема куба - в метке (Label)

Примерный внешний вид приложения представлен на Рис.5.1.

Ход работы.

1. Создайте папку Лабораторная_работа_№5, а в ней папку 5.1.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме один компонент TextBox, 3 компонента CommandButton, 3 компонента Label, один из которых – для вывода результата. Установите свойства компонентов согласно Таблице 5.1 или ориентируясь на внешний вид приложения (Рис.5.1).

Таблица 5.1 – Свойства компонентов приложения «Объем куба»

Компонент	Свойство	Значение
Form1	Caption	Объем куба
Name	frmКуб
MaxButton, MinButton	False
Icon	Загрузите любое графическое изображение формата *.ico
Label1	Caption	Введите длину стороны куба:
Label2	Caption	Объем куба равен
Label3	Caption
CommandButton1	Caption	Вычислить
CommandButton2	Caption	Очистить
CommandButton3	Caption	Выход
TextBox1	Text
Свойство Style у компонентов CommandButton установите равным 1 - Graphical Свойство Font и BackColor установите у компонентов по своему усмотрению

5. Откройте окно программного кода (View - Code).

6. В верхних строках программного кода опишите переменные входных и выходных данных:

Dim l As Single 'входные данные – длина стороны куба

Dim V As Single 'выходные данные – объем куба

7. Напишите обработчик события Click, которое происходит при щелчке по кнопке «Вычислить»:

Private Sub Command1_Click()

l = Val(Text1.Text)

V = l ^ 3

Label3.Caption = Str(V) + " куб. единиц"

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