Изобразите на форме снежинку(как на фотографии)-совокупность объектов line - VB
Формулировка задачи:
вот задача:
изобразите на форме снежинку(как на фотографии)-совокупность объектов line.запрограммируйте форму так,чтобы каждый щелчок по ней удалял один луч.
Решение задачи: «Изобразите на форме снежинку(как на фотографии)-совокупность объектов line»
textual
Листинг программы
Option Explicit Dim z As Integer Private Sub Form_Load() Dim i As Integer, j As Integer, P As Double, S As Single, k As Integer P = 0.785 z = 24 'AutoRedraw = True Me.Scale (-100, 100)-(100, -100) For i = 1 To 3 S = 30 * i For j = 1 To 8 k = k + 1 Load Line1(k) Line1(k).X1 = Cos(P * j) * S: Line1(k).Y1 = Sin(P * j) * S Line1(k).X2 = Cos(P * j) * (S - 25): Line1(k).Y2 = Sin(P * j) * (S - 25) 'CurrentX = Line1(k).X1: CurrentY = Line1(k).Y1: Print k Line1(k).Visible = True Next j Next i End Sub Private Sub Form_Click() Line1(z).Visible = False If z > 0 Then z = z - 1 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д