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

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

3

3

個(gè)。
（2）小李根據(jù)上述描述，設(shè)計(jì)了一個(gè)統(tǒng)計(jì)各段“非重疊塊”、“重疊塊”和剩余段中元素個(gè)數(shù)的算法。算
法的VB程序如下，請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
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)計(jì)結(jié)果：
'c（1）、c（2）分別存儲(chǔ)第1段“非重疊塊”和“重疊塊”的元素個(gè)數(shù)，
'c（3）、c（4）分別存儲(chǔ)第2段“非重疊塊”和“重疊塊”的元素個(gè)數(shù)，…
'c（2m-1）存儲(chǔ)第m段“非重疊塊“元素個(gè)數(shù)，c（2m）存儲(chǔ)第m段“重疊塊“元素個(gè)數(shù)（值為0）
'c（2m+1）存儲(chǔ)剩余段元素個(gè)數(shù)
Private Sub Command1_Click （　?。?br />Dim i As Integer,p As Integer,L As Integer,LL As Integer
'讀取n個(gè)數(shù)據(jù)并保存在數(shù)組a中，代碼略
'讀取m個(gè)區(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)計(jì)結(jié)果，代碼略
End Sub
'函數(shù)IsIn用來(lái)判斷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