实现上述功能的VB程序如下，但划线部分代码有错，请改正。

Private Sub Command1_Click()

  Dim x(1 To 100) As Single， y(1 To 100) As Single

  Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single

  Dim i As Integer， j As Integer， k As Integer

Randomize 

List1.Clear

  k = Val(Text1.Text)

  For i = 1 To k

      x(i) = Int(Rnd * 90) / 10 + 1

      y(i) = Int(Rnd * 90) / 10 + 1

      List1.AddItem "X：" + Str(x(i)) + "   " + "Y：" + Str(y(i))

  Next i

  For i = 1 To k - 1

      For j = 1 To k - i

          If x(j) > x(j + 1) Then

              x(i)=x(i) + x(j)

              x(j) = x(i) - x(j)

              x(j) = x(i) + x(j)   ‘①

              tmp = y(j)

              y(j) = y(j + 1)

              y(j + 1) = tmp

          End If

      Next j

  Next i

  sum = 0： length = 0

  For i = 1 To k - 1

      x1 = (x(i) - x(1)) ^ 2     ‘②

 '变量y1计算方法同x1，代码略

      length = Sqr(x1 + y1)

      sum = sum + length

  Next i

  Text2.Text = Str(Int(sum * 10) / 10)

End Sub

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

采用以下方法可以建构一个贝尔三角矩阵（见图）：

A.第一行第一项是1。

B.对于n>1，第n行第一项等同第n-1行最后一项。

C.对于m，n>1，第n行第m项等于它左边和左上方的两个数之和。

小明编写了一个生成贝尔在角矩阵的程序，其功能如下：

程序运行时在文本框Text1中输入整数n（1≤n≤9），单击按钮Command1后，在列表框List1上输出n阶的贝尔三角矩阵。

①输入上底a、下底b和高h

②计算梯形面积s(计算公式为：s=(a+b)*h/2)

③输出结果

④结束

上述算法属于（  ）

小明现想用Python输出所有的多选题的选项组合，他用4位二进制数模拟所有选项组合(1-选，0-不选），再从中筛选出有效组合，例如1100是一种有效组合，1000是一种无效组合。

实现该功能的Python程序如下：

xx=["A","B","C","D"]

combs=[]

i=0

while     ①    :

t=i

s=""

c=0

    for j in range(4):

       if t%2==1:

          s=   ②      

c+=1

            ③      

    if     ④      :

       combs.append(s)       # append()方法用于在列表末尾添加新的对象。

i+=1

print("符合要求的选项组合：")

print(combs)