单选题
编写如下程序：
Dim ilum As Integer，r As Integer，n As Integer，i As Integer，art(5)As Integer
Private Sub Command1_Click()
num=12：r=2
Call subl(num，r，n)
For i=n To 1 Step -1
Print art(i)；
Next i
End Sub
Sub sub 1(d As Integer，r As Integer，k As Integer)
k=0
Do While d<>0
k=k+1：arr(k)=d Mod r：d=d＼r
Loop
End Sub
程序运行后，单击命令按钮Command1，输出结果为