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．自然语言和计算机语言	B．自然语言和数字语言
C．数字语言和自然语言	D．计算机语言和数字语言

要在网上订票首先需要进入中国铁路客服中心网站(网址:http://www.12306.cn/)，选择购票项，若是第一次购票需要注册新用户，按要求填写注册信息，注册完成后即可登录订票；若已有用户名和密码，可以直接登录订票。比以上文字叙述更直观的表达方式是（   ）。

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

小吴编写了一个 VB 程序，实现功能如下：在 1000 至 9999 的自然数中，找出能被 7 整除，且百位或者个位数字是 6 的所有整数，并统计个数。程序界面如下：

（1）在设计程序界面时，要使按钮 Command1 上显示为统计，可在属性窗口通过修改其 ________ 属性完成。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As Integer, n As Integer
Dim a As Integer, b As Integer n = 0
List1.Clear
For s =1001 To 9999  Step 7
a = ①________ 
b= s Mod 10
If ②______Then
List1.AddItem Str(s)
③_________
End If
Next s
Label1.Caption = "共有" + Str(n) + "个"
End Sub

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

A．2

B．6

C．5

D．4

某 VB 程序段如下：
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.Text)
x = x \ 2 + 1
Text1.Text = Str(x)
End Sub
程序运行时，在文本框 Text1 输入 13 时，连续两次单击命令按钮 Command1 后，文本框 Text1中显示的内容是（  ）

A．6

B．7

C．4

D．5