求救...谁帮帮忙.帮我注解一下下面的意思,希望可以全面一点,明白一点我是新手...谢谢了..

Question

Option  Explicit  
Public  Function  D_To_B(ByVal  Dec  As  Long)  As  String  
          Do  
        D_To_B  =  Dec  Mod  2  &  D_To_B  
                  Dec  =  Dec  \  2  
          Loop  While  Dec  
  End  Function 
Public  Function  B_To_D(ByVal  Bin  As  String)  As  Currency  
          Dim  i  As  Long  
          For  i  =  1  To  Len(Bin)  
                  B_To_D  =  B_To_D  *  2  +  Val(Mid(Bin,  i,  1))  
          Next  i  
  End  Function  
Public  Function  H_To_B(ByVal  Hex  As  String)  As  String  
          Dim  i  As  Long  
          Dim  B  As  String  

Answer 1

变量最好不要与 常用函数名重复
比如 Dec,Hex 
其他部分 你逐个测试下就知道了
比如 
debug.print 7 mod 3
结果为1 就是取模 或者叫 余数
其他函数 查msdn帮助文件吧 都有详细介绍的

Answer 2

D_To_B 函數,為10進制轉2進制
B_To_D 函數,為2進制轉10進制

Answer 3

看来你对VB什么都不知道~
建议你那本VB入门的书看下 不用很厚 基础教程之类的最好
至少把VB IDE环境熟悉起来