Задание 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) + " куб. единиц"
Дата добавления: 2015-06-12; просмотров: 957;