Dim osnovanie
Dim cislo1
Dim cislo2
Dim delenie2
Dim delenie3
osnovanie = 2
cislo1 = InputBox("Введите десятичное число")
cislo2 = InputBox("Введите число в системе счисления c некоторым основанием")
cislo3 = cislo1
Itog = 1
Do While (cislo2 <> Itog)
delenie2 = cislo1 mod osnovanie
delenie3 = cislo1\osnovanie
Itog = delenie2
Do While (osnovanie =< delenie3)
cislo1 = delenie3
delenie2 = cislo1 mod osnovanie
delenie3 = cislo1\osnovanie
Itog = (delenie2 & Itog)
loop
Itog = (delenie3 & Itog)
osnovanie = osnovanie + 1
cislo1 = cislo3
loop
MsgBox "Основание" & " " & osnovanie