为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer        '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

For i = 2 To n

t = a(i)  :   j = i - 1

Do  While  t < a(j)

 a(j + 1) = a(j) j = j – 1

If     Then Exit Do  ①

Loop

       ②

Next i

For i = 1 To n

 List2.AddItem Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

a(l) = 5: a(2) = 16: a(3) = 22: a(4) = 28: a(5) = 35

a(6) = 43: a(7) = 52: a(8) = 67: a(9) = 78: a(10) = 89

i = 1: j = 10: n = 0: flag = True

Key = Val(Textl. Text)

Do While i <= j And flag = True

  m = (i + j) \ 2

  If a(m) = Key Then

    flag = False

  Elself a(m) < Key Then

    i = m + 1

    n = n - 1

  Else

    j = m - 1

    n = n + 1

  End If

Loop

变量n的值最终为0，则文本框Text1输入的数值范围可能是（  ）

i=1: j=10: flag=True: cs=0

Key=Int(Rnd()*10)+28

Do While i <=j And flag=True

 m=(i+j) \ 2 : cs=cs+1

 If a (m)=Key Then

  flag=False

 Else If a(m) < Key Then

  i=m+1

 Else

  j=m-1

 End If

Loop

数组元素a(1)到a(10)依次是3 10 17 23 27 30 35 40 45 50，变量cs的值可能是（  ）

一个正整数的阶乘是所有小于及等于该数的正整数的积，并且0的阶乘为1，即n！＝1*2*3*...*（n－1）*n。

n！＝ 现求n！。

def f（n）：   #定义递归函数f（n）

    if n＝＝0 or n＝＝1：

        return 1   #定义当n为0时函数返回值为1

    else：

        return {#blank#}1{#/blank#}   #递归定义n≥1时的通项公式

{#blank#}2{#/blank#}＝int（input（"请输入n："））   #从键盘上输入n的值

print（"n！的值为：", {#blank#}3{#/blank#}）   #输出结果