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