在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是（   ）
Private Sub Form_Click(）
Dim arr(1 to 10, 1 to 10） As Integer
Dim i As Integer, j As Integer
For i =" 2" To 4
For j =" 2" To 4
arr(i, j） =" i" * j
Next j
Next i
Label1.Caption =" Str(arr(2," 2）+ arr(3, 3））
End Sub
(

A．12

B．13

C．14

D．15

   在大小写英文字母组成的字符串中，当相邻两个字母的大小写不一致时，我们称为一次大小写变换。现编写“大小写字母变换次数统计”程序，实现如下功能：在文本框Text1中输入英文字母构成的字符串，单击“统计”按钮Command1，程序统计该字符串的大小写变换次数，并将结果显示在标签Label1中。程序运行界面如下图所示。

（1）设计程序界面时，要清空文本框Text1中的显示内容，应修改文本框的________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, ch As String, i As Integer, res As Integer
Dim f1 As Boolean   'f1表示前一个字母的大小写状态
Dim f2 As Boolean   'f2表示当前字母的大小写状态
s =①_________
res = 0: ch = Mid(s, 1, 1)
f1 = ch >= "A" And ch <= "Z"
For i = 2 To Len(s)
ch = Mid(s, i, 1)
f2 = ch >= "A" And ch <= "Z"
If ②________ Then res = res + 1
f1 = f2
Next i
Label2.Caption = "大小写变换次数为" & ③_______ & "次"
End Sub
（3）运行程序，在文本框Text1中输入“AmericanRAILWAY”，单击“统计”按钮，则显示的大小写变换次数是_______次。

三个正整数a、b、c满足等式a²+b²=c²，a、b、c称为“勾股数”，求出100以内所有“勾股数”可采用的算法是（ ）

A．枚举算法

B．解析算法

C．冒泡排序

D．顺序查找

   （加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()
Dim s, f, t As Integer
Dim a(1 To 400) As Boolean
For i = 1 To 400
a(i) = False
Next i
s = 0
f = 0
i = 0
Do While f < 399
i = i + 1
If i = 401 Then i = （1）
If a(i) = False Then s = s + 1
If s = 2 Then  
（2）    
List1.AddItem Str(i)
a(i) = True
f = （3）  
End If
Loop
For i = 1 To 400
If （4）    Then text1.text=str(i)
Next i
End Sub
为实现程序功能，在程序划线处应填入的代码为：
（1）    _________________
（2）    _________________
（3）    _________________
（4）    _________________

下列问题中适合使用枚举算法解决的是（   ）

A．计算两个数的乘积

B．计算50个同学的平均分

C．查找200以内所有能被7整除且个位数字为5的自然数

D．设计主题班会