- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省台州市书生中学2018-2019学年高二上学期信息技术第一次月考试卷

台州市政公共停车的收费标准如下：

30分钟以内不收费，1小时及以内收费5元，超过一小时后超过部分2元\小时收费（不足1小时的按1小时计算）。小明据此设计了以下VB程序，程序运行界面如图。

（1）、若将窗体标题改为“台州停车收费”，应修改窗体属性栏中的属性。

（2）、运行程序，在文本框Text1中输入当天停车时间（分钟），单击“收费”按钮Command1，在文本框Text2显示所对应的费用（元），实现上述功能的VB程序如下，请在划线处填写合适的代码。

Private Sub Command1_Click()

Dim t As Integer , cost As Integer , h As Integer ‘h是小时时长

t=Val(Text1.Text)

If t <= 30 Then

cost=0

Else

h=(t-1)\60+1

If Then

cost=5

Else

cost=

EndIf

Text2.Text=

EndSub

举一反三

Dim a(1 To 10) As Integer, b(5 To 10) As Integer

a(1) = 71: a(2) = 73: a(3) = 90: a(4) = 79: a(5) = 76

a(6) = 88: a(7) = 91: a(8) = 84: a(9) = 100: a(10) = 80

For i = 10 To 1 Step -1

b((a(i) - 1) \ 10) = b((a(i) - 1) \ 10) + 1

Next i

该程序段运行后，数组元素b(7)的值是（）

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

End Sub

该程序通过For循环计算sum的值，下列表达式的值与sum相等的是（）

相关试卷