有如下VB程序段：
Dim a(1 To 10) As Integer
s = "7218634594": n = Len(s)
t = 0
For i = 1 To n - 1
a(i) = Val(Mid(s, i, 2))
Next i
For i = 1 To n - 2 Step 2
k = i
For j = i + 2 To n - 1 Step 2
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1
End If
Next i
Text1.Text = Str(t)
该程序段运行后，文本框Text1中显示的内容是

A．1	B．2
C．3	D．4

有如下VB程序段：
Dim i As Integer, sum As Integer
Dim a(1 To 8) As Integer
sum = 1
a(8) = 49: a(7) = 28
For i = 6 To 1 Step -1
a(i) = a(i + 2) - a(i + 1)
If a(i) Mod 3 = 0 Then sum = sum + a(i)
Next i
text1.Text = Str(sum)
该段程序运行后，文本框Text1中显示的内容是（   ）

A．21

B．43

C．42

D．1

给定 m 个区间和 1 个数组（有 n 个元素），现要求根据各区间限定的取值范围，将数组依次分割成 m+1 个段｡具体分割方法如下：
•第 1 段是从数组首个元素开始，元素值都属于第 1 区间的最长连续元素段，如果首个元素不属于第 1 区间，则第1 段元素个数为 0；
•第 1 段分割后的剩余元素，用同样的方法来依次分割第 2段､第 3 段､…､第 m 段；
•第 m 段分割后的剩余元素分割到第 m+1 段（剩余段）｡
若第 p（1≤p≤m-1）段末尾连续元素的值也同时属于第 p+1区间，则这块连续元素称为第 p 段“重叠块”，该段其余部分称为第 p 段“非重叠块”｡由于不存在第 m+1 区间，这里特别规定：第 m 段的全部元素都分割到 m 段“非重叠块”，第 m段“重叠块”的元素个数为 0｡一个数组分段示例如图｡图中数组第 1 个元素 10 不属于第 1 区间0，5，因此第 1 段的元素个数为 0｡ 10 和 20 属于第 2 区间，而 33 不属于第 2 区间，因此第 2 段只包含 10 和 20 两个元素｡第 3 段末尾连续3 个元素的值也同时属于第 4 区间，因此，第 3 段“非重叠块”包含 33，58，46，第 3 段“重叠块”包含 55，62，69｡

（1）给定 2 个区间，数组各元素为“12，44，34，45，66，50，45，70”，第 1 段“重叠块”中的元素个数为 3 个，第 1 个区间为10，50，则第 2 个区间可能为______________（单选，填字母

A．30，80 /

B．9，45 /

C．60，90）｡

（2）小李根据上述描述，设计了一个统计各段“非重叠块”“重叠块”和剩余段中元素个数的算法｡算法的 VB 程序如下，请在划线处填入合适的代码｡
Const n = 18: m = 6
Dim a(1 To n) As Integer
Dim b(1 To 2 ∗ m) As Integer
'b(1)､b(2)为第 1 区间的下限和上限,b(3)､b(4)为第 2区间的下限和上限,…
Dim c(1 To 2 ∗ m + 1) As Integer
'数组 c 用于保存统计结果:
'c(1)､c(2)分别存储第 1 段"非重叠块"和"重叠块"的元素个数,
'c(3)､c(4)分别存储第 2 段"非重叠块"和"重叠块"的元素个数,…
'c(2 m-1)存储第 m 段"非重叠块"元素个数,c(2 m)存储
第 m 段"重叠块"的元素个数(值为 0)
'c(2 m+1)存储剩余段元素个数
Private Sub Command1_Click()
Dim i As Integer, p As Integer, L As Integer, LL
As Integer
'读取 n 个数据并保存在数组 a 中,代码略
'读取m 个区间的下限和上限并保存在数组b 中,代码略
For i = 1 To 2 ∗ m + 1
c(i) = 0
Next i
i = 1: p = 1
L = 0: LL = 0
Do While i <= n And p <= m
If IsIn(i, p) Then
If①_____ Then
LL = LL + 1
Else
L = L + LL + 1
LL = 0
End If
i = i + 1
Else
c(2 ∗ p - 1) = L
c(2 ∗ p) = LL
L = 0
②_____
p = p + 1
End If
Loop
If i <= n Then
③_______
Else
c(2 ∗ p - 1) = L
c(2 ∗ p) = LL
End If
'输出统计结果,代码略
End Sub
'函数 IsIn 用来判断 a(i)值是否属于第 p 区间
Function IsIn ( i As Integer, p As Integer )
As Boolean
If a(i) >= b(2 ∗ p - 1) And a(i) <= b(2 ∗ p)
And p <= m Then
IsIn = True
Else
IsIn = False
End If
End Function

某班师生玩一个游戏，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）请将③处的语句补充完整：______________________________________________

输出的结果为 。
Dim n as integer
Dim s as long
n=9
s=0
do while n>=1
s=s+n
n=n-2
loop
print s