數(shù)組a存儲(chǔ)降序排列的m個(gè)數(shù)據(jù)，數(shù)組b中存儲(chǔ)的是升序排列的n個(gè)數(shù)據(jù)，且兩個(gè)數(shù)組中存儲(chǔ)的數(shù)據(jù)為區(qū)間[1，20]范圍內(nèi)的不重復(fù)的隨機(jī)整數(shù)。現(xiàn)將兩個(gè)數(shù)組的數(shù)據(jù)合并到c數(shù)組中，使c數(shù)組的數(shù)據(jù)為左右交替上升，如表所示：

當(dāng)窗體 Form1加載時(shí)，自動(dòng)產(chǎn)生a、b數(shù)組的數(shù)據(jù)，并分別顯示在列表框List1與List2中，單擊合并按鈕Command1后，在c數(shù)組中保存按規(guī)則合并后的a、b數(shù)組的數(shù)據(jù)，并顯示在列表框List3中。程序截圖如下所示：
實(shí)現(xiàn)該功能的 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
‘窗體加載時(shí)，生成數(shù)組 a、b 中的數(shù)據(jù)，并按要求排序后顯示在列表框中，代碼略
Private Sub Command1_Click （　?。?br />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 數(shù)組中剩余數(shù)據(jù)，并在列表框 List3 中輸出數(shù)組 c,代碼略
End Sub
（1）窗體加載的事件處理過(guò)程名為

D

D

。（填字母：A．Form1_Click/B．Form_Click/C．Form1_Load/D．Form_load）
（2）加框處代碼有錯(cuò)，請(qǐng)改正。
（3）在橫線處填入合適的代碼。