18
Сентябрь
2008
Перевод из десятичной системы в двоичную
Перевод из десятичной системы в двоичную
Option Explicit Private Function ConvertToBinary(ByVal lngQuotient As Long) As String Dim strBinary As String Dim strReturn As String Dim i As Integer i = 100 strBinary = String(i, "0") Do While lngQuotient Mid(strBinary, i, 1) = CStr(lngQuotient Mod 2) lngQuotient = lngQuotient \ 2 i = i - 1 Loop strReturn = Right(strBinary, 100 - i) ConvertToBinary = strReturn End Function Private Sub Command1_Click() Text2.Text = ConvertToBinary(Text1.Text) End Sub