by Yamuna and Nandini (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 1st December 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
conversion of positive integer to binary code
API Declarations
Dim c As String
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