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