Vвa. использовать оператор цикла do. в диапазоне ячеек a1: b10 находятся 20 чисел. составьте программу, которая копирует данные числа в колону c (клетки от c1 до c20) следующим образом: - числа из ячейки a1 скопировать в ячейку c1; - числа из ячейки b1 скопировать в ячейку c2; - числа из ячейки a2 скопировать в ячейку c3; - числа из ячейки b2 скопировать в ячейку c4; - числа из ячейки a3 скопировать в ячейку c5; и так далее (цифры с колоны а надо скопировать колоны с очередность нечётных чисел, но цифры с колоны b надо копировать колоны с в очередность чётных.)

lew8 lew8    2   14.08.2019 05:20    0

Ответы
LizaZay LizaZay  04.10.2020 17:56
Так пишут нормальные люди

Sub aaa()
    For i = 1 To 10
        Cells(2 * i - 1, 3) = Cells(i, 1)
        Cells(2 * i, 3) = Cells(i, 2)
    Next i
End Sub

А так пишут с циклом Do, видимо, чтобы длиннее было

Sub aaa()
    i = 1
    Do While i <= 10
        Cells(2 * i - 1, 3) = Cells(i, 1)
        Cells(2 * i, 3) = Cells(i, 2)
        i = i + 1
    Loop
End Sub
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика