VB模块代码求助？？？

Question

我现在遇到一个问题，VB程序里面有一个模块，在窗口代码中有调用，但不知道是什么意思？请各位能指点不？窗口代码：Private Sub Command1_Click()Form6.Combo1.ListIndex = Combo1.ListIndexForm6.Show
Form6.Combo1.ListIndex = Combo1.ListIndex
Form6.Combo1.Text = Combo1.Text
Form5.Hide
End SubPrivate Sub Command10_Click()
Dim b, i As Long
modi = modi + 1
b = modi Mod 2
If b = 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
For i = 0 To 62
Text1(i).Locked = True
Next iCommand10.Caption = "模式1"
Else
Command10.Caption = "模式2"
For i = 0 To 62
Text1(i).Locked = False
Next i
 End IfEnd Sub
模块代码：Public modi As Long
Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
Next i
End FunctionPublic Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function希望各位高手把这个给我解释一下，，好像是一个十进制与二进制的转换，是吗？？小弟新学的。。

Answer 1

'全局变量
Public modi As Long'2 -> 10 转换
Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
Next i
End Function'10 -> 2 转换
Public Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

Answer 2

dim i as long,s as  string
i=100
s= DEC_to_BIN(i)
debug.print s
i= BIN_to_DEC(s)
debug.print s

Answer 3

楼主学习一下再说：http://download.csdn.net/source/1842876

Answer 4

Public modi As Long
Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
Next i
End FunctionPublic Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function
函数BIN_to_DEC
功能：二进制转十进制
参数：按值传递包含二进制数据的字符串
返回值：长整型十进制数函数DEC_to_BIN
功能：十进制转二进制
参数：按址传递包含十进制数据的长整型值
返回值：包含二进制数的字符串