小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。
用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n,在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m,根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s,输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f,并在标签Label7中给出提示是否“优惠后的费用”。运行效果如第17题图所示：
（1）自摘收费程序所用的算法是

解析算法

解析算法

（填：解析算法/枚举算法）。
（2）为实现上述功能，请在划线①和②处填入合适的代码。
Dim m As Integer
Private Sub Command1_Click （　　）
Dim n As Integer,s As Integer
Dim w As Single,f As Single
n=Val（Text1．Text）'输入大人人数n
w=Val（Text2．Text）'输入重量w
f=20*n+10*w'计算无优惠的费用f
s=0
For i=1 To m'计算桔子总数
s=s+i*i
Next i
If  s=

①

①

  Then'判断是否拿到优惠计算费用
f=f*0.5+s*0.3'计算优惠后的费用
Label7．Caption=“恭喜你，这是优惠后的费用！“
Else
Label7．Caption=“很遗憾，你没有算对哦！“
End If
Label4．Caption=Str（f）'输出最后的费用f
End Sub
Private Sub Form_Load （　　）
Randomize
m=

②

②

'随机产生15层及以内的桔子层数不含0
Text3．Text=Str（m）
End Sub
（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用

110

110

元。