為慶祝新學(xué)期到來(lái)，某校學(xué)生會(huì)組織開(kāi)展文體演藝活動(dòng)，現(xiàn)按活動(dòng)要求，將各班學(xué)生編排成“三角”隊(duì)形。隊(duì)形有以下要求：
第一排正中間安排1人；第二排正中間安排3人；第三排正中間安排5人……，如此循環(huán)，直至班級(jí)人數(shù)不足以站滿一排后結(jié)束編排。
三角隊(duì)形外圍一圈的同學(xué)對(duì)服裝有特殊要求，需要進(jìn)行標(biāo)記（中間的同學(xué)用“●”標(biāo)記，外圍的同學(xué)用“▲”標(biāo)記）
編寫(xiě)VB程序，實(shí)現(xiàn)隊(duì)形編排功能：在文本框Text l中輸入班級(jí)人數(shù)，單擊“展示隊(duì)形”按鈕Command l后，將班級(jí)學(xué)生隊(duì)形顯示在列表框List 1中。例如，當(dāng)班級(jí)學(xué)生數(shù)為54的時(shí)候，程序運(yùn)行界面如圖所示。
（1）根據(jù)題意，如果輸入的班級(jí)人數(shù)為70，則三角隊(duì)形的最后一行人數(shù)為

15

15

。
（2）程序代碼中（*）處有錯(cuò)誤，請(qǐng)改正。

cnt-tmp＞=0或cnt＞=tmp

cnt-tmp＞=0或cnt＞=tmp

（3）實(shí)現(xiàn)隊(duì)形編排功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command 1_Click

（　　）

（　?。?/div>
Dim i As Integer,j As Integer
Dim cnt As Integer,nAs Integer,tmp As Integer
Dim kw As String,zw As String,c As String
List 1.Clear
cnt=Val（Text 1-Text）
n=0：tmp=1
Do While  cnt-tmp＞0計(jì)算三角隊(duì)形的行數(shù)（*）
cnt=cnt-tmp
tmp=tmp+2
n=n+1
Loop
For i=1 T on
kw=“”：zw=“”
For j=i T on-1
kw=kw+“”
Next j
If i=n The nc=“▲”Else c=“●”
For j=1 To 2*（i-1）-1
zw=zw+c
Next j
If

i=1

i=1

Then
ZW=“▲”
Else
zw=“▲”+zw+“▲”
End If
List 1.Add Item

kw+zw

kw+zw

Next i
End Sub