Converting Decimal Numbers to Binary
Converting Decimal Numbers to Binary
Rate Converting Decimal Numbers to Binary
(2(2 Vote))
n = InputBox("Enter an Decimal Number:")
b = Binary_Function(n)
MsgBox b
End Sub
Function Binary_Function(n As Integer)
Dim s As String, i As Integer
For i = 0 To 7
s = (n Mod 2) & s
t = n / 2
n = Int(t)
Next
Binary_Function = s
End Function
Converting Decimal Numbers to Binary Comments
No comments yet — be the first to post one!
Post a Comment