1 CLS
DIM t AS DOUBLE
INPUT n$, s
IF s < 2 OR s <> INT(s) OR s > 16 THEN 1
DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
l = LEN(n$): DIM a(l): n$ = UCASE$(n$)
FOR i = 1 TO l
    m$ = MID$(n$, i, 1)
    f = 0
    FOR j = 1 TO s
        READ k$
        IF k$ = m$ THEN f = 1: EXIT FOR
    NEXT j: RESTORE
    IF f = 0 THEN PRINT "ERROR": END
    IF ASC(k$) > 57 THEN a(i) = ASC(k$) - 55 ELSE a(i) = VAL(k$)
NEXT i
r = 0: t = 0
FOR i = l TO 1 STEP -1
    t = t + a(i) * s ^ r: r = r + 1
NEXT i
2 INPUT p
IF p < 2 OR p <> INT(p) OR p > 16 THEN 2
DO UNTIL t = 0
  a$ = LTRIM$(STR$(t - INT(t / p) * p)) + a$
  t = INT(t / p)
LOOP
PRINT "("; n$; ")"; s; "= ( "; a$; " )"; p
END

抄袭大王的也太麻烦了。
看我的！
CLS
INPUT a$
l = LEN(a$)
FOR i = l TO 1 STEP -1
    r = i - 1
    m$ = MID$(a$, l + 1 - i, 1)
    IF m$ <> "0" AND m$ <> "1" THEN PRINT "Error!": END
    t = t + VAL(m$) * 2 ^ r
NEXT i
PRINT t
END

[quote]抄袭大王的也太麻烦了。
看我的！
CLS
INPUT a$
l = LEN(a$)
FOR i = l TO 1 STEP -1
    r = i - 1
    m$ = MID$(a$, l + 1 - i, 1)
    IF m$ <> "0" AND m$ <> "1" THEN PRINT "Error!": END
    t = t + VAL(m$) * 2 ^ r
NEXT i
PRINT t
END

[/quote]
[em20][em13]
以后就叫你[size=2]“诽谤大王”[/size]

看我的吧!我的才是最好简洁最完整的!
给我加30+20分吧!!!!!!!!!
input "a=";a$
Print "("; a$; ")2=(";
s = 0
If Left$(a$, 1) = "-" Then Print "-";: a$ = Mid$(a$, 2)
n = Len(a$)
For i = 1 To n
b = Val(Mid$(a$, i, 1))
s = s + b * 2 ^ (n - i)
Next i
Print s; ")10"
End

CLS
INPUT a$
l = LEN(a$)
FOR i = l TO 1 STEP -1
    r = i - 1
    m$ = MID$(a$, l + 1 - i, 1)
    IF m$ <> "0" AND m$ <> "1" THEN PRINT "Error!": END
    t = t + VAL(m$) * 2 ^ r
NEXT i
PRINT t
END

input "a=";a$
Print "("; a$; ")2=(";
s = 0
If Left$(a$, 1) = "-" Then Print "-";: a$ = Mid$(a$, 2)
n = Len(a$)
For i = 1 To n
b = Val(Mid$(a$, i, 1))
s = s + b * 2 ^ (n - i)
Next i
Print s; ")10"
End

input "a=";a$
Print "("; a$; ")2=(";
s = 0
If Left$(a$, 1) = "-" Then Print "-";: a$ = Mid$(a$, 2)
n = Len(a$)
For i = 1 To n
b = Val(Mid$(a$, i, 1))
s = s + b * 2 ^ (n - i)
Next i
Print s; ")10"
End

难道非得用字符串？
INPUT M
DO
  KI=M MOD 10
  K=K+KI*2^I
  I=I+1
  M=M\10
LOOP UNTIL M=0
PRINT K

CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A = VAL(MID$(N$, LEN(N$) + 1 - I, 1))
X = X + A * 2 ^ (I - 1)
NEXT I
PRINT X
END

CLS
INPUT N$
FOR I = LEN(N$) TO 1 STEP -1
A = VAL(MID$(N$, LEN(N$) + 1 - I, 1))
X = X + A * 2 ^ (I - 1)
NEXT I
PRINT X
END