Написать словесный алгоритм к программе Excel VBA Private Sub ABC() 'Объявление...

Question

Написать словесный алгоритм к программе Excel VBA Private Sub ABC() 'Объявление переменных Dim A As Single, B As Single, C As Single Dim S As Single Dim Otvet1 As String, Otvet2 As String, Otvet3 As String 'Ввод исходных данных A = Val(Cells(2, 2).Value) B = Val(Cells(3, 2).Value) C = Val(Cells(4, 2).Value) S = 0 'Проверка условия для числа А If A Mod 2 = 0 Then Otvet1 = "число À - четное" S = S + A Else Otvet1 = "число A - нечетное" End If 'Проверка условия для числа В If B Mod 2 = 0 Then Otvet2 = "Число В - четное" S = S + B Else Otvet2 = "Число В - нечетное" End If 'Проверка условия для числа С If C Mod 2 = 0 Then Otvet3 = "Число С - четное" S = S + C Else Otvet3 = "Число С - нечетное" End If 'Вывод результатов Cells(2, 3).Value = Otvet1 Cells(3, 3).Value = Otvet2 Cells(4, 3).Value = Otvet3 Cells(6, 2).Value = Str(S) End Sub

Answer 1

Процедура ABC. Объявляются переменные A, B и С, в которые записываются значения ячеек [2, 2], [3, 2] и [4, 2] соответственно, переменная S со значением 0 и три переменных для результатов. Для каждой из переменных A, B, C проверяется, является ли её значение чётным: если да, то в соответствующих ей ответ записывается "Число A/B/C - чётное", а S увеличивается на его значение, в противном случае в ответ пишется "Число A/B/C - нечётное". Далее ответы записываются соответственно в ячейки [2, 3], [3, 3], [4, 3], а сумма чётных значений (S) - в ячейку [6, 2].