給定n個(gè)學(xué)生成績，篩選男生或女生中成績居前百分之k的學(xué)生。篩選規(guī)則如下：m=男生或女生記錄數(shù)×k%，若m＜1，則m取1；否則m向下取整，如m=3.1，則篩選最大的3項(xiàng)。若有數(shù)據(jù)和第m項(xiàng)的值相同，則一起篩選出。如有男生成績分別是“78，99，98，99，90”，以“最大10百分比”篩選，則5×10%=0.5，篩選最大的1項(xiàng)，篩選出“99，99”。編寫一個(gè)VB程序，實(shí)現(xiàn)上述功能。程序運(yùn)行時(shí)，在列表框List1中顯示n名學(xué)生的姓名、性別和成績，在文本框Text1中輸入性別，Text2中輸入k,單擊“篩選”按鈕Command1，在列表框List2中顯示篩選出的學(xué)生姓名、性別和成績。程序運(yùn)行界面如圖所示。

（1）下列VB語句可以實(shí)現(xiàn)清空文本框Text1

C

C

（A.Text1.Clear/B.Text1.Caption=““/C.Text1.Text=““）
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)冖佗冖厶幪钊牒线m代碼

c=c+1

c=c+1

、

Fix（m）或Int（m）或Fix（c*k/100）或Int（c*k/100）

Fix（m）或Int（m）或Fix（c*k/100）或Int（c*k/100）

、

mm=i-1

mm=i-1

。
（3）程序加框處的代碼有誤，請改正

xb（p）＜＞sOrcj（j）＞cj（p）

xb（p）＜＞sOrcj（j）＞cj（p）

。
Dim n As Integer
Dim xm（1 To n）As String
Dim xb（0 To n）As String
Dim cj（0 To n）As Integer
Private Sub Form_Load（　?。?br />'讀取學(xué)生姓名、性別和成績分別存xm、xb和cj數(shù)組，并在列表框List1中顯示。
'學(xué)生人數(shù)存變量n,代碼略。
End Sub
Private Sub Commandl_Click0
Dim s As String,k As Single,m As Single,mm As Integer
DimcAs Integer,p As Integer,iAs Integer,j As Integer
Dim tl As String,t2 As Integer
s=Textl.Text
k=Val（Text2.Text）
c=0
For i=1To n
If xb（i）=sThen ①_____
Next i
m=c*k/100
If m＜1Then
mm=1
Else
mm=②____
End If
i=1
Do While i＜=n
p=i
For j=i+1To n
If xb （j）=s Then
If  Then p=j

End If
Next j
If i◇p Then
t1=xb（i）：xb（i）=xb（p）：xb（p）=tl
2=cj（i）：cjii）=cj（p）：cj（p）=t2
End If
If i＞mm And（xb（i）◇xb（i-1）Or cj（i）◇cj（i-1））Then Exit Do
i=i+l
Loop
③_____
For i=1To mm
List2.Addtem xm（i）+““+xb（i）+““+Str（cj（i））
Nexti
End Sub