Вот задание:
"Создать ффайл, содержащий сведения о месячной заработной плате рабочих завода. Каждая запись содержит поля: фамилия рабочего, наименование цеха, размер заработной платы за месяц.
Вычислить общую сумму выплат за месяц по цеху X, а так же среднемесячный заработок рабочего этого цеха.
- Код: Выделить всё
Private Sub Command1_Click()
Dim Fam() As String, Zeh() As Byte
Dim Zar() As Integer
Dim i As Integer
Open "C:\1.txt" For Input As #1
Input #1, razmer 'Первый элемент файла обозначаем как Razmer
ReDim Fam(razmer), Zeh(razmer), Zar(razmer) 'Переопределяем переменые
Close #1
For i = 1 To razmer
Input #1, Fam(i), Zeh(i), Zar(i) 'Массивом задаем считывающиеся элементы
Next i
Dim b As Integer 'суммарная зарплата в цехе
Dim c As Integer 'средняя зарплата в цехе
b = Val(Text1.Text) 'Номер цеха вводится в textbox
For i = 1 To razmer
If b = Zeh(i) Then Sum = Sum + Zar(i) 'общую сумму выплат за месяц по цеху b
If c = Zeh(i) Then c = (Sum + Zar(i)) / b 'размер заработной платы за месяц
Next i
End Sub
При запуске выделяет строку
- Код: Выделить всё
Input #1, Fam(i), Zeh(i), Zar(i)
и пишет BadFile name or number
Текстовой файл 1.txt выглядит следующим образом:
4
Крикунов, 1, 10000
Иванов, 1, 12000
Петров, 2, 4000
Сидоров, 2, 9000
Скажите пожалуйста в чем ошибка, и правильно ли я делаю эту программу?
