Составление программ с применением линейного алгоритма - 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
                        