Подскажите как удалить из массива - VB
Формулировка задачи:
VB 6.0
Подскажите как удалить из массива все круги которые закрашены черным цветом при этом что бы не было пробелов между остальными кругами ?
Решение задачи: «Подскажите как удалить из массива»
textual
Листинг программы
Option Explicit Dim i As Integer, x As Integer, Color(0 To 13) As Long Private Sub Сжать_Click() Dim k As Integer Picture1.Cls For i = 0 To 13 If Color(i) <> 0 Then Picture1.FillColor = Color(i) Picture1.Circle (350 + 700 * k, 370), 350, Color(i) k = k + 1 End If Next End Sub Private Sub Создать_Click() Randomize Picture1.FillStyle = 0 For i = 0 To 13 Color(i) = QBColor(Int(Rnd * 7)) Picture1.FillColor = Color(i) Picture1.Circle (350 + 700 * i, 370), 350, Color(i) Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д