Option Base 1 Dim sales(12) As Long Private Sub Form_Load() open"c:\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 Integex,month As Integer sum=0 month=Index*______ For k=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1.Caption=______.Caption &"销售总额:" Text1=sum End Sub