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

根据分子动理论，设两个分子间的距离为r₀时分子间的引力和斥力相等，以下关于分子力与分子势能与它们间距离的关系，正确的是( )。

A．若两分子间距离在r₀的基础上增大，则分子间的引力增大，斥力减小，分子力表现为引力
B．两分子间距离越大，分子力越小；分子间距离越小，分子力越大
C．两分子间距离为r₀时，分子势能最小，在r₀的基础上距离增大或减小，分子势能都变大
D．两分子间距离越大，分子势能越大；分子间距离越小，分子势能越小