Задача на массивы, исправить ошибку нужно - VB

Узнай цену своей работы

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

массивы color1 и color2 состоят каждый из 7 элементов. Их значения - семь цветов(рандомные). Значения элементов массива формируются случайным образом и определяют цвет кругов одного радиуса, расположенных в горизонтальный ряд на объектах Picture1 и Picture2 соответственно. Выведите на Picture3(массив Color3) из 14 кругов: его элементами с нечётными значениями индексов являются элементы массива Color1, а с чётными индексами -Color2 Код вот:
проблема в то, что третий массив там где 14 кругов выдаёт только круги 2 цветов

Решение задачи: «Задача на массивы, исправить ошибку нужно»

textual
Листинг программы
Option Explicit
Dim Color1(6) As Long, Color2(6) As Long, Color3(13) As Long, I As Integer, ar()
 
Private Sub Form_Load()
Timer1.Interval = 10000
ar = Array(vbBlue, vbGreen, vbCyan, vbRed, vbMagenta, vbYellow, vbWhite)
Picture1.FillStyle = vbSolid
Picture2.FillStyle = vbSolid
Picture3.FillStyle = vbSolid
Timer1_Timer
End Sub
 
Private Sub Timer1_Timer()
For I = 0 To 6
  Color1(I) = ar(Int(Rnd() * 7))
  Picture1.FillColor = Color1(I)
  Picture1.Circle (30 + 30 * I, 40), 10, Color1(I)
  
  Color2(I) = ar(Int(Rnd() * 7))
  Picture2.FillColor = Color2(I)
  Picture2.Circle (30 + 30 * I, 40), 10, Color2(I)
  
  Picture3.FillColor = Color1(I)
  Picture3.Circle (30 + 30 * I * 2, 40), 10, Color1(I)
  Picture3.FillColor = Color2(I)
  Picture3.Circle (30 + 30 * (I * 2 + 1), 40), 10, Color2(I)
Next
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 3.857 из 5