Обработка массивов - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5