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

15

15

。
（2）程序代碼中（*）處有錯誤，請改正。

cnt-tmp＞=0或cnt＞=tmp

cnt-tmp＞=0或cnt＞=tmp

（3）實現隊形編排功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command 1_Click

（　　）

（　　）

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計算三角隊形的行數（*）
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