某电信部门规定：拨打市内电话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话时间为整数）。下面是计算通话费用的程序界面和程序，请认真分析并回答问题。

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

浙江省杭州市五县七校2016-2017学年高二上学期期中联考信息技术试题

（1）、在设计程序界面时，为添加“确定”按钮，应使用如上右图所示“控件工具箱”中的（填相应编号）添加标签控件。要让Command1显示为“确定”，需要在属性面板中修改的值为“确定”。

（2）、Command1_Clik事件过程如下，并请填写程序空白处。

Private Sub Command1_Click()

Dim x as '定义 x 为整型

x = Val(Text1.Text)

Then '条件语句

Text2.Text=

Else

Text2.Text = Str(0.2 + 0.1 * (x - 3))

End If

End Sub

（3）、这段程序属于结构程序设计。(填：顺序、选择或循环）

举一反三

Private Sub Text1_Change()

Dim a, i As Integer

a= Val(Text1.Text)

For i = 2 To 6 Step 2

If a<= 15 Then a = a + i

Next i

Text1.Text = Str(a)

End Sub

若在文本框Text1中输入2，执行该程序段，For语句的循环次数为（）

a（1）=1：a（2）=1

b（1）=1：b（2）=2

for i=3 to 5

a(i)=a(i-1)+a(i-2)

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

next i

执行该段程序后，数组元素b（5）的值为（）

Dim i As Integer, s As String

i = 0

Do While i < 5

s = Str(i) + s

i = i + 1

Loop

相关试卷