Visual Basic FAQ

Перевод из десятичной системы в двоичную

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

Запись опубликована on 18.09.2008 at 11:09 и размещена в рубрике: Арифметика. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.