Выведите все точки на экран, определите количество точек, попадающих в правую нижнюю четверть экрана, выделите их другим цветом - VB
Формулировка задачи:
Дан массив А(2, 10). В первом столбце содержаться координаты Х точек плоскости экрана, а во втором столбце – координаты Y тех же точек. Выведите все точки на экран, определите количество точек, попадающих в правую нижнюю четверть экрана, выделите их другим цветом.
срочно нада решить...
гарю
просьба кто может помочь
Решение задачи: «Выведите все точки на экран, определите количество точек, попадающих в правую нижнюю четверть экрана, выделите их другим цветом»
textual
Листинг программы
Option Explicit Dim A(1 To 2, 1 To 10) As Integer Dim i As Integer, j As Long, zvet As Long, kol As Integer Private Sub Command1_Click() 'Щелчок на кнопке Command1 Randomize ' Иницилизация генератора случайных чисел Form1.DrawWidth = 5 ' Толщина точки на форме For i = 1 To 10 A(1, i) = Rnd * (Form1.Width - 200) ' Случайная координата Х A(2, i) = Rnd * (Form1.Height - 600) 'Случайная координата У ' Ширина и высота формы при генерации координат немного уменьшены, 'для того чтобы точки не "вылезали" за пределы экрана If A(1, i) > Form1.Width / 2 And A(2, i) > Form1.Height / 2 Then 'Если точка попадает в правую нижнюю область экрана - 'то цвет точки - розовый, количество точек увеличивается на 1. zvet = QBColor(13) ' kol = kol + 1 ' Else zvet = QBColor(1) 'Иначе цвет точки синий End If PSet (A(1, i), A(2, i)), zvet 'Ставим точку определённого цвета Next i Form1.Caption = "Кол-во точек" + Str(kol) 'Количество точек в правой 'нижней области экрана выводится в заголовке формы End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д