数组a存储降序排列的m个数据，数组b中存储的是升序排列的n个数据，且两个数组中存储的数据为区间[1，20]范围内的不重复的随机整数。现将两个数组的数据合并到c数组中，使c数组的数据为左右交替上升，如表所示：

当窗体 Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：
实现该功能的 VB 程序如下：
Const m=5
Const n=6
Dim a（1 To m） As Integer
Dim b（1 To n） As Integer
Dim c（1 To m+n） As Integer
‘窗体加载时，生成数组 a、b 中的数据，并按要求排序后显示在列表框中，代码略
Private Sub Command1_Click （　　）
Dim pa As Integer,pb As Integer,pc As Integer,s As Integer,flag As Boolean
pa=m：pb=1：pc=1
flag=True
Do While

①

①

If a（pa）＜b（pb） Then
s=a（pa）
pa=pa-1
Else
s=b（pb）
pb=pb+1
End If
c（pc）=s
If flag Then
pc=m+n-pc+1
Else
pc=-pc
End If

②

②

Loop
‘处理 a、b 数组中剩余数据，并在列表框 List3 中输出数组 c,代码略
End Sub
（1）窗体加载的事件处理过程名为

D

D

。（填字母：A．Form1_Click/B．Form_Click/C．Form1_Load/D．Form_load）
（2）加框处代码有错，请改正。
（3）在横线处填入合适的代码。