Grading System

Public Class Form1
    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    Dim q1, q2, cs1, cs2, cs3, exam As Integer
    Dim totalq, totalcs As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        q1 = txtq1.Text
        q2 = txtq2.Text

        totalq = ((q1 + q2) / 2) * 0.3
        cs1 = txtcs1.Text
        cs2 = txtcs2.Text
        cs3 = txtcs3.Text

        totalcs = ((cs1 + cs2 + cs3) / 3) * 0.3

        exam = txtexam.Text * 0.4
        Dim ave As Integer
        ave = totalq + totalcs + exam

        lblave.Text = ave
        If ave >= 75 Then
            lblrmk.Text = "Passed!"
        Else
            lblrmk.Text = "Failed"
        End If
    End Sub
End Class