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

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

Изобразить на форме звезду с разноцветными лучами (множество одинаковых линий, исходящих из одной точки).

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

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub Form_Paint()
    Dim I As Long
    For I = 0 To 63
        Me.Line (Me.ScaleWidth / 2, Me.ScaleHeight / 2)- _
        Step(Cos(0.098174770424681 * I) * Me.ScaleWidth / 2, _
        Sin(0.098174770424681 * I) * Me.ScaleHeight / 2), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Next
End Sub
                        

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

9 голосов , оценка 4.111 из 5

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