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

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

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

Код к задаче: «Использование случайных величин при рисовании - 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.600 из 5


СОХРАНИТЬ ССЫЛКУ