“水仙花数”就是一个 n（n≥3）位的自然数，它的每个位上的数字的 n 次幂之和等于
它本身。如 153=1³+5³+3³。在编写 VB 程序验证某个三位数 x 是否是“水仙花数”的
过程中要提取出这个数的个位、十位、百位分别存储在变量 a、b、c 中，以下语句能
够用来提取十位上的数的是

A．b="x\10" mod 10	B．b=x\100
C．b="x/100" mod 10	D．b="x" mod 10

有如下VB程序段：

数组a各元素的初值为0，执行上述程序段后，文本框Text 1中输出的内容为

A．30

B．9

C．8

D．7

以下可以作为VB变量名的是(    )

A．a#1

B．mod

C．text_1

D．3yue

关于以下流程图的描述中，正确的是（ ）。

A．执行后变量s的值一定小于20

B．循环体共计被执行了20次

C．该循环结构的类型为直到型循环

D．该算法的功能是：求2+5+8+11的和

在一个文档中，每行包含一个字符串。现使用如下规则对其压缩：压缩时，对于每个字符串求其与前一字符串的公共前缀，然后使用公共前缀的长度和字符串的剩余部分（以空格隔开）表示该字符串，每个空格和字符都会占用一个字节空间。图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