[填空题] 编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。 Private Sub subl(b()As I

[填空题] 编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。

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来表示要交换 的数组元素下标，一开始显然是i=1、j=n；然后交换a(i)和a(j)的值；交换之后，i的值应加1变成下一个元素的下标，j的值减1变成前一个元素的下标，冉交换它们的值……直到i的值等于或大于j的值为止。