Create Student Records Using Active-X DLL in Visual Basic

PROCEDURE Algorithm
REFER THE FOLLOWING LINK
http://studentwebsite.blogspot.com/2010/04/creating-com-using-vb-component-object.html
To Create a Student Record by using Active-X DLL in VB.
Source code Programming in Visual Basic
Part – 1
Public Function total (a As Integer, b As Integer, c As Integer)
total = (a + b + c)
End Function

Public Function average(a As Integer, b As Integer, c As Integer)
average = (a + b + c) / 100
End Function
Public Function grade(a As Integer, b As Integer, c As Integer)
If (average(a, b, c) >= 80) Then
grade = "A"
ElseIf (average(a, b, c) < grade = "C"> 70) Then
grade = "B"

ElseIf (average(a, b, c) < grade = "E"
Part-2
Dim a As New Class1
Private Sub Command1_Click()
Text6.Text = a.total(Val(Text3.Text), Val(Text4.Text), Val(Text5.Text))
End Sub
Private Sub Command2_Click()
Text7.Text = a.average(Val(Text3.Text), Val(Text4.Text), Val(Text5.Text))
End Sub
Private Sub Command3_Click()
Text8.Text = a.grade(Val(Text3.Text), Val(Text4.Text), Val(Text5.Text))
End Sub
Student Record by using Active-X DLL in VB.

Related post