选择题   下列程序的功能是：输入10个整数。   
    Private Sub Command2_Click()
    Dim i, j, k, temp, art(11)As Integer
    Dim result As String
    For k=1 To 10
    arr(k)=Val(InputBox('请输入第'＆k＆'个数:', '数据输入窗口'))
    Next k
    i=1
    j=10
    Do
    temp=arr(i)
    arr(i)=arr(j)
    arr(j)=temp
    i=i+1
    j=______
    Loop While______
    resule=''
    For k=1 To 10
    result=result＆arr(k)＆ Chr(13)
    Next k
    MsgBox result
    End Sub
    横线处应填写的内容是______。