Skip to main content

Write a VB program to accept the details of student and display mark sheet details on grid control.( roll_ no, student_ name, class, sub1, sub2, sub3, total, percentage, grade)

· One min read
Kaustubh Kulkarni

file.vb
Private Sub Command1_Click()  
lblTotal.Caption = Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)
lblPer.Caption = Val(lblTotal.Caption) / 3
total = Val(lblTotal.Caption)
If total < 100 Then
lblGrade.Caption = "D"
ElseIf total < 150 Then
lblGrade.Caption = "C"
ElseIf total < 200 Then
lblGrade.Caption = "B"
ElseIf total < 250 Then
lblGrade.Caption = "A"
ElseIf total < 300 Then
lblGrade.Caption = "A+"
End If
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
With Adodc1.Recordset
.AddNew

!roll = Val(Text1.Text)
!sname = Text2.Text
!sclass = Text3.Text
!sub1 = Text4.Text
!sub2 = Text5.Text
!sub3 = Text6.Text
!total = lblTotal.Caption
!per = lblPer.Caption
!grade = lblGrade.Caption
.Update
.Requery
End With
MsgBox ("Marks Inserted")
Text1.Text = ""
Text2.Text = ""
End Sub