## Qazi143

write a program in basic which takes marks of 5 subjects as input.
calculate the sum,percentage and assign grade on following criteria:
A=90+
B=80-90
C=70-90
D=60-70
F=below 60
condition: if student fails in more than one subject his/her admission will be cancelled

## Behnam_1

``````Select Case score
Case 90 To 100
letter = "A"
Case 80 To 89
letter = "B"
Case 70 To 79
letter = "C"
Case 60 To 69
letter = "D"
Case Else
letter = "F"
End Select
``````

## imti321 35

I have mADE THIS ONE JUST FOR YOU .JUST COPY PAST THIS .DONT FORGET TO VOTE.IF YOU Have any problem again you can reply back

``````Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim p As Integer
Dim f As Integer
Dim g As Double

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
a = Val(T1.Text)
b = Val(T2.Text)
c = Val(T3.Text)
d = Val(T4.Text)
f = Val(T5.Text)
p = (a + b + c + d + f)
T6.Text = p
g = Val((T6.Text) / 1000 * 100)

Select Case g
Case 90 To 100
MsgBox("YOu have got grade ,A " & "your markes %age is " & g)
Case 80 To 89
MsgBox("YOu have got grade ,B" & "your markes %age is " & g)
Case 70 To 89
MsgBox("YOu have got grade ,c" & "your markes %age is " & g)
Case 60 To 69
MsgBox("YOu have got grade ,D" & "your markes %age is " & g)
Case Else
MsgBox("you have failed" & "your markes %age is " & g)
End
End Select

End Sub
End Class
``````

## Santanu.Das 128

g = Val((T6.Text) / 1000 * 100)

You have only 5 TextBoxes.
The simple percentage equation is `g=p/5`.

## imti321 35

I just tried to help him and the above method is working .This one i have made for him .it can be enhanced further in many ways.

## imti321 35

we assume that marks are out of 1000