End Sub

End Sub

End Sub

Private Sub Command20_Click() 'щелчок по кнопке "Sgn"

z = Val(Text3.Text)

a = Sgn(z)

Label23.Caption = Str(a)

9. Для обработчика события Click по кнопке «Очистить» напишите следующий код:

'щелчок по кнопке "Очистить"

Private Sub Command21_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Label4.Caption = ""

Label5.Caption = ""

Label6.Caption = ""

Label7.Caption = ""

Label8.Caption = ""

Label9.Caption = ""

Label10.Caption = ""

Label11.Caption = ""

Label12.Caption = ""

Label13.Caption = ""

Label14.Caption = ""

Label15.Caption = ""

Label16.Caption = ""

Label17.Caption = ""

Label18.Caption = ""

Label19.Caption = ""

Label20.Caption = ""

Label21.Caption = ""

Label22.Caption = ""

Label23.Caption = ""

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

11. Попробуйте в качестве третьего числа Z ввести разные числа – положительные целые и дробные, отрицательные целые и дробные. Проанализируйте отличие результатов.

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

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

14. Создайте exe-файл программы с помощью команды File → Make Арифметика.exe.

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

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

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

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

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

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

· выполнение операций, заданных по условию задачи;

· вывод данных в метках (Label)

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

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