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