Обработка массивов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д