待排序数据存储在数组a中(a(1)…a(n))，共有n个数据，要求升序排序

Dim a(0 To 100) As Integer

Dim n As Integer

Private Sub Command 1_Click()

    Dim i As Integer，m As Integer

    m=n＼2

    Do While  '改错

       For i=1To m

          Call jpsort(i，m)    '调用过程jpsort()

       Next

        m=m＼2

    Loop

'显示输出结果

End Sub

Private Sub jpsort(start As Integer，w As Integer)

         For i=start To n Step w

         For j= ② To i+w Step-w    '填空

             If a(j-w) >a(j) Then

                t=a(j-w)： ③ ：a(j)=t    '填空

           End If

       Next

    Next

End Sub

请回答以下问题：