某班级学生为毕业晚会的一个节目设计一个仿“V”字造型，先筛选出班级里所有男生，然后将参演的n名男生按照身高，摆出中间低两边高（先右后左）的造型，如图1所示．王林同学用VB编写模拟“节目造型”程序，功能如下：从数据库中导出所有学生编号、性别和身高数据；单击“筛选排序”按钮Command2，根据身高仿“V”字和造型进行有序排列，并将结果显示在文本框Text2中．程序运行界面如图2所示．举例说明如下：

原1-7号男生身高	171 172 180 174 176 179 178
筛选排序后序列	171 172 174 176 178 179 180
“造型设计”后序列	180 178 174 171 172 176 179

Const n=7
Dim h2（1 To n） As Integer
Dim height1（1 To n） As Integer
Dim height2（1 To n） As Integer
Dim i As Integer,j As Integer,temp As Integer
Dim sex（1 To n） As Boolean'男生sex=true 
Private Sub Form_Loa d（　　）
'n名学生的身高和性别由数据库导出，分别存储在数组height1 和sex中，代码略！
End Sub
Private Sub Command1_Click（　　）
   For i=1 To n-1
      For j=n To i+1 Step-1
          If

height1（j）＜height1（j
-1）

height1（j）＜height1（j
-1）

Then
            temp=height1（j）：height1（j）=height1（j-1）：height1（j-1）=temp
          End If
     Next j
  Next i
  For i=1 To n
     Text1．Text=Text1．Text+““+Str（height1（i））
  Next i
End Sub
Private Sub Command2_Click（　　）
  Dim left,right As Integer,i As Integer,mid As Integer
  mid=Int（（1+n）/2）
  left=0：right=0

height2（mid）=height1（1）

height2（mid）=height1（1）

  For i=2 To n Step 2
     right=right+1
     height2（mid+right）=height1（i）
     left=left+1

height2（mid-left）=height1（i+1）

height2（mid-left）=height1（i+1）

  Next i
  For i=1 To n
   Text2．Text=Text2．Text+““+Str（height2（i））
  Next i
End Sub.