学进去

有n个从小到大排列的正整数依次存储在数组a中，另有m（m<n）个正整数存储在数组b中。现要求只保留上述n+m个数据中从小到大排列的前n个数据，并依次存人数组a中，其余数据被剔除。
小李为了解决该问题，首先结合数组a的有序性，找出a，b两个数组中要剔除的m个数据，再将数组b中保留的数据插入到数组a中。示例如下：

n=10，数组a：2，4，6，8，10，12，14，16，18，20 m=5，数组b：41，11，17，29，9 处理后的数组a：2，4，6，8，9，10，11，12，14，16

（1）若n=8，m=4，数组a的元素依次为“3，4，6，10，13，14，21，25”，数组b的元素依次为“3，18，7，15”，按上述要求剔除m个数据后，数组b中保留的数据个数为______个
（2）实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Const n=1000，m=50
Dim a（1 To n）As Integer，b（1 To m）As Integer
Function getImax（k As Integer）As Integer

'在数组元素b（1）~b（k）中找出值最大的元素，返回其下标，代码略

End Function
Private Sub Commandl_Click（ ）

Dim i As Integer，j As Integer，k As Integer

Dim na As Integer，nb As Integer，imax As Integer，mean As Integerd

'读取数据分别存人数组a、b，代码略

na=n：nb=m

imax=getImax（nb）

For i=1 To m

If a（na）<= ___① Then

b（imax）=b（nb）

nb=nb-1

If nb>0 Then imax=getImax（nb）

Else

na=na-1

End If

Next i

Do While nb>0

i=1:j=na

imax= agetImax(nb)

Do While i<=j

mean =(i+j)\2

If a(mean)<b(imax) Then i= mean +1 Else j=mean-1

Loop

For k=na To iStep-1

___②

Next k

a（i+nb-1）=b（imax）

b（imax）=b（nb）

____③

nb=nb-1

Loop

'输出数组a，代码略

End Sub