完成下列问题：已知出租车行驶不超过4km时一律收费10元。超过4km时分段处理，具体

题目：

完成下列问题：

已知出租车行驶不超过4km时一律收费10元。超过4km时分段处理，具体处理方式为：15km以内每公里加收1.2元，15km以上每公里收1.8元。
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是：单击“输入”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击“计算”按钮，则根据输入的里程数计算应付的出租车费，并将计算结果显示在名称为Text1的文本框内。
在窗体文件中已经给出了全部控件(如图4所示)，但程序不完整，在程序中的横线处填写正确的内容。
[*]
注意：不得修改已经存在的内容和控件属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim s As Integer
Private Sub Command1_Click()
s=Val(InputBox("输入里程数(单位:km)"))
End Sub
Private Sub Command2_Click()
If s＞0 Then
’Select Case (1)
Case Is＜=4
’ (2)
Case Is＜=15
f=10+ (3)
Case Is＞15
f=10+ (4) +(s-15)*1.8
End Select
Text1.Text=f
Else
MsgBox "请单击"输入"按钮输入里程数!"
End If
End Sub