Использование случайных величин при рисовании - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д