A、B两个木块叠放在竖直轻弹簧上，如图所示，已知m_A=m_B=1kg，轻弹簧的劲度系数为100N/m．若在木块A上作用一个竖直向上的力F，使木块A由静止开始以2m/s²的加速竖直向上作匀加速运动．取g=10m/s²，求：

（1）使木块A竖直向上作匀加速运动的过程中，力F的最大值是多少？

（2）若木块A竖直和上作匀加速运动，直到A、B分离的过程中，弹簧的弹性势能减小了1.28J，则在这个过程中，力F对木块做的功是多少？

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