某旅客退房了，需要把这房子也登记上去，有四种情况需要处理：

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程序。请回答下列问题：

n = 0

For i = 1 To Len(Text1.Text)

    c = Mid(Text1.Text, i, 1)

    If c >= "0" And c <= "9" Then m = 1 Else m = 2

    a(m) = a(m) + 1

    If a(m) = 1 Then n = n + 1

Next i

数组a各元素的初始值都为0，文本框Textl的内容为“Luck2018”。执行程序后，变量n的值为{#blank#}1{#/blank#}

图a

图b

小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如图b所示。

s=“Hello world”

s1=“”

n=Len(s)

For i=1 To n\2

If Mid(s， i， 1) > Mid(s， n-i+1， 1) Then

s1=s1 + Mid(s， i， 1)

Else

s1=Mid(s， n-i+1， 1)+s1

End If

Next i

Text1.Text=s1

执行该程序段后，在文本框Text1中显示的是（  ）

图a

图b

DIM A（1991 TO 1998） AS INTEGER

FOR I=1 TO 8

   A(I)=I

PRINT A(I)；

       NEXT I