Перевод числа в десятичную систему счисления - VB
Формулировка задачи:
Помогите с програмкой!
Дана символьная строка, представляющая собой запись натурального числа в р-ичной системе счисления (2 < р < 9). Написать процедуру перевода этого числа в десятичную систему счисления.
Решение задачи: «Перевод числа в десятичную систему счисления»
textual
Листинг программы
Function pTo10(S as string,p as integer) As integer
pTo10=0
for i%=1 to len(S)
pTo10=pTo10*p+Asc(mid$(S,i%,1))-Asc("0")
Next i%
End Function