请问vb里面有没有这样一个函数

Question

如果我有一个字符串“011010001001”，就是一个二进制字符串，我想把它变成数字，但是值仍然是等于这个二进制值的。有这样的函数吗？

Answer 1

Public  Function  BinToDec(ByVal  value  As  String)  As  Integer  
       Dim  i  As  Integer  
       Dim  returnValue  As  Integer  =  0  
       For  i  =  value.Length  -  1  To  0  Step  -1  
           returnValue  +=  Val(value.Chars(value.Length  -  1  -  i))  *  (2  ^  i)  
       Next  
 
       Return  returnValue  
End  Function