将二进制数1011011转化为十进制

Question

将二进制数1011011转化为十进制

Answer 1

Dim B As String, D As Long, i As Integer
B = "1011011"
For i = Len(B) To 1 Step -1
    If Mid(B, i, 1) = "1" Then D = D + 2 ^ (Len(B) - i)
Next i
Print D

不知道你要的是什么语言的，上面是VB6的代码