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