Private Sub Command1_Click()
Me.Font.Size = 60
Dim b As Integer
b = Int(Val(Me.Text1.Text))
Print erjinzhi(b)
End Sub
Private Function erjinzhi(m As Integer) As String
Me.Font.Size = 60
Cls
Dim n As Double
Dim re As String
n = m
Const er As Double = 2
Dim shang As Double
Dim yushu(1 To 64) As Double
i = UBound(yushu)
shang = n \ er
yushu(i) = n Mod er
re = yushu(i) & re
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
re = yushu(i) & re
Wend
erjinzhi = re
End Function
Me.Font.Size = 60
Dim b As Integer
b = Int(Val(Me.Text1.Text))
Print erjinzhi(b)
End Sub
Private Function erjinzhi(m As Integer) As String
Me.Font.Size = 60
Cls
Dim n As Double
Dim re As String
n = m
Const er As Double = 2
Dim shang As Double
Dim yushu(1 To 64) As Double
i = UBound(yushu)
shang = n \ er
yushu(i) = n Mod er
re = yushu(i) & re
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
re = yushu(i) & re
Wend
erjinzhi = re
End Function