对19, 5, 45, 79, 0, -20 按升序排序输出。
Dim a()
Dim t%
a=Array(19, 5, 45, 79, 0, -20)
n=_________________
For i=0 To n-1
_____________
For j=_______________
If a(k)＞a(j) then_____________
Next
t=a(k) :a(k)=a(i):__________________
Next
Fori=0Ton
Print a(i);
Next