这个第二问估计要用循环结构，要求结束的时候输出累计总额，但我真的不知道该怎么写代码，卡了很久了

题目不好理解，看你可怜，送一张参考图片

Option Explicit
Private Sub Command1_Click()
Dim ren As Double
Dim zhan As Double
Dim sum As Double
Cls
Do
ren = Val(InputBox("请输入人数："))
Print "人数" & ren;
zhan = Val(InputBox("请输入站数："))
If zhan >= 1 And zhan <= 4 Then
sum = sum + 3 * ren
Print "，站数" & zhan & "，应付款" & 3 * ren & "元";
ElseIf zhan >= 5 And zhan <= 9 Then
sum = sum + 4 * ren
Print "，站数" & zhan & "，应付款" & 4 * ren & "元";
ElseIf zhan > 9 Then
sum = sum + 5 * ren
Print "，站数" & zhan & "，应付款" & 5 * ren & "元";
Else
Print "，站数" & zhan;
End If
If MsgBox("是否结束程序？", vbYesNo) = vbYes Then Exit Do
Print
Loop
Print
Print "应付款累计总额" & sum & "元";
End Sub

选择结构，建议用select语句。
sum=0
do
renshu=……
zhan=……
if zhan=0 then exit do
select case zhan
case 1 to 4
paiojia=3
case 5 to 9
piaojia=4
case is>9
piaojia=5
end select
sum=sum+piaojia*renshu
loop
？"累计金额：";sum
当输入站数为0及负数时结束

谢谢各位大佬了😭 我得救了