給定m個區(qū)間和1個數(shù)組（有n個元素），現(xiàn)要求根據(jù)各區(qū)間限定的取值范圍，將數(shù)組依次分隔成m+1個段。具體分割方法如下：
?第1段是從數(shù)組首個元素開始、元素值都屬于第1區(qū)間的最長連續(xù)元素段。如果首個元素不屬于第1區(qū)間，則第1段元素個數(shù)為0；
?第1段分割后的剩余元素，用同樣的方法來依次分割第2段、第3段、…、第m段；
?第m段分割后的剩余元素分割到第m+1段（剩余段）。
若第p（1≤p≤m-1）段末尾連續(xù)元素的值也同時屬于第p+1區(qū)間，則這塊連續(xù)元素稱為第p段“重疊塊”，該段其余部分稱為第p段“非重疊塊”。由于不存在第m+1區(qū)間，這里特別規(guī)定：第m段的全部元素都分割到m段“非重疊塊”，第m段“重疊塊”的元素個數(shù)為0，一個數(shù)組分段示例如下圖。圖中數(shù)組第1個元素10不屬于第1區(qū)間[0，5]，因此第1段的元素個數(shù)為0.10和20屬于第2區(qū)間，而33不屬于第2區(qū)間，因此第2段只包含10和20兩個元素。第3段末尾連續(xù)3個元素的值也同時屬于第4區(qū)間，因此，第3段“非重疊塊”包含33，58，46，第3段“重疊塊”包含55，62，69。

（1）給定2個區(qū)間依次為[10，50]、[30，80]，數(shù)組各元素為“12，44，34，45，66，50，45，70”，則第1段“重疊塊”中的元素個數(shù)為

3

3

個。
（2）小李根據(jù)上述描述，設計了一個統(tǒng)計各段“非重疊塊”、“重疊塊”和剩余段中元素個數(shù)的算法。算
法的VB程序如下，請在橫線處填入合適的代碼。
Const n=18，m=6
Dim a（1 To n） As Integer
Dim b（1 To 2*m） As Integer
'b（1）、b（2）為第1區(qū)間的下限和上限，b（3）、b（4）為第2區(qū)間的下限和上限，…
Dim c（1 To 2*m+1）As Integer
'數(shù)組c用于保存統(tǒng)計結果：
'c（1）、c（2）分別存儲第1段“非重疊塊”和“重疊塊”的元素個數(shù)，
'c（3）、c（4）分別存儲第2段“非重疊塊”和“重疊塊”的元素個數(shù)，…
'c（2m-1）存儲第m段“非重疊塊“元素個數(shù)，c（2m）存儲第m段“重疊塊“元素個數(shù)（值為0）
'c（2m+1）存儲剩余段元素個數(shù)
Private Sub Command1_Click （　?。?br />Dim i As Integer,p As Integer,L As Integer,LL As Integer
'讀取n個數(shù)據(jù)并保存在數(shù)組a中，代碼略
'讀取m個區(qū)間的下限和上限并保存在數(shù)組b中，代碼略
For i=1 To 2*m+1
c（i）=0
Next i
i=1：p=1
L=0：LL=0
Do While

i＜=n And p＜=m

i＜=n And p＜=m

If IsIn（i,p） Then
If IsIn（i,p+1）Then
LL=LL+1
Else

L=L+LL+1

L=L+LL+1

LL=0
End If
i=i+1
Else
c（2*p-1）=L
c（2*p）=LL
L=0：LL=0
p=p+1
End If
Loop
If i＜=n Then
c（2*p-1）=n-i+1
Else
c（2*p-1）=L
c（2*p）=LL
End If
'輸出統(tǒng)計結果，代碼略
End Sub
'函數(shù)IsIn用來判斷a（i）值是否屬于第p區(qū)間
Function IsIn（i As Integer,p As Integer） As Boolean
If p＞m Then
IsIn=False
Else
If

a（i）＞=b（2*p-1）And a（i）＜=b（2*p）

a（i）＞=b（2*p-1）And a（i）＜=b（2*p）

  ThenIsIn=True Else IsIn=False
End If
End Function