怎样把正整数转为二进制数

在窗体代码区复制下面代码，运行后点击窗体即可。

Option Explicit

Private Sub Form_Click()
Dim Dec As Long, DEC_to_BIN As String
Dec = InputBox("请输入一个正整数：", "数值输入")
If Not (Dec > 0 And Fix(Dec) = Dec) Then
MsgBox "你输入的不是正整数！"
End
End If
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
MsgBox DEC_to_BIN
End Sub