以下VB代码运行结果为    。
Dim s as long
Dim k as integer
Dim j as integer
s=0
for k = 1 to 3
for j = 1 to k
s=s+1
next
next
print s

A．9

B．6

C．5

D．10

以下流程图的运行结果为______

A．15

B．3

C．105

D．1

若输入2，流程图运行结果是  。

A．4

B．5

C．2

D．3

以下哪个是合法的变量名（ ）。

A．while

B．Test@qw

C．6cost_1

D．count2s

Dim x as long
Dim y as double
________

诗词爱好者小奇发现一些诗句中的叠字（有至少二个重叠的字）非常优美，如“庭院深深深几许”……，小奇希望用VB编写程序，寻找诗句中的叠字。程序运行界面如下：

（1）每次点击“运行”按钮，自动清空列表框List1的内容，可在过程“Command1_Click”中加入List1.Clear，其中“Clear”是 （单选，填字母：A.对象名/B.方法/C.属性/D.事件）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, flag As Boolean, txt As String
txt = text1.Text
n = Len(txt)
c = 1
For i = 1 To n - 1
If Mid(txt, i, 1) =   ①    Then
flag = True
c = c + 1
Else
flag = False
End If
If ② Then
list1.AddItem Mid(txt, i - c + 1, c)
c = 1
End If
Next i
If c > 1 Then list1.AddItem Mid(txt, i - c + 1, c)
End Sub
（3）若去掉加框代码，输入的诗句为“贫恨苦吟穷寞寞，乱愁牵断梦沉沉”（不含引号），则启动程序，单击“运行”按钮后，列表中    （单选，填字母）
A.输出：寞寞沉沉 B. 输出：沉沉 C. 输出：寞寞 D. 无输出

将一个十进数转化为任意进制可以采用“除权取余法”。方法是：a 为十进制数，n 为转化的 进制，从 a 开始循环除以 n，记下余数，整数商作为新的 a 继续除以 n ，直到 a=0 为止。然后 倒序取余数即可。余数 k 如果为 10<=k<=15，用字母依次记作“ABCDEF”，比如 k=10，记作 A。该 程序界面如下图所示，在文本框 Text1 中输入一个任意十进制数，在文本框 Text2 中输入要转换 的进制，单击“开始转换”按钮后，对应的进制数在文本框 Text3 中显示。

（1）代码“Private Sub Command1_Click()”中的 Click 是_________。（单选，填字母：

A．对象名/

B．属性名/

C．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_click()
Dim a As Integer, n As Integer, k As Integer, b As String
Const m = "0123456789ABCDEF"
a = Val(Text1.Text)
①_________
Do While   ②_________
k = a Mod n   '求 a 的余数
a = a \ n
b =③__________ + b
Text3.Text = b
Loop
End Sub
（3）在实现程序功能后，在 Text1 中输入 “16”，在 Text2 中输入 “16”，Text3 显示的内容是____

有如下 VB 程序段：
n = Val(Text1.Text)
For i = 3 To 1 Step -1

If n Mod 2 = 1 Then

n = n\ 2
Else
n = 2 * n + 3
End If
Next i
Label1.Caption = Str(n)
运行该程序，在文本框 Text1 中输入 13，下列说法正确的是（   ）

A．执行程序结束后，标签 Label1 显示 7	B．语句“n=n\2”第一次被执行时，等式右边 n=6
C．程序结束后 i 值为 1	D．语句“n=2*n+3”总共执行 2 次

下列程序执行后变量 m 的值为（   ）
s = "369akXdUq" m = 0
For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z" Then

m = m + 1

End If

Next i

A．1

B．3

C．4

D．2

某算法的部分流程图如下图所示。执行这部分流程，则输出 s 的值是（   ）

A．2

B．6

C．5

D．4