Написать программу в VBA перевод из одной СС в другую.Троичное число → восьмеричное число и обратный процесс. 

Sub z() n = InputBox("Введите троичное число") Do         d = d + (n Mod 10) * 3 ^ i         i = i + 1         n = n \ 10         Loop Until n = 0 MsgBox ("Десятичное: " & d & "; восьмеричное: " & Oct(d)) d = 0 i = 0 n = InputBox("Введите восьмеричное число")    Do         d = d + (n Mod 10) * 8 ^ i         i = i + 1         n = n \ 10         Loop Until n = 0 x = d    Do         t = t & (x Mod 3)         x = x \ 3         Loop Until x = 0 t = StrReverse(t) MsgBox ("Десятичное: " & d & "; троичное: " & t) End Sub