（8 ）在窗体上先画 1 个名为 Text1 的文本框和平个名为 Label1 的标签 , 再画 1 个名为 OP1 的有

4 个单选按钮数组 , 其 Index 属性按季度顺序为 0 ∽ 3 （见图 A-5 ）。在文件 sales.txt 中按月份顺序存有某企业某 年12 个月的销售额。要求在程序执行时，鼠标单击 1 个单选按钮，则 Text1 中显示相应季度的销售总额 ， 并把相应的文字显示在标签上。图 A-6 是单击 “ 第 3 季度 ” 单选按钮产生的结果。请填空。

Dim sales （—— ） 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 ——（Index, AS Integer ）

Dim sum AS Long ,k AS Ingeger,month AS Ingeger

sum=0

month=Index*——

For k=1 To 3

month=month+1

sum=sum+sales （month ）

Next k

Label1.Caption=Opl （Index ） . Caption & “ 销售总额： ”

Text1=sum

End Sub