某款坚果年货正在进行促销活动，坚果每份25元，参加每满30元减5元的满减活动。满减后，还可选择使用优惠券（满减后才能用优惠券，满减后的金额需符合优惠券的使用条件，且最多使用1张优惠券）。优惠券A：满50元减10元（只能减10元）；优惠券B：满70元打9折。如4份坚果原价100，参加每满30减5元后需要付85元，如再使用优惠券A，最后需付75元；如再使用优惠券B，最后需付76.5元。
小王编写VB程序实现如下功能：在Text1中输入购买的坚果份数，单击“确定”按钮，在Text2中显示优惠后的最低价格。程序运行界面如图。
程序代码如下：
Constprice=25
PrivateSubCommand1_Click （　　）
DimaAsInteger
DimsumAsSingle
①
sum=price*a
′计算每满30减5后的需付金额
Ifsum＞=70Then'根据满减后的金额选择最适合的优惠券
Ifsum*0.9＜sum-10Thensum=sum*0.9Elsesum=sum-10
ElseIf②Then
sum=sum-10
EndIf
Text2.Text=Str（sum）
EndSub.
（1）要使窗体Form1标题显示“坚果促销”，可修改窗体的

Caption

Caption

属性。
（2）实现上述功能的VB程序如图，请在横线处填写合适的代码。
（3）加框处的代码有误，请改正
（4）如果在Text1中输入5，在Text2中显示的内容是

94.5

94.5

。