学进去

某电网公司对居民用电实行阶梯电价和分时电价，收费规则如下表：

阶梯	年累计用电量	谷电价（元）	峰电价（元）
第一阶梯	2760度及以下	0.288	0.568
第二阶梯	2761-4800度	0.338	0.618
第三阶梯	4800度以上	0.588	0.868

阶梯用电以一年为周期，若年用电量在2760度及以下，则按第一阶梯电价收费；若年用电量超过4800度，则第0到2760度电量按第一阶梯电价收费，第2761到4800度电量按第二阶梯电价收费，4800度后的电量按第三阶梯电价收费。峰谷电价是以用电时段进行区分，每天8：00-22：00实行峰电价，其余时段实行谷电价。

编写VB程序，读取某用户本年度用电数据（以小时为单位），显示在列表框List1中，点击“计算”按钮，计算该居民该年度总用电量及总电费，并显示在标签Label1中。程序运行界面如图所示。

请回答下列问题：
（1）观察下列代码，窗体加载事件处理过程名为________（单选，填字母：A.Form/B.Lood/C.Form_Load）。
（2）实现该功能的VB程序如下。请在划线处填入合适的代码。
①_________________________
②_________________________
③_________________________
（3）程序中加框处代码有错，请改正。
改正：_________________________
Dim a(1 To 9000)As Single    '存储本年度每小时的用电量
Dim b(1 To 6)As Single    '存储三个阶梯的谷电价和峰电价
Dim c(1 To 3)As Integer'存储阶梯电量
Dim sum As Single'存储总电量
Dim n As Integer'存储总小时数
Private Sub Form_Load()
b(1)=0.288: b(2)=0.568
b(3)=0.338: b(4)=0.618
b(5)=0.588: b(6) =0.868
c(1)=0: c(2)=2760: c(3) = 4800
sum=0
'读取本年度中每小时的用电量依次存储到数组a中,
'a(1)存储本年度第1天0:00-1:00的用电量,a(2)第1天1:00-2:00的用电量......
'a(25)存储本年度第2天0:00-1:00的用电量,a(26)第2天1:00-2:00的用电量......
'依此类推,并将该年总小时数存储到变量n中
代码略
End Sub
Private Sub Commandl_Click()
Dim money As Single, m As Single, i As Integer, flag As Boolean
money= 0
For i= 1 To n
If  i>0 And i<=8  Then flag = True Else flag = False
①______________
If sum <= c(2) Then
m = HourMoney(flag, a(i), 1)
ElseIf sum <= c(3) Then .
m= HourMoney(flag, a(i), 2)
Else
m=②_______________
End If
money = money + m
Next i
Label l.Caption = "该年总用电量为: "+Str(sum)+", 总电费为: "+ Str(money) End Sub
Function HourMoney(f As Boolan, x As Single, step As Integer) As Single
If f Then k=2* step-1 Else k=2* step
t= sum-x
If t < c(step) Then

m= (c(step) -t) * b(k - 2)+ (sum - c(step)) * b(k)

Else

③_______________

End If
HourMoney=m
End Function