Ввести информацию о 10 студентах группы

Private Type typeStudent
FIO As String
BDay As Integer
Mark(1 To 4) As Integer
End Type
 
Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Dim Student(1 To 10) As String
Dim Gruppa(1 To 10) As typeStudent
Student(1) = "Иванова Ксения Александровна"
Student(2) = "Ковалёва Мария Александровна"
Student(3) = "Антипов Владимир Олегович"
Student(4) = "Синица Анастасия Юрьевна"
Student(5) = "Мамаев Владислав Анатольевич"
Student(6) = "Андропов Игорь Владимирович"
Student(7) = "Кравченко Юлия Максимовна"
Student(8) = "Марчук Анастасия Ивановна"
Student(9) = "Кузнецова Даниэла Алексеевна"
Student(10) = "Малышева Александра Сергеевна"
Randomize
For I = 1 To 10
J = Val(Rnd * (10 - 1) + 1)
Text1.Text = Student(J)
Text2.Text = Str(1991 + Int((3 * Rnd) + 2))
Text3.Text = Str(Int((4 * Rnd) + 2))
Text4.Text = Str(Int((4 * Rnd) + 2))
Text5.Text = Str(Int((4 * Rnd) + 2))
Text6.Text = Str(Int((4 * Rnd) + 2))
Gruppa(I).FIO = Text1.Text
Gruppa(I).BDay = Text2.Text
Gruppa(I).Mark(1) = Val(Text3.Text)
Gruppa(I).Mark(2) = Val(Text4.Text)
Gruppa(I).Mark(3) = Val(Text5.Text)
Gruppa(I).Mark(4) = Val(Text6.Text)
List1.AddItem (" ")
List1.AddItem ("номер студента " + Str(I))
List1.AddItem ("ФИО: " + Gruppa(I).FIO)
List1.AddItem ("ДР: " + Str(Gruppa(I).BDay))
List1.AddItem ("Химия: " + Str(Gruppa(I).Mark(1)))
List1.AddItem ("Физика: " + Str(Gruppa(I).Mark(2)))
List1.AddItem ("Англ. яз.: " + Str(Gruppa(I).Mark(3)))
List1.AddItem ("Инф.: " + Str(Gruppa(I).Mark(4)))
List1.AddItem ("")
List2.AddItem ("выборка...")
List2.AddItem ("Список студентов, которые получили 2")
List2.AddItem ("")
If Gruppa(I).Mark(?) = 2 Then
List1.AddItem ("ФИО" + Gruppa(J).FIO)
End If
Next I
End Sub
 
Private Sub Command2_Click()
Command1.Caption = "Добавить"
Command1.Enabled = True
I = 0
List1.Clear
List2.Clear
End Sub

PrintForm