Создайте новый файл. Сохраните его с именем «Задание9». Вэтой задаче мы введем новый элемент управления TextBox. Через эти текстовые поля мы будем вводить исходные данные, а для вывода результатов воспользуемся элементом управления Label, так как в этом поле нельзя исправить выведенный результат
- Для ввода значения X при построении используется текстовое поле - TextBox 1.
- Для ввода значения У при построении используется текстовое поле - TextBox2.
- Для ввода радиуса R при построении используется текстовое поле - TextBox3.
- Для вывода длины окружности С при построении используется текстовое поле –Label10.
- Для вывода площади круга S при построении используется текстовое поле – Label11.
- Для вывода удаления центра L при построении используется текстовое поле Label12.
- Для отображения рисунка при построении используется элемент управления Image1.
- Расчет и выводов результатов должен осуществляться по нажатию на кнопку «Запуск» в форме. Программа для кнопки «Запуск»
Номер строки | Текст программы |
1. | Private Sub CommandButtonl Click() |
2. | Rem Объявление переменных |
3. | Rem Радиус |
4. | Dim R As Single |
5. | Rem Координаты центра окружности |
6. | Dim X, Y As Single |
7. | Rem Длина окружности |
8. | Dim С As Single |
9. | Rem Площадь круга |
10. | Dim S As Single |
11. | Rem Удаление центра |
12. | Dim L As Single |
13. | Rem Число Pi |
14. | Dim Pi As Single |
15. | Rem Начало программы |
16. | Pi = 3.14 |
17. | Rem Преобразование данных считанных из текстовых полей в числовые |
18. | X = Val(TextBoxl) |
19. | Y = Val(TextBox2) |
20. | R = Val(TextBox3) |
21. | Rem Вычисление значений |
22. | С = 2 * Pi * R |
23. | S = Pi * R * R |
24. | L = Sqr(X * X + Y * Y) |
25. | Rem Вывод результатов |
26. | Label10.Caption = Str(C) |
27. | Label11. Caption = Str (S) |
28. | Label12. Caption = Str (L) |
29. | End Sub |
Разберем программу:
|
|