某省举办大型活动，面向省内城市招募有志愿服务工作经历的志愿者，每个志愿者的报名数据包含城市序号、姓名（字母缩写）和参加志愿服务的次数。现需整理报名数据，要求是：先按城市序号从小到大排列；然后，同一城市的志愿者按参加志愿服务的次数从多到少排列。
按上述要求，编写一个VB程序，功能如下：在列表框List 1中显示整理前的数据，单击“整理”按钮Command 1，整理结果显示在列表框List 2中，程序运行界面如图所示。

（1）将数组元素q（1）到q（200）分为10段，如果每段恰好包含20个元素，采用选择排序算法分别对每段中的元素进行排序，整个排序过程中，数组元素之间的比较次数是________（单选，填字母：

A．次/

B．次/

C．次）。

（2）请在划线处填入合适的代码。
    报名总人数
城市数
，，
 存储每个城市的报名人数


Private Sub Form_Load（）
本过程读取城市序号，姓名和参加次数的数据分别存储在数组city；pname和times中，
并在List 1中显示，代码略
End Sub
Private Sub Command 1_Click（）
Dim i As Integer，j As Integer，k As Integer，t As Integer，pos As Integer


Next i
   统计每个城市报名人数
 ①

Next i




Next i


  ②

Next i

  对各城市报名数据按参加志愿服务的次数进行排序



Next j

Next i

List 2.AddItem " " & city（q（i））& " " & pname（q（i））& " " & times（q（i））
Next i
End Sub
Function fp（head As Integer，tail As Integer）As Integer
Dim i As Integer，k As Integer

  ③ 

Next i

End Function

（加试题）幸运数。一组1幵始的奇数数列为：
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此数列的第二项为3，将此数列的第3n个数删除，留下的数为：
1，3，7，9，13，15，19，21，25，……
新数列的第三项为7，将新数列的第7n个数删除，留下的数为：
1，3，7，9，13，15，21，25，……
若一直重复上述步骤，最后剩下的数就是幸运数：
1，3，7，9，13，15，21，25，31，33，37，43，49，51，……
下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(500) As Integer, b(500) As Integer
Dim i As Integer, m As Integer, k As Integer
Dim top As Integer, bott As Integer
’产生由1开始的奇数数列，依次存储在数组a中，代码略
top = 2: bott = 500
Do While top < bott

  ①

For i = 1 To bott

  If i Mod a(top) < > 0 Then

b(k) = a(i)

___________________ ②

End If

Next i

③

top = top + 1

For i = 1 To bott

A(1) = b(1)

Next i

Loop
For i = 1 To bott

List1.Addltem Str(a(i))

Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(

A．对象名

B．属性名

C．事件名）

(2)改正加框处的代码，并在横线处填写合适的代码
①_____________________________ 
②_____________________________
③_____________________________

编写VB程序，实现如下功能：窗体装载时随机生成10个1至100的整数，并显示在列表框list1中，单击“分组”按钮command1，将这10个数分为奇数和偶数两组，在list2中显示奇数数字，及其个数，list3中显示偶数数字，及其个数。运行界面如第22题图所示，程序代码如下。

Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 10) As Integer
Private Sub     ②  ()   '窗体加载时产生10个1~100的整数
Dim i As Integer
Randomize
List1.Clear
For i =" 1" To 10
a(i) =    ③       '随机产生1个1~100的整数
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, ji As Integer, ou As Integer
List2.Clear
List3.Clear
ji =" 0:" ou = 0
For i =" 1" To 10
If a(i) Mod 2 <> 0 Then
List2.AddItem Str(a(i))
④
Else
List3.AddItem Str(a(i))
⑤
End If
Next i
List2.AddItem  "共有奇数" + Str(ji) + "个"
List3.AddItem  "共有偶数" + Str(ou) + "个"
End Sub
（1）观察运行界面，选项中没有用到的控件是 ①   ( 选项A． B． C．

A．)。

（2）划线②处应填的事件是 ② 。
（3）划线处③的代码应该是：   ③    （填选项号）。
A. Int(Rnd()+100)*1    B. Int(Rnd()+1)* 100   C.Int(Rnd() * 100) + 1
（4）请为④、⑤划线处填入合适的代码，④： ，⑤：  。

在VB中，下列正确的变量名是（   ）

A．for

B．aa_1

C．2a

D．a*b

在一个文档中，每行包含一个字符串。现使用如下规则对其压缩：压缩时，对于每个字符串求其与前一字符串的公共前缀，然后使用公共前缀的长度和字符串的剩余部分（以空格隔开）表示该字符串，每个空格和字符都会占用一个字节空间。图a所示为该压缩规则示意图。小明为此编写了VB程序，功能如下：运行程序时，在列表框List1中显示原字符串内容，单击“压缩”按钮Command1，在列表框List2中显示压缩后字符串，并在标签Label2中显示压缩后容量。程序运行界面如图b所示。

实现上述功能的 VB 代码如下，但划线处代码有错，请改正。
Dim word(3000) As String, pre(3000) As String
Const n = 2000
Private Sub Form_Load()
'该过程的作用是从数据库读取 n 个单词，按字典顺序存储在数组 word 中，并在 Label1输出单词数量和容量
'代码略
End Sub
Private Sub Command1_Click()
Dim conp As Integer '存储压缩后的容量
Dim f As Boolean,m As Integer,k As Integer   'k 存储公共前缀的长度
conp=0
For i=1 To n
k=0
If i=1 Then f=False Else f=True
k=Len(word(i)) '(1)______________
Do While k<m And f=True
If Mid(word(i),1,k+1)=Mid(word(i-1),1,k+1) Then    
k=k-1 '(2)____________
Else
f=False
End If
Loop
pre(i)=CStr(k)+" "+Mid(word(i),k+1,Len(word(i)))
'Cstr()函数能够将数字类型的值转换为字符类型的值，并却掉前导空格。
List2.AddItem pre(i)
conp=conp+Len(word(i))   '(3)______________
Next i
Label2.Caption="压缩后容量为"+Str(conp)+"字节"
End Sub