1. (2015·杭州模拟) 某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如图1所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。

1. （1） 在应用程序界面设计时，为添加“计费”按钮，应使用图2所示的“控件工具箱”中的（请填写相应编号），并在图3所示的“属性窗口”中，将属性值设置为“计费”。
3. （2） 请根据题意将下列程序补充完整。

   Private Sub Command1_Click()

     Dim zysj As Single, zyfy As Single  ‘zysj:租用时间，zyfy:租用费用

     zysj = Val(Text1.Text)

     If zysj <= 60 Then

       zyfy = 0

     ElseIf zysj <= 120 Then

       zyfy = 1

     ElseIf zysj <= 180 Then

      

     ElseIf zysj Mod 60 = 0 Then

       zyfy = (zysj - 180) / 60 * 3 + 3

     Else

       zyfy = (Int((zysj - 180) / 60) + 1) * 3 + 3

     End If

     Label5.Caption = Str(zyfy)

   End Sub