vb6.0中如何把十进制整数转换为二进制整数，一及二进制整数到十进制的转换

Private Sub Command1_Click()Print Dec_to_Bin(3)Print Bin_to_Dec("10")End SubPublic Function Dec_to_Bin(ByVal Dec As Long) As String '十进制to二进制Dec_to_Bin = ""Do While Dec > 0 Dec_to_Bin = Dec Mod 2 & Dec_to_Bin Dec = Dec