为庆祝新学期到来，某校学生会组织开展文体演艺活动，现按活动要求，将各班学生编排成“三角”队形。队形有以下要求：
第一排正中间安排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