在窗体上画一个名称为command 1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Colilinand1 Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next call Swap(a) For i = 1 To 10Print a(i); Next End Sub Sub Swap(b() As Integer) n = 【6】 For i = 1 To n/2 t = b(i) b(i) = b(n) b(n) = t 【7】 Next End Sub 上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。

高炉冶炼的产品有生铁、炉渣、煤气和炉尘。