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

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

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

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

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

textual
Листинг программы
Private Sub Form_Resize()
AutoRedraw = True
a = Height / 10
For i = 1 To 200
x0 = Int(Rnd * (Width - a)): y0 = Int(Rnd * (Height - a))
Line (x0, y0)-(x0 + a, y0 + a), QBColor(Int(Rnd * 16)), BF
Next
End Sub

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

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