a = "001101011110001101011110110111101110111101"
n = 8 ' 或 10
b = Mid(a, 10, 10)
s = 0
For i = 0 To n - 1
s = s + Val(Mid(b, i + 1, 1)) * 2 ^ i
Next i
MsgBox s
子路★堅持護法★不屈服
Dim Str As String = 指定的二進位字串
TextBox.Text = Convert.ToInt32(Str.SubString(10, 8), 2)
n = 8 ' 或 10
b = Mid(a, 10, 10)
s = 0
For i = 0 To n - 1
s = s + Val(Mid(b, i + 1, 1)) * 2 ^ i
Next i
MsgBox s
TextBox.Text = Convert.ToInt32(Str.SubString(10, 8), 2)
提供新學到的方法。0.0