学进去

数组 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 =　　

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

A．Form1_Click /	B．Form_Click /
C．Form1_Load /	D．Form_load）

（2）加框处代码有错，请改正。　__________
（3）在划线处填入合适的代码。