Использование случайных величин при рисовании - VB (59063)

Узнай цену своей работы

Формулировка задачи:

Народ помогите время пожимает не успеваю сделать. Нарисовать на форме множество прямоугольников одинакового размера с произвольными координатами различными цветами.

Решение задачи: «Использование случайных величин при рисовании»

textual
Листинг программы
Private Sub Form_Click()
Cls
Randomize
Dim a: a = ScaleWidth / 20
For i = 0 To 99
    x = Int(Rnd * (ScaleHeight - a)): y = Int(Rnd * (ScaleHeight - a))
    Line (x, y)-(x + a, y + a), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)), BF
Next i
End Sub

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


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

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

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