下面程序的功能是将十进制的数转换为二进制数,请完善程序.下面程序的功能是将十进制的数转换为二进制数,请完善程序.PrivateSubCommand1Click()DimDecAsInteger,StAsStringDimiAsIntegerDec=Text1Doi

Question

下面程序的功能是将十进制的数转换为二进制数,请完善程序.
下面程序的功能是将十进制的数转换为二进制数,请完善程序.
Private Sub Command1_Click()
Dim Dec As Integer,St As String
Dim i As Integer
Dec = Text1
Do
i = Dec Mod 2
St = （7）
Dec = Dec \ 2
Loop Until （8）
Text2 = St
End Sub

Answer 1

st=i+st;
DEC >0