123

Private Sub Command1_Click()
Me.Font.Size = 60
    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 '11
    yushu(i) = n Mod er '1
   
    While shang <> 0
        i = i - 1
        n = shang '11 5 2 1
        shang = n \ er '5 2 1 0
        yushu(i) = n Mod er '1 1 0 1
       
Ened Sub