Вид формы № 1 после старта программы

Вид формы № 2 решения 1-го пункта задания

Программа решения 1-го пункта задания

Private Sub Command1_Click ().

Dim SR As Integer 'средняя выработка.

Dim CH As Integer 'заданный шифр цеха.

Dim KOl As Integer 'кол-во рабочих.

Dim SUM As Integer 'общяя выработка.

1 CH = InputBox («Введите номер цеха»).

Text1.Text = CH.

KOl = 0.

SUM = 0.

For I = 1 To N 'цикл доступа к элементам массива.

If MS (I).CEH = CH Then.

KOl = KOl + 1.

SUM = SUM + MS (I).VRB.

End If.

Next I.

If SUM = 0 Then Print («Ошибка ввода шифра цеха»): GoTo 1.

SR = SUM / KOl.

Text2.Text = SR.

End Sub.

Private Sub Command5_Click ().

Form2.Hide 'убрать форму с экрана.

Form1.Show 'отобразить форму на экране.

End Sub.

Private Sub Command3_Click ().

Form2.Hide 'убрать форму с экрана.

Form3.Show 'отобразить форму на экране.

End Sub.

Private Sub Command4_Click ().

Form2.Hide 'убрать форму с экрана.

Form4.Show 'отобразить форму на экране.

End Sub.

Private Sub Command2_Click ().

End.

End Sub.

Вид формы № 2 после старта программы

Вид формы № 3 решения 2-го пункта задания

Программа решения 2-го пункта задания

Private Sub Command1_Click ().

Dim R () As String 'массив разных профессий.

ReDim R (1 To N) As String.

Dim K As Integer ' количесвто разных профессий.

Dim F As Byte 'флажок.

Dim L As Integer 'вспомогательная переменная.

Dim SP As String 'переменная для вывода.

K = 0 'кол-во разных профессий.

For I = 1 To N 'формирование массива профессий.

F = 0.

For J = 1 To K 'доступ к массиву профессий.

If MS (I).PROF = R (J) Then F = 1: J = K 'профессия есть в массиве профессий.

Next J.

If F = 0 Then K = K + 1: R (K) = MS (I).PROF 'профессии нет в массиве профессий.

Next I.

For I = 1 To N — 1 'сортировка по фамилиям.

For J = I + 1 To N.

If MS (I).FAM > MS (J).FAM Then MAS = MS (I): MS (I) = MS (J): MS (J) = MAS.

Next J.

Next I.

SP = «» .

For I = 1 To K 'вывод разных профессий на экран.

SP = SP + R (I) + ««.

Next I.

Text1.Text = SP.

With MSFlexGrid1 'подключение оператора присоединения.

.Rows = N + 1 'кол-во столбцов с учетом заголовка.

.Cols = 6 'кол-во столбцов.

.TextMatrix (0, 0) = «Профессия» 'формирование заголовка таблицы.

.TextMatrix (0, 1) = «Табельный номер» .

.TextMatrix (0, 2) = «Фамилия» .

.TextMatrix (0, 3) = «Разряд» .

.TextMatrix (0, 4) = «Цех» .

.TextMatrix (0, 5) = «Выработка» .

.RowHeight (0) = 300 'задание высоты заголовка.

.ColWidth (0) = 1500 'задание ширины столбцов.

.ColWidth (1) = 800.

.ColWidth (2) = 3500.

.ColWidth (3) = 800.

.ColWidth (4) = 800.

.ColWidth (4) = 800.

L = 0 'счетчик номеров строк выводимой информации.

For J = 1 To K 'доступ к масиву профессий.

F = 0 'начальное значение флажка.

For I = 1 To N 'доступ к массиву записей базы данных.

If R (J) MS (I).PROF Then GoTo 10 'к след. записи массива базы данных.

If F = 0 Then 'флажковая развилкапервая запиь данного разряда.

F = 1 'изменение начального значения.

L = L + 1 'номер строки вывода.

.TextMatrix (L, 0) = MS (I).PROF.

.TextMatrix (L, 1) = MS (I).TN.

.TextMatrix (L, 2) = MS (I).FAM.

.TextMatrix (L, 3) = MS (I).RAZR.

.TextMatrix (L, 4) = MS (I).CEH.

.TextMatrix (L, 5) = MS (I).VRB.

Else 'не первая запись данного разряда.

L = L + 1 'номер строки вывода.

.TextMatrix (L, 0) = «» .

.TextMatrix (L, 1) = MS (I).TN.

.TextMatrix (L, 2) = MS (I).FAM.

.TextMatrix (L, 3) = MS (I).RAZR.

.TextMatrix (L, 4) = MS (I).CEH.

.TextMatrix (L, 5) = MS (I).VRB.

End If.

10 Next I.

Next J.

End With.

End Sub.

Private Sub Command2_Click ().

End.

End Sub.

Private Sub Command3_Click ().

Form3.Hide 'убрать форму с экрана.

Form1.Show 'отобразить форму на экране.

End Sub.

Private Sub Command4_Click ().

Form3.Hide 'убрать форму с экрана.

Form2.Show 'отобразить форму на экране.

End Sub.

Private Sub Command5_Click ().

Form3.Hide 'убрать форму с экрана.

Form4.Show 'отобразить форму на экране.

End Sub.