Найдите среднее арифметическое этих чисел, а также разность - VB
Формулировка задачи:
Пользователь вводит три числа. Найдите среднее арифметическое этих чисел, а также разность удвоенной суммы первого и третьего чисел и утроенного второго числа.
Решение задачи: «Найдите среднее арифметическое этих чисел, а также разность»
textual
Листинг программы
Sub ЭлинаЮкари()
Dim A As Single, B As Single, C As Single, D As Single, E As Single
A = Val(Replace(InputBox("Введите A = ", "Ввод данных", 3.65), ",", "."))
B = Val(Replace(InputBox("Введите B = ", "Ввод данных", -4.34), ",", "."))
C = Val(Replace(InputBox("Введите C = ", "Ввод данных", 2.27), ",", "."))
'C = InputBox("Введите С = ", "Ввод данных", 2#)
'A = 3.65: B = -4.34: C = 2.27
D = (A + B + C) / 3: E = 2 * (A + C) - 3 * B
Debug.Print "A ="; A
Debug.Print "B ="; B
Debug.Print "C ="; C
Debug.Print "D ="; D
Debug.Print "E ="; E
End Sub