Использование случайных величин при рисовании - 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

Похожие ответы