Sw_92

Помогите пожалуйста составить блок схему по задаче ниже (vba)

Option Explicit
Dim FIO(1 To 10, 1)
Dim S As String
Dim M() As String
Dim J As Byte
Dim I As Byte

Private Sub Form_Load()
With FlG
.ColWidth(0) = 3500
.ColWidth(1) = 1500
.TextMatrix(0, 0) = "Фамилии"
.TextMatrix(0, 1) = "Баллы"
.Col = 0
.Row = 0
.CellAlignment = 3
.Col = 1
For J = 0 To 10
.Row = J
.CellAlignment = 3
Next J
End With
End Sub

Private Sub o2_Click()
S = "Двоечники:" & vbCrLf
For J = 1 To 10 ' по всему списку
If FIO(J, 1) = 2 Then S = S & FIO(J, 0) & vbCrLf
Next J
MsgBox S, 64, "Информация"
End Sub
Private Sub o3_Click()
S = "Троечники:" & vbCrLf
For J = 1 To 10
If FIO(J, 1) = 3 Then S = S & FIO(J, 0) & vbCrLf
Next J
MsgBox S, 64, "Информация"
End Sub

Private Sub o4_Click()
S = "Хорошисты:" & vbCrLf
For J = 1 To 10
If FIO(J, 1) = 4 Then S = S & FIO(J, 0) & vbCrLf
Next J
MsgBox S, 64, "Информация"
End Sub

Private Sub o5_Click() '
S = "Отличники:" & vbCrLf '
For J = 1 To 10
If FIO(J, 1) = 5 Then S = S & FIO(J, 0) & vbCrLf '
Next J '
MsgBox S, 64, "Информация" '
End Sub '

Private Sub Выход_Click()
Unload Me
End Sub

Private Sub Поставить_Click()
Randomize
For J = 1 To 10
FlG.TextMatrix(J, 1) = Int(4 * Rnd + 2)
FIO(J, 1) = FlG.TextMatrix(J, 1)
Next J
Выбрать.Enabled = True
End Sub

Private Sub Студенты_Click()
S = "Голубицкий,Вишняков,Долгополов,Жуков,Зайцев,Нович енков,Скрипник,Устинов,"
S = S & "Сучков,Тищенко,Шагаров,Кузюк,Вязовой,Довгий,Усенк о,Шляхтин,Безрук,Безуглый,"
S = S & "Вакарюк,Галиулин,Ерёменко,Зибров,Корягин,Литвинчу к,Лубенцов,Приказюк,"
S = S & "Приходько,Соколов,Притака,Лукин,Радченко,Родионов ,Акинин,Гузь,Головин"
M = Split(S, ",")
Randomize
J = 1
Do While J < 11
1
S = M(Int(35 * Rnd))
For I = 1 To 10
If FIO(I, 0) = S Then GoTo 1
Next I
FIO(J, 0) = S
FlG.TextMatrix(J, 0) = S
J = J + 1
Loop
Оценки.Enabled = True
End Sub