某电信部门规定:拨打市内电话时,如果通话时间不超过3分钟(含3分钟),则收取通话费0.2元,如果通话时间超过3分钟,则超过部分以每分钟0.1元收取通话费(通话时间为整数)。下面是计算通话费用的流程图和程序,请认真分析并回答问题。
根据题意,完善流程图(图1),
填写空白处。
①
图2是计算通话费用程序窗体界面布局示意图。
Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim ② as ③ ‘定义 x 为整型
x =" Val(Text1.Text)" ④
Then‘条件语句
⑤
显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于 ⑥ 结构程序设计。
推荐试卷