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

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

(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 Command1_Click()

Dim a As String, b As String, c As String

a = "印象西湖"

b = "中国"

c = b + Mid(a, 1, 2)

Lab.Caption = c

End Sub

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single, w As Single

w = 6: a = 60: b = 50: c = 30

If w <= 10 And a + b + c <= 115 Then

Label1.Caption = "携带"

Else

Label1.Caption = "托运"

End If

End Sub

Private Sub Command1_Click()

Dim d(1 To 8) As Integer

Dim i As Integer

For i = 1 To 8

d(i) = 2 * i

List1.AddItem Str(d(i))

Next i

End Sub

综合题普通