程序运行界面如下图所示。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

 j=i

 Do While sum < n

  {#blank#}1{#/blank#}

 j = j + 1

 Loop

 If sum = n Then

  {#blank#}2{#/blank#}

  For k=i+1 To j-1

   tmp = tmp + “+” + Str(k)

  Next k

  List1.AddItem tmp +“=”+ Str(n)

  End If

  {#blank#}3{#/blank#}

 Next i

 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("输入有误，重新输入：”)