单选题 编写如下程序：
Dim num As Integer, r As Integer, n As Integer, i As Integer, arr (5) As Integer
Private Sub Command1_Click()
num=12:r=2
Call sub1(num, r, n)
For i=n To 1 Step-1
Print arr(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，输出结果为