WAP to Find the simple interest.
_______________________________
Private Sub Command1_Click()
Dim a
Dim b, c, d As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = (a * b * c) / 100
Label6.Caption = d
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label6.Caption = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
End Sub
______________________________
OUTPUT
______________________________
____________________________________
DOWNLOAD
____________________________________
Download its form
Download its Image
No comments:
Post a Comment