Выведите все точки на экран, определите количество точек, попадающих в правую нижнюю четверть экрана, выделите их другим цветом - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы