实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const  n = 50

Dim d(0 To n) As single , name(1 to n) as string

'读入50个学生的身高，依次存入d(1)…d(50),姓名存入name(1)…name(50) '代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, temp As single, k As Integer,r as string

d(0) = 2

For i = 1 To 10

    ①

    For j = i To n

     If d(j) < d(i - 1) Then

         If     ②  Then

           k = j

        End If

     End If

  Next j

  If k <> i Then

     temp = d(k):  d(k) = d(i):  d(i) = temp

     r=name(k) : name(k)=name(i) : name(i)=r

  End If

Next i

For i = 1 To 10   ‘输出被选的10个人的名字和身高。

  List2．AddItem  name(i) & d(i)

Next i

End Sub

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

小明编写了一个VB程序来计算e的近似值，功能为在文本框Text1中输入公式n值，单击“计算”命令按钮Commong1，在标签Label2中显示计算结果，程序运行界面如图所示。

①先出顺子牌型（顺子指连续的 5 张及以上的牌，如 345678，顺子最小从 3 开始，最大到 A），若有多个顺子，先长后短，长度相同按从小到大顺序出；

②再按三带一牌型（3 张相同的牌带一张单牌）、对子牌型（2 张相同）、单张牌型的顺

序出牌，同一牌型从小到大出；

③最后出炸弹，若有多个炸弹，从小到大出。

设计以下VB程序，牌“10”用0代替，比较两组出牌次数，界面如图所示，请回答下列问题。

依据上述描述设计如下VB程序：

Dim xh(1 To 100) As Integer , xm(1 To 100) As String, cj(1 To 100) As Integer Dim n As Integer, m As Integer

Private Sub Form_Load()

'本过程从数据库依次读取n位同学的序号、姓名及成绩，然后按成绩降序排序，将学生序号、姓名成绩存储在数组xh、xm、cj中，结果显示在List1中，

End Sub

请回答下列问题：