填空题

在窗体上先画一个名为Text1的文本框和一个名为Label1的标签，再画一个名为OP1的有4个单选按钮数组，其Index属性按季度顺序为0～3(见图5)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图6是单击“第3季度”单选按钮产生的结果。请填空。




Dim sales(12) As Long
Private Sub Form_Load()
open "sales.txt" For Input AS #1
For k=1 To 12
Input #1, sales(k)
Next k
Close #1
End Sub
Private Sub (7) (Index, AS Integer)
Dim sum AS Long, k AS Ingeger, month AS Ingeger
sum=0
month=Index* (8)
For k=1 To 3
month=month+1
sum=sum+sales(month)
Next k
Label1.Caption=Opl(Index). (9) & "销售总额:"
Text1=sum
End Sub