Практическая работа № 4 Вычисление объема коробки
Цель: закрепить навыки по использованию переменных в Visual Basic, а также арифметических функций в VB.
Задание: разработать приложение, позволяющее вычислять объем коробки.
Технология выполнения задания.
Запустите Visual Basic.
Создайте новый проект.
Создайте для этого проекта экранную форму по образцу, содержащую 6 объектов класса Метка, 4 объекта класса Текстовое поле и по 1 объекту класса Изображение и Командная кнопка.
Сохранить проект в отдельной папке «Объем».
Опишите переменные, которые будут использованы в программе.
Напишите текст программы для кнопки вычисления объема коробки.
Задания к работе
Добавьте кнопки очистить, вычислить площадь полной поверхности и напиши программный код для этих кнопок.
В любой графическом редакторе изобразите данную коробку, поместите изображение коробки на форму.
Дополнительное задание. Разработайте приложение, позволяющее вычислять объем цилиндра и площадь его полной поверхности, зная радиус основания (в основании – круг) и высоту цилиндра. К приложению добавить изображение, эстетически его оформить.
Практическая работа № 5 Писатель
Цель: научиться использовать в своей работе генератор случайных чисел, функции INT и RND, элемент управления ComboBox.
Задание: разработайте программу, которая будет работать следующим образом. В качестве исходных данных в неё вводится три списка слов и затем автоматически выбирается по одному слову из каждого списка. Из этих трёх слов программа будет составлять всевозможные предложения. Грамматически эти предложения всегда будут правильными. А что до логики, так это дело наживное - просто пока наши программы ещё не умеют думать.
Технология выполнения задания.
1. Запустите Visual Basic и создайте новый проект.
2. Форма будет содержать 4 элемента управления: 3 ComboBox и 1 CommandButton.
3. Поместите на форму три элемента ComboBox. Выделите все списки. В окне Properties измените свойство Style на 2-Dropdown List.
4. Теперь впишите в свойство List первого ComboBox такое: Акула, (после каждого слова переходите на новую строку, нажав CTRL+Enter), Воробей, Заяц, Кузнечик, Лягушка, Попугай, Слон.
5. Во второй ComboBox впишите: Быстро, Высоко, Громко, Медленно, Низко, Плохо, Сильно.
6. В третий ComboBox впишите Бегает, Летает, Плавает, Поёт, Прыгает, Прячется.
7. Теперь поместите на форму CommandButton. Свойство Caption измените на "Случайный выбор".
8. Для командной кнопки «Случайный выбор» напишите следующий программный код. Обратите внимание, что в программном коде содержаться пропуски.
Private Sub Command1_Click()
Randomize
Combo1.ListIndex = Int(Rnd * Combo1.ListCount)
Combo2.________ = Int(____________________)
Combo__________= ________________________
End Sub
9. При загрузке формы все значения должны «обнуляться».
Private Sub Form_Load()
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0
End Sub
10. В результате должно получиться примерно следующее приложение.
