完成下列问题：
已知出租车行驶不超过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
参考答案：[操作步骤]
第1步：打开工程文件sjt4.vbp。
第2步：分析并修改程序。其中Command2_Click()修改后结果如下：
第3步：调试、运行并保存程序。
[1]s [2]f=10 [3](s-4)*1.2 [4](s-4)*1.2
解析： 程序中在“输入”按钮的单击事件里将里程数存放到变量s中。在“计算”按钮的单击事件里首先判断s＞0这一条件，如果s＞0说明已输入了里程数，可以计算出租车费。计算时采用Select Case语句根据里程数来处理3个分支，当然判断表达式就应该是s。再根据已有程序可以看出存放出租车的变量为f，所以里程小于或等于4时，出租车费为f=10；超过4km并在15km内的出租车费为f=10+(s-4)*1.2；15km以上的出租车费为：f=10+(s-4)*1.2+(s-15)*1.8。