Для работников банка в возрасте от 25 до 35 лет распечатать следующее - VB

Формулировка задачи:

ПОЖАЛУЙСТА, ПОМОГИТЕ! Разработать блок схему и составить программу на языке программирования высокого уровня для работников банка в возрасте от 25 до 35 лет распечатать: 1) общую сумму их заработка и стаж работы в среднем 2) их общую численность и средний заработок (visual basic)

Решение задачи: «Для работников банка в возрасте от 25 до 35 лет распечатать следующее»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
Dim FAM(1 To 50) As String
Dim VO(18 To 65) As String
Dim ZP(1 To 50) As Single
Dim ST(1 To 45) As Single
Dim I, N, K As Byte
Dim SSO, SZO, ZO, SO, v, VO1 As Single
N = InputBox("Количество рабочих")
For I = 1 To N
FAM(I) = InputBox("Введите фамилию")
ZP(I) = InputBox("Введите заработную плату")
ST(I) = InputBox("Введите стаж")
VO(I) = InputBox("Введите возраст")
Next I
ZO = 0
K = 0
SO = 0
For I = 1 To N
v01 = Val(v(I))
If VO1 <= 45 Then
K = K + 1
ZO = ZO + ZP(I)
SO = SO + ST(I)
End If
Next I
SSO = SO / K
SZO = ZO / K
MsgBox "общая заработная плата" & ZO
MsgBox "Стаж работы в среднем" & SSO
MsgBox "общая численность" & K
MsgBox "Средняя заработная плата" & SZO
End Sub
                        