Задача 1. Разработайте проект, запрашивающий три стороны треугольника a, b, c (объекты класса TextBox) и вычисляющий его площадь по формуле Герона. Предусмотрите возможность проверки существования треугольника с заданными параметрами. Отобразите на форме формулу Герона. Отобразите на форме формулы рассчитываемых параметров треугольника и изображение рассчитываемого треугольника, добейтесь соответствия выводимого изображения вводимым параметрам.
Листинг программы
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double
Dim p As Double, S As Double
Задача 2. Разработать игровое приложение «Чайнворд», в состав которого входит не менее 10 слов. Непрерывную прямоугольную спираль из объектов класса TextBox оставьте для заполнения пользователем. В местах соединения слов текстовые элементы замените объектами класса Label с буквами, чтобы играющий знал с чего начинается и чем заканчиваются слова и в тоже время не мог изменить слово. Все описанное выше размещается на первой форме. Введите в проект дополнительные формы с изображениями объектов, названия которых зашифрованы в чайнворде. Предусмотрите кнопку очистки объектов Text для возможной корректировки вводимых букв.
Листинг программы
Dim i As Integer
Private Sub Command1_Click()
Dim words(1 To 10) As String
Dim questions(1 To 10) As String
Задача 3. Разработайте приложение, формирующее на форме испытательный сигнал в виде семи чередующихся вертикальных полос: синего, голубого, сиреневого, розового, красного, оранжевого, желтого и зеленого. Предусмотреть кнопку, изменяющую порядок следования цветных полос на противоположный.
Листинг программы
Private Sub Command1_Click()
Shape1(0).FillColor = RGB(0, 191, 255)
Shape1(1).FillColor = RGB(0, 77, 255)
Shape1(2).FillColor = RGB(200, 162, 200)
Shape1(3).FillColor = RGB(255, 203, 219)
Shape1(4).FillColor = RGB(255, 0, 0)
Shape1(5).FillColor = RGB(255, 128, 0)
Shape1(6).FillColor = RGB(255, 255, 0)
Shape1(7).FillColor = RGB(0, 255, 0)
Задача 4. Массивы Color1 и Color2 состоят каждый из 7 элементов. Их значения - семь цветов (синий, зеленый, голубой, красный, сиреневый, желтый, белый). Значения элементов массива формируются случайным образом и определяют цвет кругов одного радиуса, расположенных в горизонтальный ряд на объектах Picture1 и Picture2 соответственно. Выведите на Picture3 ряд (массив Color3) из 14 кругов: его элементами с нечетными значениями индексов являются элементы массива Color1, а с четными индексами – Color2.
Листинг программы
Private Sub Command1_Click()
Dim color1(1 To 7) As ColorConstants
Dim color2(1 To 7) As ColorConstants
Dim color3(1 To 7) As ColorConstants
color3(1) = RGB(0, 77, 255)
color3(2) = RGB(200, 162, 200)
color3(3) = RGB(255, 203, 219)
color3(4) = RGB(255, 0, 0)
color3(5) = RGB(255, 128, 0)
color3(6) = RGB(255, 255, 0)
color3(7) = RGB(0, 255, 0)
Задача 5. Для каждого двумерного массива X(3, 4), Y(5, 3), Z(4, 6) определите номер строки с максимальной суммой положительных элементов.
Листинг программы
Private Sub Command1_Click()
Dim x(1 To 3, 1 To 4) As Integer
Dim y(1 To 5, 1 To 3) As Integer
Dim z(1 To 4, 1 To 6) As Integer
