Обработка массивов - VB (171812)

Формулировка задачи:

Создать файл, содержащий сведения о месячной заработной плате рабочих завода. Каждая запись содержит поля - фамилия рабочего, наименование цеха, размер заработной платы за месяц. Вычислить общую сумму выплат за месяц по цеху X, а также среднемесячный заработок рабочего этого цеха. Напечатать для бухгалтерии ведомость для начисления заработной платы рабочим этого цеха.

Решение задачи: «Обработка массивов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim famil(10) As String, zex(10) As String, zarplata(10) As Integer
Private Sub Command1_Click()
List1.Clear
List2.Clear
List3.Clear
Open "E:\!!!!\Zarplata.txt" For Input As #1
For i = 1 To 10
Input #1, famil(i), zex(i), zarplata(i)
Next i
For i = 1 To 10
List1.AddItem famil(i)
List2.AddItem zex(i)
List3.AddItem zarplata(i)
Next i
Close #1
End Sub
 
Private Sub Command2_Click()
n = 0
l = 0
k = 0
y = InputBox("Введите наименование цеха", "Ввод", "прокатный")
For i = 1 To 10
If y = zex(i) Then
  n = n + zarplata(i)
  k = 1 + k
  End If
Next i
Text1.Text = n
l = n / k
Text2.Text = l
End Sub