给你一段VB代码,自己换成C#吧!
Private Function Convert(ByVal a As Integer) As String
Dim result As Integer
result = a
If result = 0 Then
Convert = "00000000"
Else
Do While result <> 1
If CStr(result Mod 2) = "0" Then
Convert = "0" & Convert
Else
Convert = "1" & Convert
End If
result = result \ 2
Loop
Convert = "1" & Convert
If Len(Convert) <> 8 Then
Convert = Right("00000000" & Convert, 8)
End If
End If
End Function