21
Февраль
2010
Выполнить перерасчет зарплаты, увеличив ее на 10%
Выполнить перерасчет зарплаты, увеличив ее на 10%
Имеются данные о зарплате работников фирмы из N человек. Выполнить перерасчет зарплаты, увеличив ее на 10%.
Private Type qFormat
qName As String
s As Currency
End Type
Private Sub Command1_click()
Dim i As Integer, n As Integer
i = Val(InputBox("Введите кол-во сотрудников"))
If i = 0 Then Exit Sub
Dim b(1 To 1000) As qFormat
For n = 1 To i
b(n).qName = InputBox("Введите имя сотрудника")
b(n).s = Val(InputBox("Введите его зарплату."))
Next
For n = 1 To i
b(n).s = b(n).s + (b(n).s / 10)
Print b(n).qName;
Print " ";
Print b(n).s
Next
End Sub