某VB程序段代码如下：
Private Sub Command1_Click()
a = Text1
For i = 1 To Len(a)
b = Mid(a, i, 1)
c = Chr(Asc(b) )
d = d + c
Next i
Text2 = d
End Sub
如果在文本框text1中输入字符"316100"，则文本框text2中显示的值是：

A．16100

B．6131

C．001613

D．3161

酒店房间管理：酒店房间(房间数小于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

在Visual Basic程序设计中,For语句"For计数变量=初值To终值Step步长”中步长为0时，会造成死循环。( )

A．正确

B．错误

（加试题）有如下程序段，若有如下数据：64, 57, 22, 96, 71，分别存储在a(1)至a(5)中，经过以下程序段处理后的数据依次为
Dim  a(1 To 6)  As Integer
s = 0
For  i = 1 To 5
If  a(i) Mod 2 = 1  Then  s = s + 1
Next  i
For  i = 1 To 4
If  a(i) Mod 2 = 0  Then
For  j = 5 To i + 1 Step -1
If  a(j) Mod 2 = 1  Then
a(6) = a(i): a(i) = a(j): a(j) = a(6): Exit For
End If
Next  j
End If
Next  i
For  i = s + 2 To 5
k = i - 1
For  j = i To 5
If  a(k) > a(j)  Then  k = j
Next  j
If k <> i - 1 Then
a(6) = a(i - 1): a(i - 1) = a(k): a(k) = a(6)
End If
Next  i

A．22, 57, 64, 71, 96	B．71, 57, 22, 96, 64
C．71, 57, 22, 64, 96	D．57, 71, 22, 64, 96

For i= 1 To 6
a(i)=i+1
Next i
程序运行后，变量i的值是：

A．7

B．6

C．1

D．0