Attribute VB_Name = "Module1"
Public Type stud
  name As String * 10
  class As String * 4
  mark(1 To 4) As Integer
  summark As Integer
End Type
Public Type StudOrder
  name As String * 10
  order As Integer
  summark As Integer
End Type
