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

Dim B As String, D As Long, i As IntegerB = "1011011"For i = Len(B) To 1 Step -1 If Mid(B, i, 1) = "1" Then D = D + 2 ^ (Len(B) - i)Next iPrint D不知道你要的是什么语言的，上面是VB6的代码