填空题

程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。
Private Sub Form_load()
Dim a(1 To 5)As Integer
a(1)=20:a(2)=25:a(3)=10:a(4)=40:a(5)=15
n=5
______
For z=1 To n-m
If a(z)＞a(z+1)Then
t=a(z):a(z)=a(z+1):a(z+1)=t
End If
Next z
Next m
End Sub