Линейная задача. Можно просто код программы - VB

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

Вот собственно задача "В школьном коридоре длиной 56 м нужно выкрасить пол. Выкрасив часть коридора длиной 22 м, израсходовали А кг краски. Сколько еще нужно краски, докрасить коридор?" В паскале составил, а вот в бэйсике не догоняю что то. Благодарю заранее!

Решение задачи: «Линейная задача. Можно просто код программы»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim i, n, s As Double
Dim A As Double
Dim b As Double
Cls
s = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г®ГЎГ№ГіГѕ ГЇГ«Г®Г№Г*Г¤Гј ГЇГ®ГЄГ°Г*Г±ГЄГЁ", "ГЏГ«Г®Г№Г*Г¤Гј", 56)
i = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЇГ®ГЄГ°Г*ГёГҐГ*Г*ГіГѕ ГЇГ«Г®Г№Г*Г¤Гј", "ГЏГ®ГЄГ°Г*ГёГҐГ*Г*Г*Гї ГЇГ«Г®Г№Г*Г¤Гј", 22)
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЁГ±ГЇГ®Г«ГјГ§Г®ГўГ*Г*Г*Г®ГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГЄГ°Г*Г±ГЄГЁ", "Г€Г±ГЇГ®Г«ГјГ§Г®ГўГ*Г*Г*Г*Гї ГЄГ°Г*Г±ГЄГ*", 10)
b = s - i
A = Round(56 * n / 22, 1)
 
Print "Г„Г«Гї ГЇГ®ГЄГ°Г*Г±ГЄГЁ Г®Г±ГІГ*ГўГёГҐГ©Г±Гї ГЇГ«Г®Г№Г*Г¤ГЁ Гў " & b & " ГЄГў.Г¬. Г*ГҐГ®ГЎГµГ®Г¤ГЁГ¬Г® - " & A & "Г«ГЁГІГ°Г®Гў ГЄГ°Г*Г±ГЄГЁ"
End Sub
                        