为分析数组a中各元素依次变化的情况，进行如下定义：
变化段：数组中相邻两个元素构成一个变化段。变化段有上升段（a(i)>a(i-1)）、下降段（a(i)<a(i-1)）和持平段（a(i)=a(i-1)）。数组a中的n个元素可构成n-1个依次排列的变化段。
波峰：从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个，终点是峰顶后所有连续下降段中的最后1个。
对称波峰：上升段与下降段个数相同的波峰称为对称波峰。
下图为一组数据的变化段及波峰示意图。

现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计如下VB程序。请回答下列问题：
（1）数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为_____。
（2）请在划线处填入合适的代码。
Const n = 20
Dim a(1 To n) As Integer
Private Sub Form_Load()
'读取数据，并存储到数组a中，代码略
End Sub
Private Sub Command1_Click()

Dim flag As Integer  '存储变化段的状态：1表示升，-1表示降，0表示平

Dim count As Integer '存储对称波峰段的个数

Dim steps As Integer

Dim i As Integer

flag = 0: steps = 0: count = 0

For i = ________ To n

If a(i) > a(i - 1) Then

If IsSymPeak(flag, steps) Then count = count + 1

If flag = 0 Or flag = -1 Then

_________

Else

steps = steps + 1

End If

flag = 1

ElseIf a(i) = a(i - 1) Then

If IsSymPeak(flag, steps) Then count = count + 1

steps = 0

flag = 0

Else

  steps = steps - 1

flag = -1

End If

Next i

If IsSymPeak(flag, steps) Then count = count + 1

Text1.Text = Str(count)

End Sub
Function IsSymPeak(flag As Integer, steps As Integer) As Boolean

If __________________ Then

IsSymPeak = True

Else

IsSymPeak = False

End If

End Function

用 VB 程序编写了一个找最大值的程序，程序功能：在文本框中输入数字串（数据间用逗号分隔，以数字开头，逗号结尾），单击“寻找”按钮 Command1 后，在 Label3中输出最大的数值。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)

If c = , Then

t = Mid(s, i, j - i)
If Val(t) > max Then max = Val(t)
①
End If
②     
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）

A．① i=i+1   ② j=j+1	B．① i=j+1   ② j=j+1
C．① j=j+1   ② i=i+1	D．① j=i+1   ② i=i+1

酒店房间管理：酒店房间(房间数小于10000)编号按1、2、3…连续编号，老板对于没有出租的房子使用如下的方法来登记管理。连续的空房间，登记第一间的编号和连续的空房间数，比如空房间1，2， 6，7，8，10，则登记3条记录，分别为（1  2），（6  3），（10  1），某旅客退房了，需要把这房子也登记上去，有四种情况需要处理：
1）上靠，例如退的房间号为3，则原来登记的3条记录变成（1  3），（6  3），（10  1）；
2）下靠，例如退的房间号为5，则原来登记的3条记录变成（1  2），（5  4），（10  1）；
3）上下不靠，例如退的房间号为4，则登记的记录数变成4条（1  2） ，（4  1），（6  3），（10  1）；
4）上下靠，例如退的房间号为9，则登记的记录数变成2条（1，2），（6，5）；
小王依据上述描述设计了如下VB程序。请回答下列问题：
（1）当登记的记录有3条，分别为（1，4），（6，2），（10，3），现在某旅客退掉5号房间，则登记的记录变成_______________________________
（2）请在划线处填入合适的代码。
Const n = 5000
Dim a(0 To n) As Integer  'a(i)保存第i条记录的开始房间号
Dim b(0 To n) As Integer  ' b(i)保存第i条记录的房间数
Dim c As Integer, k As Integer, sp As Integer  'k为原始记录数
'读取原始k条记录的数据，依次存入a(1),b(1),a(2),b(2)…a(k),b(k),代码略
'为了程序处理方便，虚设了下面2条记录
a(0) = 0 : b(0) = 0 : sp = k + 1 ：a(sp) = 10000 ： b(sp) = 0
Private Sub Command1_Click()
Dim i As Integer
c = Val(Text1.Text)  'c为退掉的房间号
i = 1
Do While a(i) < c   '查找房间c，应该登记在某位置
i = i + 1
Loop
i = i - 1
'下面为处理退房登记问题
If a(i) + b(i) = c Then
If __________ Then   '第4种情况，上下靠
b(i) = b(i) + 1 + b(i + 1)
For j = i + 1 To sp - 1
a(j) = a(j + 1) : b(j) = b(j + 1)
Next  j
sp = sp - 1
Else     '第1种情况，上靠
b(i) = b(i) + 1
End If
ElseIf  c + 1 = a(i + 1) Then  '第2种情况，下靠
a(i + 1) = c : b(i + 1) = b(i + 1) + 1
Else '第3种情况，上下不靠
For j =_____________________
a(j) = a(j - 1) : b(j) = b(j - 1)
Next j
a(i + 1) = c : b(i + 1) = 1 : sp = sp + 1
End If
‘下面为输出登记的记录，不包括虚设的两条记录
For i =1 to _______
List3．AddItem "第" & Str(i) & "记录（" & Str(a(i)) & "，" & Str(b(i)) & ")"
Next i
End Sub

.某程序代码如下：（  ） Dim count As Integer
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
k = i
For j = i + 1 To Len(s)
If a(k) < a(j) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To Len(s) - 1
If a(i) = a(i + 1) Then count = count + 1
Next i
程序运行结束后,变量 count 的值是（ ）

A．13

B．2

C．3

D．4

某餐厅在团购网站上推出了98元享原价198元的套餐团购活动，但规定每天接受团购券数量是有限制的，表示此餐厅是否接受团购券的算法如下：
①number＝0  ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法，下列说法错误的是(  )

A．每天允许使用团购券数量最多是30

B．代码“变量number增加1”和“允许使用团购券进行消费”互换位置是可行的

C．此算法的循环结构可以用For语句来实现

D．此算法是用自然语言来描述的