实现上述功能的VB代码如下：

请在划线处填入合适代码。

Private Sub Command1Click()

    Dim a As Integer, b As Integer

    Dim n As Integer, t As Integer

    Dim m(1 To 100) As Integer

    a = Val(Text1.Text)

    b = Val(Text2.Text)

    n = Val(Text3.Text)

    If  a > b Then t = a: a = b: b = t

    Randomize

         ①        

    For i = 2 To n

    m(i) = Int(Rnd * (b - a + 1)) + a

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

           ②     

    For j = i - 1 To 1 Step -1

    If temp < m(j) Then Exit For

    m(j + 1) = m(j)

    Next j

          ③     

    End If

    Next i

    For i = 1 To n

    List1.AddItem Str(m(i))

    Next i

End Sub

程序①处的代码是{#blank#}1{#/blank#}

程序②处的代码是{#blank#}2{#/blank#}

程序③处的代码是{#blank#}3{#/blank#}

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

s=0

For k =3 To 1 Step-1

    If k <=1 Then x=1

    If k <=2 Then x=2

    If k <=3 Then x=3

    s=s+x

Next k

Text1. Text= Str(s)

该程序段运行后，文本框Text1中显示的内容是（  ）

m=1

for i in range(10):

    m=m*i

print(m)