[填空题] 程序运行后，利用冒泡法对数组a中的数据按从小到大排序。请在空白处填入适当的内容将程序补充完整。 Private Sub Form_load() Dim at(To 5)As Integ

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

Private Sub Form_load()

Dim at(To 5)As Integer

n=5

a(1)=20:a(2)=25=a(3)=10:a(4)=40:a(5)=15

(8)

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