Ввести два числа А и С. - Найти произведение этих чисел, используя только операцию сложения. - Вычислить АС, используя только операцию умножения - VB

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

Ввести два числа А и С. - Найти произведение этих чисел, используя только операцию сложения. - Вычислить А^c, используя только операцию умножения.

Решение задачи: «Ввести два числа А и С. - Найти произведение этих чисел, используя только операцию сложения. - Вычислить АС, используя только операцию умножения»

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

                            Private Sub Command2_Click()
Cls
a_1 = InputBox("Vvesti 1 chislo - ГЂ")
a_2 = InputBox("Vvesti 2 chislo - Г‘")
b_1 = 0
For i = 1 To a_2
    b_1 = b_1 + a_1
Next i
Print "ГЏГ°Г®ГЁГ§ГўГҐГ¤ГҐГ*ГЁГҐ Г¤ГўГіГµ ГўГўВёГ¤ВёГ*Г*Г»Гµ Г·ГЁГ±ГҐГ«, ГЎГҐГ§ ГЁГ±ГЇГ®Г«ГјГ§Г®ГўГ*Г*ГЁГї ГіГ¬Г*Г®Г¦ГҐГ*ГЁГї ="; b_1
b_2 = 1
For i = 1 To a_2
    b_2 = b_2 * a_1
Next i
Print "ГЏГҐГ°ГўГ®ГҐ Г·ГЁГ±Г«Г® -ГЂ Гў Г±ГІГҐГЇГҐГ*ГЁ - Г‘, Г± ГЁГ±ГЇГ®Г«ГјГ§Г®ГўГ*Г*ГЁГҐГ¬ ГіГ¬Г*Г®Г¦ГҐГ*ГЁГї ="; b_2
End Sub
                        