以下只能用解析算法求解的是（ ）

A．已知边长a、b、c，求三角形面积。

B．求用10元、20元和50元三种纸币组合支付360元的不同方案。

C．求2000以内的素数。

D．求所有的水仙花数的总和。

某班师生玩一个游戏，n（n 不超过 1000）个同学站成一圈，逆时针编号为 l - n，有两个老师 A 和 B，A 老师从 1 开始逆时针数 k 个同学，B 老师从 n 开始顺时针数 m 个同学（注意 A，B 老师可能数到同一个学生），被老师选中的 1 个或 2 个学生离开圈子，剩下的学生继续。
程序开始时在 Text1 中输入同学数 n，在 Text2 中输入 k 的值，在 Text3 中输入 m 的值，点击“开始” 按钮，在 label5 中显示依次出圈的学生编号。程序运行如图所示：

VB 程序如下，请将按要求答题：
Dim stu(1 To 1000) As Integer
Dim n As Integer
Private Sub Command1_Click()

Dim left, k, m As Integer

Dim stup1, stup2 As Integer

n = Val(Text1.Text)

k = Val(Text2.Text)

m = Val(Text3.Text)

    ①    
stup1 = n: stup2 = 1
For i = 1 To n
stu(i) = i Next i
Do While left > 0
stup1 = teachount(stup1, 1, k)
stup2 =
Label5.Caption = Label5.Caption & " " & Str(stup1)
left = left - 1
If    ②    Then
Label5.Caption = Label5.Caption & " " & Str(stup2)
left = left - 1
End If stu(stup1) = 0

stu(stup2) = 0

Loop

End Sub
'f=1 表示逆时针数 c 个，f=-1 表示顺时针数 c 个
Function teachount(ByVal p As Integer, ByVal f As Integer, ByVal c As Integer) As Integer
Do While c > 0
    ③    
Do While stu(p) = 0

p = (p + f + n - 1) Mod n + 1

Loop

c = c - 1

Loop teachount = p
End Function
（1）加框处的语句有错误，请改正：______________________________________________ 
（2）请将①处的语句补充完整：______________________________________________
（3）请将②处的语句补充完整：______________________________________________
（4）请将③处的语句补充完整：______________________________________________

给定一个数组a，有n个元素(1≤n≤100)，有以下两种操作：
操作1：在文本框中分别输入L、R、T(1≤L≤R≤n)，对数组下标为L到R之内(包含L和R)的每个元素增加T(1≤T≤100)
操作2：在文本框中输入K(1≤K≤n)，在标签中输出a(K)的值。
为了提高算法的效率，小明设计了如下算法，以n＝10为例，如下表所示。

数组下标	l	2	3	4	5	6	7	8	9	l0
元素的值	7	l2	3	6	7	1l	8	24	9	5

 
①将n个元素依次分成段(表示对石向下取整，每段的元素个数为，若最后有不足个元素，则自成一段。给每段设置一个标记，初始值都为0，如下表所示。

数组下标	l	2	3	4	5	6	7	8	9	10
元素的值	7	12	3	6	7	1l	8	24	9	5
段编号	第l段			第2段			第3段			第4段
段标记值	0			0			0			0

 
②对于操作1，输入的L、R属于同一段，则直接对a（L to R）的每个元素加上T。如输入4，6，3，则第2段中的每个数加上3，操作后如下表所示。

数组下标	1	2	3	4	5	6	7	8	9	10
元素的值	7	l2	3	9	10	14	8	24	9	5
段编号	第1段			第2段			第3段			第4段
段标记值	0			0			0			0

 
③对于操作1，若输入的L，R不属于同一段，则对元素a(L)所在段中从a(L)开始到该段最后一个元素为止的每个元素加上T，并对元素a(R)所在段中从该段第一个元素开始到a(R)为止的每个元素加上T，对a(L)元素所在段的下一段开始到a(R)元素所在段的前一段为止的每个段标记值增加T，这些段中的元素保持不变。如在上表的其础上再输入1，8，2，则第1段的3个数和第3段中的前2个数都加上2，第2段的段标记位增加2，如下表所示。

数组下标	l	2	3	4	5	6	7	8	9	l0
元素的值	9	14	5	9	l0	l‘l	10	26	9	5
段编号	第1段			第2段			第3段			第4段
段标记位	0			2			0			0

 
④对于操作2，若输入K的值为5，则输出a(5)的值，a(5)的值为该数组元素的值＋段标记值，即a(5)＝12。程序运行界面如下。请回答下列问题：
(1)若数组元素为“3，2，6，8，7，9，3，4，7，9，6”，依次进行以下3次操作后第3段的标记值为__________

操作1：依次输入1，11，1
操作1：依次输入7，9，2
操作2：输入8
(2)请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Dim f(1 T on) As Integer 'f数组元素依次表示每段的标记值
Dim bk As Integer     'bk表示每段的元素个数
Function BL(x As Integer) As Integer 'BL函数返回数组元素a(x)的段编号
BL=________________
End Function
Private Sub Form_Load()
’读取数据，并存储到数组a中，代码略
bk＝Int(Sgr(n))
End Sub
Private Sub Command1_Click()
Dim L As Integer，R As Integer，T As Integer，i As Integer
L＝Val(Text1.Text)：R=Val(Text2.Text)：T=Val(Text3.Text)
If BL(L)＝BL(R) Then

For i=L To R

a(i)=a(i)＋T
Next i

EIse

For i=______________
a(i)= a(i)+T
Next i
For i=BL(L)+1 To BL(R)－1
f(i)= f(i)+T
Next i
For i=(BL(R)－1)* bk+1 To R
a(i)= a(i) +T
Next i

End If

End Sub
Private Sub Command2_Click()
Dim K As Integer
K=Val(Text4.Text)
Labe.15.Caption="经过一系列操作后.a("+Str(K)+ ")的值为："+___________
End Sub

小王编写VB程序，实现如下功能：在Text1中输入1~ 9之间的任意一个数字，单击“计算”按钮Command1, 计算该数字的阶乘并显示在标签Label2中。程序运行界面如图所示：
　
（1）如图所示，窗体中（不包含窗体本身）的对象共有__个（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, s As Long
s = 1
i =______
If i >= 1 And i <= 9 Then
For j = 1 To i
s = _______
Next j
　Label2.Caption = Str(i) & "的阶乘为:" & Str(s)
Else
　Label2.Caption = "请重新输入1~ 9之间的任意数字"
End If
End Sub
（3）程序中，若将变量s的类型由Long改为Integer，在文本框Text1中输入的内容为“9”，单击“计算”按钮后，程序运行将会出现什么情况____（单选，填字母：

A．溢出 /

B．类型不匹配 /

C．要求对象）。

   编写一个VB程序，功能如下：在文本框Text1中输入十六进制数（取值范围21至7E）, 单击按钮Command1进行转换，并将其对应的ASCII字符显示在文本框Text2中。程序运行界面如图所示。

（1）在设计程序界面时，要使按钮Command1上显示的文本为“转换”，应修改该按钮的______________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, d As Integer
   
Dim ch As String, h As String
d = 0
___________
For i = 1 To Len(h)
ch = Mid(h, i, 1)
If ch >= "A" And ch <= "F" Then
n = Asc(ch) - Asc("A") + 10
Else
n = ____________
End If
d = d + n * 16 ^ (Len(h) - i)
Next i
Text2.Text = Chr(d)
End Sub
（3）运行该程序，在文本框Text1中输入3F，单击“转换”按钮，则变量d的值是_______。