fork download

copy

Private Sub Command1_Click()
MsgBox Dec2Bin(1024)
End Sub
 
Function Dec2Bin(ByVal n As Long) As String
Do Until n = 0
    If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin
    n = n \ 2
Loop
End Function

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/jnAZGQ/prog.vb (1,13) : Error VBNC30203: Not valid as identifier.
/home/jnAZGQ/prog.vb (2,7) : Error VBNC30203: Not valid as identifier.
/home/jnAZGQ/prog.vb (3,8) : Error VBNC30203: Not valid as identifier.
/home/jnAZGQ/prog.vb (5,9) : Error VBNC30203: Not valid as identifier.
/home/jnAZGQ/prog.vb (6,3) : Error VBNC30203: Not valid as identifier.
/home/jnAZGQ/prog.vb (7,7) : Error VBNC30203: Not valid as identifier.
/home/jnAZGQ/prog.vb (8,6) : Error VBNC30203: Not valid as identifier.
/home/jnAZGQ/prog.vb (9,5) : Error VBNC30203: Not valid as identifier.
/home/jnAZGQ/prog.vb (10,13) : Error VBNC30203: Not valid as identifier.
There were 9 errors and 0 warnings.
Compilation took 00:00:00.6617730

Standard output is empty