谢谢rainstormmaster(rainstormmaster)提醒,
下次我一定注意先调试一下
Private command1_click()
Dim i As String
Dim j As Integer
Dim res As Integer '十进制结果
res = 0
i = "011110110"
For j = 1 To Len(i)
res = Mid(i, j, 1) * 2 ^ (Len(i) - j) + res
Next j
End Sub
Private Sub Command1_Click()
Dim s As String
s = "100010"
Dim i As Long
Dim num As Long
num = 0
For i = 1 To Len(s)
num = CLng(Mid(s, i, 1)) * 2 ^ (Len(s) - i) + num
Next
Debug.Print num
End Sub