一个VB问题,复杂
发布网友
共1个回答
热心网友
Private Sub Command1_Click()
Text2 = BTOD(Text1)
End Sub
Function BTOD(a As String) As Long
For i = 0 To Len(a) - 1
Sum = Sum + Val(Mid(a, Len(a) - i, 1)) * 2 ^ i
Next
BTOD = Sum
End Function
