在窗体上画一个名称为Command1的命令按钮,然后编写下列程序:
Option Base_1
Private Sub Command1_Click()
Dim a(10)As Integer
For i=1 To 10
a(i)=i
Next
Call swap( 【8】 )
For i=1 To 10
Print a(i);
Next
End Sub
Sub swap(b()As Integer)
n= 【9】
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
【10】
Next
End Sub
上述程序的功能是通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换, a(2)与a(9)的值互换,……,请填空。