用VB程序语言如何把二进数变为十进数?
来源:百度知道 编辑:UC知道 时间:2024/06/22 10:01:20
Private Sub Form_Click()
Dim I As Integer, B As String, A As Integer
Randomize
B = InputBox("二进制数", "输入", "100100101")
Print B
For I = 1 To Len(B)
A = A + 2 ^ (I - 1)
Next
Print A
End Sub
已经运行过。