WAP to find Sum, Average, Division, using command buttons.
____________________________________________
Dim a, b, c, d, e
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
Label3.Caption = c
End Sub
Private Sub Command2_Click()
d = c / 2
Label3.Caption = d
End Sub
Private Sub Command3_Click()
e = a / b
Label3.Caption = e
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
End Sub
___________________________________
OUTPUT
___________________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment