【加试题】有如下VB程序段： flag = True : i = 1 Do While i <= 6 x = Int(Rnd * 100) + 1 If flag Or x >50 Then a(i)=x flag = Not flag i = i + 1 End if Loop 执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（）

若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠块”，该段其余部分称为第p段“非重叠块”｡由于不存在第m+1区间，这里特别规定：第m段的全部元素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0｡一个数组分段示例如图｡图中数组第1个元素10不属于第1区间[0，5]，因此第1段的元素个数为0｡10和20属于第2区间，而33不属于第2区间，因此第2段只包含10和20两个元素｡第3段末尾连续3个元素的值也同时属于第4区间，因此，第3段“非重叠块”包含33，58，46，第3段“重叠块”包含55，62，69｡

(1) 给定2个区间，数组各元素为“12，44，34，45，66，50，45，70”，第1段“重叠块”中的元素个数为3个，第1个区间为[10，50]，则第2个区间可能为（单选，填字母A .[30，80] /B .[9，45] /C .[60，90]）｡

(2) 小李根据上述描述，设计了一个统计各段“非重叠块”“重叠块”和剩余段中元素个数的算法｡算法的 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 区间的下限和上限，b(3)､b(4)为第2区间的下限和上限，…

Dim c(1 To 2 ∗ m + 1) As Integer

'数组c用于保存统计结果：

'c(1)､c(2)分别存储第1段"非重叠块"和"重叠块"的元素个数，

'c(3)､c(4)分别存储第2段"非重叠块"和"重叠块"的元素个数，…

'c(2m-1)存储第m段"非重叠块"元素个数，c(2m)存储

第m段"重叠块"的元素个数(值为0)

'c(2 m+1)存储剩余段元素个数

Private Sub Command1_Click()

Dim i As Integer, p As Integer, L As Integer, LL

As Integer

'读取n个数据并保存在数组a中，代码略

'读取m个区间的下限和上限并保存在数组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

If IsIn(i, p) Then

If Then

LL = LL + 1

Else

L = L + LL + 1

LL = 0

End If

i = i + 1

Else

c(2 ∗ p - 1) = L

c(2 ∗ p) = LL

L = 0

p = p + 1

End If

Loop

If i <= n Then

Else

c(2 ∗ p - 1) = L

c(2 ∗ p) = LL

End If

'输出统计结果，代码略

End Sub

'函数IsIn用来判断a(i)值是否属于第p区间

Function IsIn ( i As Integer, p As Integer )

As Boolean

If a(i) >= b(2 ∗ p - 1) And a(i) <= b(2 ∗ p)

And p <= m Then

IsIn = True

Else

IsIn = False

End If

End Function

综合题困难

3. 某数据压缩方法描述如下：

1）原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示；

2）原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，第1个为0，第2个为0；

3）原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个为0，第2个为重复数的个数，第3个为该数本身；根据上述压缩方法，对应的解压缩方法示例如图a所示。

图a

小明编写了一个解压缩VB程序，功能如下：窗体加载时，自动读取压缩数据，依次存储在数组元素a（1）、a（2）、a（3）……中，压缩数据的个数存储在变量n中，压缩数据显示在文本框Text1中。单击“解压缩”按钮Command1，程序对压缩数据依次进行解压缩处理，解压缩数据显示在文本框Text2中。程序运行界面如图b所示。

图b

(1) 如果压缩数据为“23，0，21，66，0，0，77，0，5，0”，则解压缩数据的个数是。

(2) 实现上述功能的VB程序如下。请在划线处填入合适代码。

Dim a（1 To 100）As Integer '存储压缩数据，最大处理个数为100

Dim b（1 To 1000）As Integer '存储解压缩数据，最大处理个数为1000

Dim n As Integer '存储压缩数据的个数

Private Sub Form_Load（）

'压缩数据由上述压缩方法生成

'本过程用于读取压缩数据并存储在数组a中，压缩数据个数存储在变量n中

'代码略

End Sub

Private Sub Commandl_Click（）

Dim pa As Integer '存储压缩数组当前处理位置

Dim pb As Integer '存储解压缩数组当前处理位置

Dim firstdata As Integer，count As Integer，iAs Integer

pa=1：pb=1

Do While pa<=n

firstdata=a（pa）

If firstdata <>0 Then '示例1）情况处理

b（pb）=firstdata

pa=pa+1：pb=pb+1

Else

count=a（pa+1）

If count=0 Then '示例2）情况处理

b（pb）=0

pa= ①_ _：pb=pb+1

Else '示例3）情况处理

For i=1 To count

②

Next i

pa=pa+3：pb=pb+count

End If

Loop

Text2.Text=Str（b（1））

For i=2 To ③

Text2.Text=Text2.Text+“，”+Str（b（i））

Next i

End Sub

①②③

综合题普通