[填空題] 編寫一個程序把一維數(shù)組的各元素反序存放。在主過程中調(diào)用subl過程把從鍵盤上輸入的10個元素反序存放后再輸出。根據(jù)題意，請完善下列程序。

Private Sub subl(b()As Integer, ByVal n As Integer)

Dim i As Integer, j As Integer, t As Integer

【13】

j=n

Do While i＜j

t=b(i):b(i)=b(j):b(j)=t

i=i+1:j=j-1

Loop

End Sub

Private Sub Command1_Click()

Dim a(1 To 10)As Integer, i As Integer

Randomize

For i=1 To 10

a(i)=Int(100*RnD) +1

Next i

For i= 【14】

Print a(i);

Next i

Print

Call 【15】

For i=i To 10

Print a(i);

Next i

Print n

End Sub

[AC]i＝A [AD]A To A0 [AE]Subl(a, A0)解析：[分析]： 首先可用兩個變量i和j來表示要交換 的數(shù)組元素下標，一開始顯然是i=1、j=n；然后交換a(i)和a(j)的值；交換之后，i的值應(yīng)加1變成下一個元素的下標，j的值減1變成前一個元素的下標，冉交換它們的值……直到i的值等于或大于j的值為止。