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