二进制

今天老师说我打得慢！！

我很难过！！

因为电脑实在是很慢！

我也是没办法的哇！


Private Sub Command1_Click()

    Me.Font.Size = 30

    Dim n As Byte

    n = 23

    Const er As Byte = 2

    Dim shang As Byte

    Dim yushu(1 To 5) As Byte

    Dim i As Byte

    i = 5

    shang = n \ er

    yushu(i) = n Mod er

    While shang <> 0

    

        i = i - 1

        n = shang

        shang = n \ er

        yushu(i) = n Mod er

    Wend

    Print yushu(1); yushu(2); yushu(3); yushu(4); yushu(5)

    

End Sub