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 Integer, 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