编写二进制和十进制整数相互转换的2个vb函数,要完整一点的，谢谢了

新建两个text和两个command
text1为10进制 text2为2进制

把代码全部清空，，在粘贴以下代码

Public Function DectoBin(dec As Long) As String
DectoBin = ""
Do While dec > 0
DectoBin = dec Mod 2 & DectoBin
dec = dec \ 2
Loop
End Function
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

Private Sub Command1_Click()
Text2.Text = DectoBin(Int(Text1.Text))
End Sub

Private Sub Command2_Click()
Text1.Text = BIN_to_DEC(Int(Text2.Text))
End Sub

Private Sub Form_Load()
Command1.Caption = "10转2"
Command2.Caption = "2转10"

End Sub

现在的学生怎么有这样的.