2015-02-27
454
Создайте новый файл. Сохраните его с именем «Задание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 |
Разберем программу:
|
|
|
