• Home
 · 
• Math/Dates
 · 
• conversion of positive integer to binary code

conversion of positive integer to binary code

conversion of positive integer to binary code

API Declarations


Dim c As String




Rate conversion of positive integer to binary code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()
a = Text1.Text
c = " "
While a >= 1
b = a Mod 2
a = Int(a / 2)
c = c & Str(b)
Wend
MsgBox StrReverse(c)
End Sub