难度代码转换问题 把JS转换为VB

Question

<script>var lj=function(str){var hash=5381;for(var i=0,len=str.length;i<len;++i){hash+=(hash<<5)+str.charAt
(i).charCodeAt();}
return hash&0x7fffffff;};
</script>这一段Javascript代码  谁有能力转换成 VB的  

Answer 1

我就是不知道怎么写成VB的  可以帮忙写成Vb版的不

Answer 2

<script>var lj=function(str){var hash=5381;for(var i=0,len=str.length;i<len;++i){hash+=(hash<<5)+str.charAt
(i).charCodeAt();}
return hash&0x7fffffff;};
</script><script type="text/vbscript" language="vbscript">
function lj(str)
  dim hash,i,l,mi
  mi=cdbl(4294967296)
  hash=cdbl(5381)
  l=len(str)
  for i=1 to l
    hash = hash +  (hash*1024 + asc(mid(str,i,1)))
    do while hash >= mi
      hash = hash-mi
    loop
  next
  lj = hash
end function
</script>
自己去测试,有错的话告诉我

Answer 3

<script type="text/vbscript" language="vbscript">
function lj(str)
  dim hash,i,l,mi
  mi=cdbl(4294967296)
  hash=cdbl(5381)
  l=len(str)
  for i=1 to l
  hash = hash + (hash*32 + asc(mid(str,i,1)))
  do while hash >= mi
  hash = hash-mi
  loop
  next
  lj = hash
end function
</script>
自己去测试,有错的话告诉我