某地区天然气价格如下表所示:
居民用户气价
阶梯分档
年用气量Nm3
气价(元/Nm3)
第一阶梯
0-360
(含)
3.00
第二阶梯
360-540
(含)
3.50
第三阶梯
540以上
4.50
小明为了计算家庭每年应缴费用,编写了一个VB程序,功能如下:在文本框Text1中输入每年使用的天然气用量,单击“计算”按钮Command1后,在文本框Text2中输出年缴天然气费用。程序运行界面如图所示。
(1)
在设计程序界面时,要清空文本框中的显示内容,应修改该文本框中的属性。
(单选,填字母:A .Text
/ B .Caption / C .Font)
(2)
实现上述功能的VB程序如下,请在划线处填入合适代码。
Dim price(1 To 3) As Double
Private
Sub Form_Load()
'本过程读取天然气的单价存储在数组 price 中
'代码略
End Sub
Private Sub Command1_Click()
Dim num As Integer, s As String
num =
Val(Text1.Text)
If num
< 0 Then
s =
"请输入正确的数值!"
ElseIf num
<= 360 Then
s =
Str(num * price(1))
ElseIf num
<= 540 Then
s =
Str(360 * price(1) + )
Else
s = Str(360
* price(1) + (540 - 360) * price(2) + (num - 540) * price(3))
End If
Text2.Text=
End Sub
(3)
本程序的算法属于算法。(选填:解析/枚举)
答案: 【1】A
【1】(num-360)*price(2)【2】s
【1】解析