This is GPA average Calculator NOT GPA calculator.
(INTERFACE)
SOURCE CODE:
Public Class Form1
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
End Sub
Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim A1 As Double
A1 = Convert.ToDouble(TextBox1.Text)
Dim A2 As Double
A2 = Convert.ToDouble(TextBox2.Text)
Dim A3 As Double
A3 = Convert.ToDouble(TextBox3.Text)
Dim A4 As Double
A4 = Convert.ToDouble(TextBox4.Text)
Dim A5 As Double
A5 = Convert.ToDouble(TextBox5.Text)
Dim A6 As Double
A6 = Convert.ToDouble(TextBox6.Text)
Dim T As Double
T = (A1 + A2 + A3 + A4 + A5 + A6)
Dim A8 As Double
A8 = Convert.ToDouble(TextBox8.Text)
TextBox7.Text = Convert.ToString((T / 6))
TextBox9.Text = Convert.ToString(((T / 6) + A8) / 2)
Catch ex As Exception
End Try
End Sub
End Class
Post a Comment
Post a Comment
Please do not enter any spam link in the comment box