请在程序的划线处填写合适的代码。

Private Sub Command1_Click()

        Dim a As String,s As String

        Dim r As Integer,x As Integer

        x = Val(Text1.Text)

        s = ""

        Do While x > 0

  ▲                 ‘①

            x = x \ 16

            If r > 9 Then

                a = Chr(r + 55)

            Else

                a = Str(r)

            End If

              ▲                 ‘②

Loop                     

        Text2.Text = s

        End Sub

⑴用车时间在0.5小时内(包含0.5 小时)，收费为起步价15元。

⑵用车时间超过0.5小时，超出部分按0.5元/分钟收费。

下列程序实现了“输入使用时间，输出收费”功能，打开“共享汽车计费.py”程序，按要求操作：

hour=eval(input("请输入使用时间："))

if hour>0 and hour<=0.5:

    print("本次租车花费15元)

elif           

    cost=15+(hour-0.5)*30

    print("本次租车花费", cost, "元")

else:

    print("输入有误，重新输入：”)