某班級學(xué)生為畢業(yè)晚會的一個節(jié)目設(shè)計一個仿“V”字造型，先篩選出班級里所有男生，然后將參演的n名男生按照身高，擺出中間低兩邊高（先右后左）的造型，如圖1所示．王林同學(xué)用VB編寫模擬“節(jié)目造型”程序，功能如下：從數(shù)據(jù)庫中導(dǎo)出所有學(xué)生編號、性別和身高數(shù)據(jù)；單擊“篩選排序”按鈕Command2，根據(jù)身高仿“V”字和造型進行有序排列，并將結(jié)果顯示在文本框Text2中．程序運行界面如圖2所示．舉例說明如下：

原1-7號男生身高	171 172 180 174 176 179 178
篩選排序后序列	171 172 174 176 178 179 180
“造型設(shè)計”后序列	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（　?。?br />'n名學(xué)生的身高和性別由數(shù)據(jù)庫導(dǎo)出，分別存儲在數(shù)組height1 和sex中，代碼略！
End Sub
Private Sub Command1_Click（　?。?br />   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（　?。?br />  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.