SOS小弟不才,请教一下高手,怎样用循环结构实现十进制数转变成二进制数,先在这谢过了.

Option Explicit

Private Sub Command1_Click()
On Error Resume Next
Text1.Text = Dec2Bin(CInt(Text1.Text))
End Sub

Private Function Dec2Bin(i As Integer) As String
Dim temp As Integer
Dim output As String

If i <> 1 Then
temp = i
Do
output = (temp Mod 2) & output
temp = temp \ 2
Loop Until temp = 1
output = (temp Mod 2) & output
Else
output = 1
End If

Dec2Bin = output
End Function

靠,这么简单,当时竟然没有想到