填空题：程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 　Private Su

程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填上适当的内容，将程序补充完整。 　
Private Sub Form_load()
Dim　a(1 T0 5)AsInteger
a(1)＝20：a(2)＝25：a(3)＝10：a(4)＝40：a(5)＝15
n＝5
For z＝1 TO n－m
Ifa(z)>a(z+1)Then
t＝a(z)
a(z)＝a(z+1)
a(z+1)＝t
EndIf
Nextz
Nextm
End Sub