试题

试题 试卷

logo

题型:综合题 题类:模拟题 难易度:普通

浙江省杭州市2015年高考信息技术模拟卷9

某地区公共自行车收费信息如下:“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

举一反三
返回首页

试题篮