vb

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