بزرگترين معدل(vb)

[mehdiafzali]

برنامه اي كه مشخصات تعدادي دانشجو را از ورودي گرفته (توسط ركورد) وسپس بزرگترين معدل را چاپ كند.(ارايه اي از ركورد ها)

 

[the_king]

برنامه اي كه مشخصات تعدادي دانشجو را از ورودي گرفته (توسط ركورد) وسپس بزرگترين معدل را چاپ كند.(ارايه اي از ركورد ها)

Private Type Student
    FirstName As String
    LastName As String
    Average As Single
End Type

Private Sub Form_Load()
    Dim st() As Student, n As Integer, i As Integer
    Dim max As Integer
    n = Val(InputBox("Please enter count of students :"))
    ReDim st(1 To n)
    For i = 1 To n
        st(i).FirstName = InputBox("First Name :")
        st(i).LastName = InputBox("Last Name :")
        st(i).Average = Val(InputBox("Average :"))
    Next
    max = 1
    For i = 2 To n
        If st(i).Average > st(max).Average Then max = i
    Next
    MsgBox "Maximum = " & CStr(st(max).Average) & vbNewLine _
        & st(max).FirstName + " " + st(max).LastName
End Sub