Ход работы. 8. Запустите приложение на выполнение (F5)

End Sub

8. Запустите приложение на выполнение (F5). Проверьте его работоспособность.

9. Закройте запущенное приложение.

10. Напишите самостоятельно обработчик события Click по кнопкам «Очистить» и «Выход», используя навыки, полученные при выполнении предыдущих лабораторных работ.

11. Сохраните форму и проект (выбрав File – Save FrmКуб.frm и Save Куб.vbp) в папке 5.1.

12. Создайте exe-файл программы с помощью команды File → Make Куб.exe.

13. Выйдите из среды Visual Basic.

14. Запустите на выполнение файл Куб.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

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

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

Разработать приложение, которое позволяет рассчитать сумму цифр введенного трехзначного числа. Приложение должно обеспечивать:

· ввод данных пользователя – одно трехзначное число;

· вычислять сумму цифр введенного трехзначного числа;

· вывод результата – суммы цифр - в метке (Label)

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

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

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

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

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

Таблица 5.2 – Свойства компонентов приложения «Сумма цифр трехзначного числа»

Компонент	Свойство	Значение
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 a As Integer 'входные данные – исходное число

Dim Sum As Integer 'выходные данные – сумма цифр

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

Private Sub Command1_Click()

a = Val(Text1.Text)

Sum = a \ 100 + (a \ 10) Mod 10 + a Mod 10

Label3.Caption = Str(Sum)

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