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

原1-7號(hào)男生身高	171 172 180 174 176 179 178
篩選排序后序列	171 172 174 176 178 179 180
“造型設(shè)計(jì)”后序列	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ù)庫(kù)導(dǎo)出，分別存儲(chǔ)在數(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.