Написать словесный алгоритм к программе 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
Написать словесный алгоритм к программе 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
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
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Алгоритм программы Excel VBA:
Объявление переменных A, B, C и S типа SingleОбъявление переменных Otvet1, Otvet2 и Otvet3 типа StringВвод исходных данных A, B и C из ячеек B2, B3 и B4Инициализация переменной S равной 0Проверка условия для числа A: если A делится на 2 без остатка, то Otvet1 = "число A - четное" и добавляем A к переменной S, иначе Otvet1 = "число A - нечетное"Проверка условия для числа B: если B делится на 2 без остатка, то Otvet2 = "число B - четное" и добавляем B к переменной S, иначе Otvet2 = "число B - нечетное"Проверка условия для числа C: если C делится на 2 без остатка, то Otvet3 = "число C - четное" и добавляем C к переменной S, иначе Otvet3 = "число C - нечетное"Вывод результатов Otvet1, Otvet2 и Otvet3 в ячейки C2, C3 и C4Вывод суммы четных чисел S в ячейку B6Таким образом, программа проверяет каждое из трех чисел на четность и выводит соответствующее сообщение, а также суммирует четные числа и выводит результат в ячейку B6.