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

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   --------------------编程问答-------------------- 变量最好不要与常用函数名重复
比如 Dec,Hex
其他部分你逐个测试下就知道了
比如
debug.print 7 mod 3
结果为1 就是取模或者叫余数
其他函数查msdn帮助文件吧都有详细介绍的 --------------------编程问答-------------------- D_To_B 函數,為10進制轉2進制
B_To_D 函數,為2進制轉10進制 --------------------编程问答-------------------- 怎么试?他没说要什么按键...怎么操作也没有写...我不知道怎么运行 --------------------编程问答-------------------- 看来你对VB什么都不知道~
建议你那本VB入门的书看下不用很厚基础教程之类的最好
至少把VB IDE环境熟悉起来 --------------------编程问答--------------------

引用 4 楼 ayalicer 的回复:

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

--------------------编程问答-------------------- 你自己新建一个工程，添加个按钮试一下那些函数不就行了！

补充：VB ,  基础类