某地区公共自行车收费信息如下:“60分钟内免费;60分钟以上至120分钟(含),收费1元;120分钟以上至180分钟(含),收费2元;租用超过180分钟(含)以上的时间,按每小时3元计费(不足一小时的按一小时计)”。现按要求编写VB程序,界面如1图所示,程序功能如下:在文本框Text1中输入租车时间,单击“计费”按钮Command1,在标签Label5中输出对应的租车费用。
(1)在应用程序界面设计时,为添加“计费”按钮,应使用2图所示的“控件工具箱”中的__________(请填写相应编号),并在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
相关知识点
推荐试卷