ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Откройте Excel, переименуйте Лист1 в «Окружность».
- Используя функции MsgBox и InputBox, подсчитайте площадь окружности, если известен ее радиус. Для этого:
- На листе Excel создайте кнопку.
- Присоедините к кнопке программу:
Private Sub CommandButton1_Click()
Dim S As Single, R As Single
R = InputBox("Введите радиус окружности","Площадь окружности")
S = 3.14 * R ^ 2
MsgBox "Площадь окружности = "&S&"квадратных сантиметров"
End Sub
- После нажатия на кнопку ОК должен получиться результат:
3. Проверьте правильность работы приложения, результат предъявите преподавателю.
Не нашли, что искали? Воспользуйтесь поиском: