Program in visual basic to display mark list of a student, Take the marks of five subjects and display percentage and grade..

	Dim i As Integer Dim subject(5) As Integer Dim total As Integer Dim per As String Dim grade As String Private Sub Command1_Click() Static pass As Integer If i <= 4 Then If subject(i) > 45 Then pass = pass + 1 End If subject(i) = Text3.Text total = total + subject(i) per = (total / 500 * 100) List1.AddItem "Paper" & i + 1 & " = " & subject(i) Text3.Text = "" Text3.SetFocus i = i + 1 Else If per >= 60 Then List2.AddItem "Name:" & Text1.Text List2.AddItem "Roll No:" & Text2.Text List2.AddItem "Total:" & total List2.AddItem "Percentage:" & per List2.AddItem "Grade:" & "1" Else If per >= 50 And per < 60 Then List2.AddItem "Name:" & Text1.Text List2.AddItem "Roll No:" & Text2.Text List2.AddItem "Total:" & total List2.AddItem "Percentage:" & per List2.AddItem "Grade:" & II Else List2.AddItem "Name:" & Text1.Text List2.AddItem "Roll No:" & Text2.Text List2.AddItem "Total:" & total List2.AddItem "Percentage:" & per List2.AddItem "Grade:Fail" End If End If End If End Sub
	Output :

Output :