17
Сентябрь
2008
Перевод из двоичной системы в десятичную
Перевод из двоичной системы в десятичную
Option Explicit Dim i As Long 'Проверку вводимых значений сами сделаете Private Function BinToDex(Bin As String) 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