Составление программ с применением линейного алгоритма - VB (60950)

Узнай цену своей работы

Формулировка задачи:

Даны три числа вычислить их произведение и среднее арифметическое. Помогите плиз!!!!

Решение задачи: «Составление программ с применением линейного алгоритма»

textual
Листинг программы
Option Explicit
Dim a() As Double
Dim x As Double, i As Double, j As Double, u As Double, s As Double
 
Private Sub Command1_Click()
Cls
x = InputBox("Ââåäèòå ÷èñëî", "Ïåðâîå ÷èñëî", 10)
i = InputBox("Ââåäèòå ÷èñëî", "Âòîðîå ÷èñëî", 10)
j = InputBox("Ââåäèòå ÷èñëî", "Òðåòüå ÷èñëî", 10)
 
u = x * i * j
s = (x + i + j) / 3
Print "ÏðîèçâåäåГ*ГЁГҐ - " & u
Print vbLf
Print "ÑðåäГ*ГҐГҐ Г*ðèôìåòè÷åñêîå - " & s
 
End Sub

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы