[VB 6.0] Перевести число в двоичную систему

Private Function BinToDex(Bin As String) As Long Dim i As Long For i = 1 To Len(Bin) BinToDex = BinToDex + CLng(Mid$(Bin, i, 1)) * 2 ^ (Len(Bin) - i) Next End Function Private sub command1_click() text2.text=BinToDex(text1.text) end sub

 

« Пред.		След. »