在窗体上先画一个名为Text1的文本框和一个名为Table1的标签,再画一个名为OP1的四个单选按钮的单选按钮数组,其Index属性按季度顺序为1-3(见图1),文件sales.txt中按月份顺序存有某企业某年12月份的销售额。要求在执行程序时,鼠标单击一个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。图2是单击第三季度显示的结果
请填空。
Dim sales(12)As Long
Private Sub Form_Load()
Open¨sales.txt¨For Input As #
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 Integer,month As Integer
sum=0
month=Index * 【 】
For k=1 To 3
month=month 4-1
sum= sum+ sales(month)
Next k
Label1. Caption=Op1 (Index). 【 】 &"销售总额:"
Text1=sum
End Sub