请版主开设一个QB的实用函数讨论区，讨论一些QB中的实用函数
就由我开个头吧：
QB中处理数制的函数：
1.将字符串转成数字              
  Val(String$)
2.将十进制数转换成十六进制字符串  
  Hex$(Dig)
3.将十六进制转成十进制数   
  如：12E3A    Val("&H12E3A")
4.将十进制数转成二进制字串
  function DtoB$(Dig as long)
      dim NN as long
      NN=Dig
      do
         if NN mod 2=0 then Buf$="0"+Buf$ else Buf$="1"+Buf$
         NN=Int(NN/2)
      loop while NN>0
      DtoB$=Buf$
  end function
  如求 1234567 BinStr$=DtoB(1234567)
5.将二进制字符串转成十进制数
  function BtoD&(BinStr as string)
      slen=len(Binstr)
      NN&=1
      for i=sLen to 1 step -1
          if mid$(Binstr$,i,1)="1" then K=1 else K=0
          Sum&=Sum&+K*NN&
          NN&=NN&*2
      next
      BtoD&=Sum&
  end Function
其它不常用的数制也就不说了