Kiri4V
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток. Требуется помощь знающих людей. Задача:
Цитата: Создать файл, содержащий сведения о количестве изделий, собранными сборщи-ками цеха за неделю. Каждая запись содержит поля: фамилия сборщика, количество изделий, собранных им ежедневно в течение шестидневной недели, т.е. раздельно – в понедельник, вторник и т.д.
Написать программу, выдающую следующую информацию:
1) фамилию сборщика и общее количество деталей, собранное им за неделю;
2) фамилию сборщика, собравшего максимальное число изделий, и день, когда он достиг наивысшей производительности;
|
Ну собственно, все сделано, кроме "день, когда он достиг наивысшей производительности". Собственно, вопрос, как это сделать?
И пока код выглядит так:
Код: Dim f(10) As String, pon(10) As Single
Dim vt(10) As Single, sr(10) As Single
Dim cht(10) As Single, pyat(10) As Single
Dim syb(10) As Single, i As Byte
Dim totalpr(10) As Single, best As String
Private Sub Command1_Click()
Open "C:\файл.txt" For Input As #1
For i = 1 To 10
Input #1, f(i), pon(i), vt(i), sr(i), cht(i), pyat(i), syb(i)
Next i
For i = 1 To 10
List1.AddItem f(i)
Next i
For i = 1 To 10
totalpr(i) = pon(i) + vt(i) + sr(i) + cht(i) + pyat(i) + syb(i)
List2.AddItem totalpr(i)
Next i
Max = totalpr(1)
For i = 1 To 10
If totalpr(i) > Max Then Max = totalpr(i)
If totalpr(i) = Max Then best = f(i)
Next i
Text1.Text = best
|
Если нужны уточнения, я их укажу. Спасибо за внимание. |
(а последний, соответственно, 5 -- а не 6)