Option Base 1 Dim sales(12) As Long Private Sub Form_Load() Open "c:\sales.txt" For Input As #1 Fork= 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* Fork=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1. Caption=______.Caption & "销售总额:" Text 1=sum End Sub